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

[Shouldercannon]

12345 - 6A9D545256E3C50A34
54321 - 66AD546AD5605FD6B5
Что за вид (HEX и т.д.), к которому приведены: 12345 и 54321? Как такое сделать самому?

[WorldMaster]

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

12345 - 6A9D545256E3C50A34
54321 - 66AD546AD5605FD6B5
Что за вид (HEX и т.д.), к которому приведены: 12345 и 54321? Как такое сделать самому?

Вот сайтик с утилитой которая декодирует данные.
А вот тут можно скачать саму утилиту.
Возможно что программа не особо защищена, ее можно вскрыть в какой нибудь IDA и посмотреть алгоритмы дешифровки.
Это на первый взгляд.

[Shouldercannon]

Возможно что программа не особо защищена, ее можно вскрыть в какой нибудь IDA и посмотреть алгоритмы дешифровки.

С моими познаниями в программировани врядли смогу что-нибудь толковое вытащить.

[WorldMaster]

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

С моими познаниями в программировани врядли смогу что-нибудь толковое вытащить.

А утилита вам не поможет?? Или обязательно нужен алгоритм?

[Shouldercannon]

Алгоритм, хочу в своей программе поселить

[WorldMaster]

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

Алгоритм, хочу в своей программе поселить

Хм. .. ну вот я пока не смог найти алгоритма ...
Теоретически я мог бы попробовать вскрыть программу и достать алгоритм ... однако есть парочку но ...

[Shouldercannon]

Что за но ?

[bizkitlimp]

Алгоритмов миллионы можно напридумать.
Вот к примеру шифрование строк в одной космической леталке, с нуля так сказать.
12345 будет CFFECEFDCD25D0;
54321 будет CB00CC01CD;

Сам не спец, но потихоньку дело идет.

//String to HEX(bytes)
function StringToHex(const Source: String): String;
var i, Len: Integer;
begin
  Result := '';
  Len := Length(Source);
  for i := 1 to Len do
    Result := Result + IntToHex(Ord(Source[i]), 2);// + ' ';
end;

// HEX(bytes) to String
function HexToString(Source: String): String;
var
  i: integer;
begin
  result := '';
  for i := 1 to Length(source) div 2 do
    try result := result + chr(StrToInt('$' + copy(source, i*2-1, 2)));
    except result := result + '?'; end;
end;

//Decrypt
function DecryptSTRG (a,b:byte):byte;
begin
  Result:=(a xor $FF)-b;
end;

//Encrypt
function EncryptSTRG (a,b:byte):byte;
begin
  Result:=(a xor $FF)-b;
end;

//Decrypt bytes
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c:byte;
s1,s2,s3,decode_str:string;
i:integer;
label next_char,enddecryption;
begin
 s1:=memo2.Text;
 Memo1.Clear;
 i:=length(s1)+1;
// showmessage(inttostr(i));
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;



end;

//Encrypt bytes
procedure TForm1.Button4Click(Sender: TObject);
var
a,b,c:byte;
s1,s2,s3:string;
i:integer;
label next_char,endencryption;
begin
 s1:=stringtohex(memo1.Text);
 Memo2.Clear;
 a:=$FF;
 i:=0-1;
next_char:
 inc(i,2);
 s2:=s1[i]+s1[i+1];
 b:=StrToInt('$'+copy(s2,0,4));
  Memo2.Text:=memo2.Text+inttohex(encryptstrg(b,a),2);
  a:=encryptstrg(b,a);
  if i >  length(s1)-2 then goto endencryption else goto next_char;
  endencryption:
  memo1.Clear;

end;

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

вам нужно просто нечто подобное?
или именно то что там?
это похоже на Hash.

[WorldMaster]

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

Что за но ?

А то что Вам предложил bizkitlimp не устроит?? Вам именно тот алгоритм нужен???