Lenich
05-06-2008, 03:48
Ребята есть программа которая шифрует текст методом магического квадрата, вот ее код:
function encrypt(str:string):string;
const
base:array [1..16] of byte = (16, 3, 2, 13,
5, 10, 11, 8,
9, 6, 7, 12,
4, 15, 14, 1);
var
i,j:integer;
begin
str:=StringReplace(str,#32,'',[rfReplaceAll]);
If Length(str)>length(base) then SetLength(str,length(base))
else if Length(str)<length(base) then
begin
for i:=Length(str) to length(base) do
str:=str+'.';
end;
Result:='';
for j:=1 to length(base) do
for i:=1 to length(str) do
begin
If i=base[j] then
Result:=Result+str[i];
end;
end;
Но нужен код для дешифровки текаста которая зашифровала эта программа! Очень прошу помощи! И заранее благодорю!
За программу шифровки спасибо некому Voyager!!!
function encrypt(str:string):string;
const
base:array [1..16] of byte = (16, 3, 2, 13,
5, 10, 11, 8,
9, 6, 7, 12,
4, 15, 14, 1);
var
i,j:integer;
begin
str:=StringReplace(str,#32,'',[rfReplaceAll]);
If Length(str)>length(base) then SetLength(str,length(base))
else if Length(str)<length(base) then
begin
for i:=Length(str) to length(base) do
str:=str+'.';
end;
Result:='';
for j:=1 to length(base) do
for i:=1 to length(str) do
begin
If i=base[j] then
Result:=Result+str[i];
end;
end;
Но нужен код для дешифровки текаста которая зашифровала эта программа! Очень прошу помощи! И заранее благодорю!
За программу шифровки спасибо некому Voyager!!!