[t116]

Это код линейной шифрации-дешифрации

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s, xxx, pass:string;
    i, j, h, b, c, d:integer;
begin
s:=memo1.Text;
 i:=length(s);// i вернули значение s присвоили кол=во символов в тексте
pass:=edit1.Text;
 j:=length(edit1.Text);//вернули значениеj присвоили кол-во символов в пароле
h:=round(i/j)+1;//кол-во символов текста / на кол-во символов пароля,сколько раз повторится пароль
for b:=1 to h do
pass:=pass+pass; //пароль повторяет себя столько раз сколько символов в тексте
         //цикл for закончился
pass:=copy(pass, 1,i);//с 1 символа и на всю длину текста
//edit1.Text:=pass;проверка пароля
for b:=1 to i do
begin
if (ord (s[b])+ord(pass[b]))>255 then
memo2.Text:=memo2.Text+chr(ord (s[b])+ord(pass[b])-255)
else
memo2.Text:=memo2.Text+chr(ord (s[b])+ord(pass[b]));
end;
END;
procedure TForm1.Button3Click(Sender: TObject);
begin
//преобразование текста в * а потом назад в текст
if edit1.PasswordChar=#0 then
edit1.PasswordChar:='*' else
edit1.PasswordChar:=#0;

end;
///////////////////////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button2Click(Sender: TObject);
var s, xxx, pass:string;
    i, j, h, b, c, d:integer;
begin
s:=memo3.Text;
 i:=length(s);
pass:=edit2.Text;
 j:=length(edit2.Text);
h:=round(i/j)+1;
for b:=1 to h do
pass:=pass+pass;

pass:=copy(pass, 1,i);

for b:=1 to i do
begin
if (ord (s[b])-ord(pass[b]))<1 then
memo4.Text:=memo4.Text+chr(ord (s[b])-ord(pass[b])+255)
else
memo4.Text:=memo4.Text+chr(ord (s[b])-ord(pass[b]));
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
 if edit2.PasswordChar=#0 then
edit2.PasswordChar:='*' else
edit2.PasswordChar:=#0;
end;

end.

Админ: Пользуемся тегами для оформления кода!

[Konrad]

[off]
жесть тема.
Первый раз вижу)
Где я был 22-23-го оО?
[/off]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var s, xxx, pass:string;
    i, j, h, b, c, d:integer;
begin
s:=memo1.Text;
 i:=length(s);// i вернули значение s присвоили кол=во символов в тексте
pass:=edit1.Text;
 j:=length(edit1.Text);//вернули значениеj присвоили кол-во символов в пароле
h:=round(i/j)+1;//кол-во символов текста / на кол-во символов пароля,сколько раз повторится пароль
for b:=1 to h do
pass:=pass+pass; //пароль повторяет себя столько раз сколько символов в тексте
         //цикл for закончился
pass:=copy(pass, 1,i);//с 1 символа и на всю длину текста
//edit1.Text:=pass;проверка пароля
for b:=1 to i do
begin
if (ord (s[b])+ord(pass[b]))>255 then
memo2.Text:=memo2.Text+chr(ord (s[b])+ord(pass[b])-255)
else
memo2.Text:=memo2.Text+chr(ord (s[b])+ord(pass[b]));
end;
END; 


Сорри, но это жестььььььь.

Даже если хоть одну минутут подумать:
в учебных целях

PHP код:

procedure TForm1.Button4Click(Sender: TObject);
var
p,c,pass:string;
i,n,k:integer;
pa:array[0..16]of byte; //'сиё есть ересь'
begin
p:=edit1.Text;
n:=length(p);
pass:=edit2.Text;
k:=length(pass);
if (k>0)and(n>0) then
begin
for i:=1 to k do
  pa[i-1]:=ord(pass[i]); //'сиё есть ересь'
c:='';
for i:=1 to n do
  c:=c+chr((ord(p[i])+pa[i mod k])mod 256); //'сиё есть ересь, в учебных целях сойдет'
memo1.Text:=c;
end;
end; 


Шифр Виженера.
Стойкость =0)

https://secure.wikimedia.org/wikiped.../Шифр_Виженера