Итак,вопрос такой.Есть контрольная сумма Crc32(1163338237 - в десятичном виде).
Зашифрованная данным алгоритмом :
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | var CRCtable: array[0..255] of cardinal;
procedure CRCInit;
var c: cardinal;
k, j: integer;
begin
for k := 0 to 255 do
begin
c := k;
for j := 1 to 8 do
if odd( c ) then
c := (c shr 1) xor $E6B8B860
else
c := (c shr 1);
CRCtable [ k ] := c;
end;
end;
function calcCRC(str:string):integer;
var crc,k:integer;
begin
crc:=$FFFFFFFF;
for k:=1 to length(str) do
crc := (crc shr 8) xor CRCtable[ord(str [ k ]) xor (crc and $000000FF)];
result := crc;
end;
|
Возможно ли перевести ее обратно в обычный текст?
15.01.2015, 21:44
Срочно нужна помощь
Древовидный вид