Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Заполнить массив из восьми элементов https://www.cyberforum.ru/ pascalabc/ thread898495.html
Заполнить массив из восьми элементов таким образом, чтобы значения элементов при просмотре массива слева направо образовывали убывающую последовательность
Pascal ABC Вычислить сумму ряда
Помогите пожалуйста сделать пару прожек. Очень нужно до 14:00 по МСК
Pascal ABC Найти сумму положительных элементов четных строк
Дан массив A(n,m), найти сумму положительных элементов четных строк.
Pascal ABC игра "БАШЕ" на паскале АБС Добрый день, это программа для курсовой)) мне нужно добавить выход(начать заново) из программы, но что-то я не могу понять как. помогите(((:cry: Program Bashe; Uses CRT; Function... https://www.cyberforum.ru/ pascalabc/ thread898402.html
Pascal ABC Однонапрвленные списки https://www.cyberforum.ru/ pascalabc/ thread898394.html
Помогите пожалуйста написать программы: 1.Сформировать текстовый файл из натуральных чисел и заменить максимальные элементы списка, построенного из элементов файла, числом 100. 2.Сформировать...
Даны В1 - В8; у1 - у7. Определить Pascal ABC
Даны β1, β2, ..., β8; γ1, γ2, ..., γ7. Определить. {\alpha }_{j}=\sum_{i=1}^{8}{\beta }_{i}+{\gamma }_{j}\sum_{k=1}^{7}{\gamma }_{k}
Pascal ABC Определить количество одинаковых элементов в начале последовательности
Дана последувательность целых чисел а1, а2..., а18, в начале которой записаны несколько равных между собой елементов. Определить количество таких елементов последовательности. Условный оператор не...
Pascal ABC Найти наибольший общий делитель двух заданных натуральних чисел, используя алгоритм Евклида Найти наибольший общий делитель двух заданных натуральних чисел, используя алгоритм Евклида. https://www.cyberforum.ru/ pascalabc/ thread898334.html
Pascal ABC Известно сопротивление каждого из элементов электической цепи. Все элементы соединены последовательно. Определить общие сопротивление цепи https://www.cyberforum.ru/ pascalabc/ thread898328.html
Известно сопротивление каждого из элементов электической цепи. Все элементы соединены последовательно. Определить общие сопротивление цепи.
Pascal ABC Построить массив, элементы которого равны единице, если элементы строки образуют упорядоченную последовательность Дана матрица A(N,M). Построить массив B(N), элементы Bi которого равны единице. Если элементы i-ой строки образуют упорядоченную по убыванию или по возрастанию последовательность, и нулю во всех... https://www.cyberforum.ru/ pascalabc/ thread898310.html
0 / 0 / 0
Регистрация: 13.01.2012
Сообщений: 30
0

Шифровка / дешифровка файлов (scrembler)

11.06.2013, 18:24. Показов 862. Ответов 1
Метки (Все метки)

Здравствуйте есть программа для шифровки и дешифровки файлов , нужно поменять в ней значения key , mask , e и длину файла под это условие : Построить криптосистему на основе скремблера для шифрования и дешифрования файлов размером 7MB с минимальной длиной ключа. Подскажите как мне найти эти значения .

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
program scrembler;
const
    key:longint=67108863;
    mask:longint=25800865;
 
        { /* N=26 */ }
    e=34217728;
 
var
    fi,fo:file of byte;
    a,i,b:byte;
    c:longint;
    s:string;
        Label labl;
function Ed(var x):byte;
 var
    b:longint;
    i,a:byte;
    begin
     b:=longint(x);
         a:=b mod 2;
     for i:=1 to 25 do
      a:=a xor ((b shr 1) and 1);
      b:=b shr 1;
          Ed:=a;
        end;
BEGIN
 
 begin
 labl:
 write('file in :');
 readln(s);
 assign(fi,s);
 reset(fi);
 
 if (filesize(fi) > 512000) { 500 Kb}
 then
     begin
          writeln('File is too large!');
          goto labl;
     end;
 
      write('file out :'); readln(s); assign(fo,s);
    reset(fi); rewrite(fo);
    while not eof(fi) do
     begin
      read(fi, a);
          b:=0;
      for i:=1 to 8 do
       begin
        if (key mod 2)=1 then b:=b or (1 shl (8-i)); c:=key and mask;
        key:=(key shr 1) or (Ed(c)*e)
       end;
      a:=a xor b;
          write(fo,a);
        end;
 
    close(fi);
        close(fo);
     
 end;
 
END.
Добавлено через 3 часа 46 минут
посоветуйте что нибудь , может формула есть какая , или надо дополнительную программку написать для вычисления маски ?

Вернуться к обсуждению:
Шифровка / дешифровка файлов (scrembler)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2013, 18:24
Готовые ответы и решения:

Найти ошибку (шифровка/дешифровка)
Задание написать шифровку/дешифровку некоторой строки методом сдвига (шифр Цезаря) Спустя 2 часа...

Шифровка\Дешифровка текста. Курсак горит(( SOS
Курсовая работа. 1-й курс. Паскаль. Задание: Нужно сделать 2 проги в одной для...

Шифровка/дешифровка
Написать программу шифровки/дешифровки методом биграмм! НА сайте не нашёл >> создал тему!

Шифровка и дешифровка
Составить программы шифровки и дешифровки текстов с помощью ключевой фразы Сначала составим ...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.