Шифрование в Delphi
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: пушкин пушкин пушкин изложение, конспекты занятий в детском саду
| Добавил(а) на сайт: Байдавлетов.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
end;
function Decrypt(DecryptStr: String): String;
var
i: integer;
s: String;
begin
DecryptStr:=ReverseString(DecryptStr);
if DecryptStr<>EmptyStr then
for i:=1 to Length(DeCryptStr) do begin
s:=LeftStr(DeCryptStr,1);
DeCryptStr:=RightStr(DeCryptStr,Length DeCryptStr)-1);
//ДЕШИФРОВКА:
result:=result+chr(ord(s[1])-password(PassW)+i);
end;
end;
begin
while true do begin
isCrypt:=0;
writeln(#10+'Crypter >'+#10);
//Какую команду ввел юзер?
readln(ToDo);
if UpperCase(ToDo)='EXIT' then Exit;
if AnsiContainsText(ToDo,'decrypt') then isCrypt:=1
else if AnsiContainsText(ToDo,'crypt') then isCrypt:=2;
//прочитав команду, удаляем ее из строки и читаем дальше
Рекомендуем скачать другие рефераты по теме: bestreferat ru, доклад по истории.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
Главная