Показать сообщение отдельно
  #1  
Старый 15.01.2015, 21:44
kreuzzz kreuzzz вне форума
Прохожий
 
Регистрация: 15.01.2015
Сообщения: 1
Версия Delphi: delphi
Репутация: 10
По умолчанию Срочно нужна помощь

Итак,вопрос такой.Есть контрольная сумма Crc32(1163338237 - в десятичном виде).
Зашифрованная данным алгоритмом :

Код:
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;

Возможно ли перевести ее обратно в обычный текст?
Ответить с цитированием