![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |