|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Срочно нужна помощь
Итак,вопрос такой.Есть контрольная сумма 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; Возможно ли перевести ее обратно в обычный текст? Последний раз редактировалось kreuzzz, 15.01.2015 в 21:55. |