Шифровка/расшифровка данных

[Shouldercannon]

Способ bizkitlimp сейчас попробую. Один в один не нужен, можно приблизительный способ.

[Пепел Феникса]

может просто MD5 применить?

[3D Hunter]

так ТС еще и расшифровывать надо вроде, тут хэш не поможет.

[Shouldercannon]

У способа bizkitlimp есть минус. Он не может расшифровать предварительно зашифрованный один символ.

[bizkitlimp]

Хм, а ведь точно .
Добавил проверку на длину шифрованного текста и отдельно его "расшифровываем".
Теперь путаюсь уже с этими бесконечными лэйблами

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:byte;
s1,s2,s3,decode_str:string;
i:integer;
label next_char,enddecryption,full_end;
begin
 s1:=memo2.Text;
 Memo1.Clear;
 i:=length(s1)+1;
 if length(s1) = 2 then else goto next_char;
  begin
   s2:=s1[1]+s1[2];
   s3:=s1[i-2]+s1[i-1];
   b:=StrToInt('$'+copy(s2,0,4));
   a:=$FF;
   decode_str:= inttohex(DecryptSTRG(a,b),2)+decode_str;
   memo1.Text:=hextostring(decode_str);
   memo2.Clear;
   goto full_end;
  end;
next_char:
 inc(i,-2);
 s2:=s1[i]+s1[i+1];
 s3:=s1[i-2]+s1[i-1];
 b:=StrToInt('$'+copy(s2,0,4));
 a:=StrToInt('$'+copy(s3,0,4));
 decode_str:= inttohex(DecryptSTRG(a,b),2)+decode_str;
   if i < 4 then goto enddecryption else goto next_char;
  enddecryption:
  b:=$FF;
  decode_str:= inttohex(DecryptSTRG(a,b),2)+decode_str;
  memo1.Text:=hextostring(decode_str);
  memo2.Clear;
  full_end:

Вообще тут 20 раз все не оптимизировано, но принцип понять можно, если по строчке разбирать.
А вот насчет md5 пожалуй ознакомлюсь, что за зверь.

зы
С русскими буквами не работает, возвращает крякозябры
Дружно переходим на английский

___________________

Сообщение от Shouldercannon

Нормально работает на Delphi 7

Delphi XE2, не везет мне(( Придется копать

[3D Hunter]

ТС, используйте свободные и "прямые" компоненты DCPCrypt:
http://www.cityinthesky.co.uk/opensource/DCPcrypt

[Shouldercannon]

С русскими буквами не работает, возвращает крякозябры

Нормально работает на Delphi 7