Категория
Информатика
Тип
реферат
Страницы
1 стр.
Дата
15.11.2009
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
18881.zip — 7.88 kb
  • xesh-funkcii-v-kriptosistemax_18881_1.rtf — 43.89 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

added in base.');
repeat until keypressed;
end.
s:
program kuzik;
uses crt, kriptmod;
var x: integer;
i: 1..8;
pass, pass1: string;
l: Llist;
arr: array_type;
f: text;
s, s1: string;
begin
clrscr;
write('Password: '); textcolor(0);readln(pass);
-- Открываем файл с паролями- assign(f,'shadow');
reset(f);
--Читаем ключ- readln(f,x);
--Читаем зашифрованный пароль- readln(f,pass1);
close(f);
--Шифруем только что введённый пароль- add_in_llist(x,pass,l);
summ_all(l,arr);
for i:=1 to 8 do s1:=s1+FromIntToString(arr[i]);
--Сверяем его с паролем из shadow- if (pass1=s1)
then begin
textcolor(2);
writeln('Password correct.')
end
else begin
textcolor(4);
writeln('Password incorrect!');
end;
repeat until keypressed;
end.



Ваше мнение



CAPTCHA