Пишем свой шифратор текста

[SAMY93]

Здравствуйте! Сегодня хочу рассказать Вам о крипторе, который написал месяцев 7 назад. Принцип работы данной программы: программа определяет длину введенного слова и сдвигает каждый символ на длину этого слова.

Вот текст самой программы:

var a:string;
i,j,k,p,m:integer;
begin
a:=memo1.text; //Здесь говорим, что текст будет браться из memo
a:=a+’ ‘;
p:=1; k:=0;
// определяем длину слова
for i:=1 to length(a) do
begin
case a[i] of
‘a’..’z',’A’..’Z':inc(k);
‘ ‘ :
begin
j:=p;
while j<=k+p do
begin
case a[j] of
'a'..'z','A'..'Z':
begin
// Здесь происходит тот самый сдвиг, о котором я говорил выше
m:=ord(a[j])+k;
if m>ord(‘z’) then m:=m-26;
if (m>ord(‘Z’))and(m
then m:=m-26;
delete(a,j,1);
insert(chr(m),a,j);
end ;
end;
inc(j);
end;
k:=0; p:=i+1;
end;
end;
end;
memo1.Text:=a;
end;

Ну вот и все. При желании можно добавить русские буквы и цифры. А для того, чтобы сделать дешифратор нужно
изменить строку

if m>ord(‘z’) then m:=m-26;

на строку

if m>ord(‘z’) then m:=m+26;

С вами был Renat. Желаю удачи!

Взято с ***

[SnX]

Невероятный бред.

[Arigato]

Филиал Г-кода на нашем форуме?

[Ghost of Night]

SAMY93 чего вы добивались создавая эту тему???