[nigh22]

Приветствую!

Из-за того, что тема "Нужна помощь с определением алгоритма шифрования" старая, ответить в ней не позволяют, поэтому создал новую. Прежде всего, большое спасибо Shaft и всем, кто принимал участие в расшифровке.
Конкретно о проблеме: при использовании кода из вышеуказанной темы добрая половина строк в файле не обрабатывается. Также вообще не удается осуществить обратное кодирование.

Очень надеюсь на любую помощь.

[Ejkov]

Очень надеюсь на любую помощь.

[Shaft]

Код:

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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

function Encrypt_(s:string; EncodeTable:array of Integer):string; var   i,KeyL:Integer; begin   Result:='';   KeyL:=0;   for i:=1 to Length(s) do   begin     if KeyL>2 then KeyL:=0;     Result:=Result+Char(Ord(s[i])+EncodeTable[KeyL]);     Inc(KeyL);   end; end;   function Encrypt(s:string):string; const Key1:array[0..2] of Integer=(1,2,0);       Key2:array[0..2] of Integer=(2,3,1);       Key3:array[0..2] of Integer=(3,4,2); var   ParsSTR,NumT:string; begin   Result:='';   if Length(s)<4 then Exit;   ParsSTR:=(Encrypt_(s,Key1));   NumT:=Copy(ParsSTR,1,Pos('-',ParsSTR)-1);   try     StrToInt(NumT);     Result:='"'+Trim(ParsSTR)+'"';   except     try       ParsSTR:=(Encrypt_(s,Key2));       NumT:=Copy(ParsSTR,1,Pos('-',ParsSTR)-1);       StrToInt(NumT);       Result:='"'+Trim(ParsSTR)+'"';     except       try         ParsSTR:=(Encrypt_(s,Key3));         NumT:=Copy(ParsSTR,1,Pos('-',ParsSTR)-1);         StrToInt(NumT);         Result:='"'+Trim(ParsSTR)+'"';       except         Result:='"Error: s1 '+s[1]+' s4 '+s[4]+'"';       end;     end;   end; end;

Файл загружается например в StringList и построчно в цикле обрабатывается

Код:

1 2 3 4 5 6 7

var   i:Integer;   s:string; begin   for i:=0 to sl.count-1 do     s:=Encrypt(sl[i]);//s расшифрованная строка end;