Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 12
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
.:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS
Шифрование алгоритмом Гронсфельда
Прислано Kest на December 04 2009 09:56:51
Шифрование алгоритмом Гронсфельда:
Переменные:
str,k:string;
i,t:integer;
Алгоритм:
str :=Edit1.Text;
k:=Edit2.Text;
try
for i := 1 to length(str) do
begin
T := (Ord(str[ i ])+ (Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0')));
if T >= 256 then dec(T, 256);
str[ i ] := Chr(T);
memo1.Text:=str;
end;
except MessageDlg('Внимание! Вы не правильно ввели текст или смещение',mtWarning ,[mbOK ],1);
end;
Дешифрация алгоритмом Гронсфельда:
Переменные:
str,k:string;
i,t:integer;
Алгоритм дешифрации:
str:=memo1.Text;
k:=Edit2.Text;
try
for i := 1 to length(str) do
begin
T := (Ord(str[i])-(Ord(K[(pred(i) mod length(K)) + 1]) - Ord('0')) );
if T < 0 then Inc(T, 256);
str[ i ] := Chr(T);
memo2.Text:=str;
end;
except MessageDlg('Сначала зашифруйте текст!!!',mtWarning ,[mbOK ],1);
end;
http://iswoman.com.