Скачать: CL | DM;

Шифрование   Найти похожие ветки 

← →
Cardinal ©   (2005-02-20 20:47) [0]

Вопрос по шифрованию строки без возможности расшифровки. Я просмотрел много факов - везде защифрованную строку можно расшифровать. Мне надо получить такую строку, чтобы ее нельзя было расшифровать (хэш). Конкретной функции нигде найти не могу. Хэлп!

---

← →
kaZaNoVa ©   (2005-02-20 21:36) [1]

MD5 юзай

---

← →
Alex_Petr ©   (2005-02-20 21:46) [2]

CryptCreateHash
CryptHashData                    
CryptDestroyHash

---

← →
Kolan ©   (2005-02-20 21:52) [3]

> Cardinal ©   (20.02.05 20:47)  

На нахрен она тебе нужна если ты её потом не расшифруешь?

> Конкретной функции нигде найти не могу


Подставляй вместо каждой буквы Random"ом буквы вот и получишь.

А если надо хеш. То вот ещё один:

while (*(StringToHash + I) != "\0")
 {
   Hash = (31 * Hash + *(StringToHash + I));
   I++;
 }
   return Hash;
 }

---

← →
Alex_Petr ©   (2005-02-20 22:00) [4]

Kolan ©   (20.02.05 21:52) [3]
>На нахрен она тебе нужна если ты её потом не расшифруешь?
Может он будет сравнивать результаты шифровки.

---

← →
Alex_Petr ©   (2005-02-20 22:00) [5]

Kolan ©   (20.02.05 21:52) [3]
>На нахрен она тебе нужна если ты её потом не расшифруешь?
Может он будет сравнивать результаты шифровки.

---

← →
Eraser ©   (2005-02-20 22:49) [6]

Cardinal ©
Мне надо получить такую строку, чтобы ее нельзя было расшифровать (хэш)

Я так понимаю тебя интересует алгоритмы шифрования с открытым ключом? RSA, DSA?
Или что?

---

← →
Инк ©   (2005-02-21 02:50) [7]

Вот пример DLL бибилиотеки (Indy)
library crypt;

uses
 Windows,
 StdCtrls,
 SysUtils,
 Classes,
 IdHash,
 IdHashMessageDigest;

{$R *.res}
function md5(str:shortstring):shortstring;stdcall;
Var
 Digest: T4x4LongWordRecord;
 S,S1: String;
 i: Integer;
begin
 SetLength(S, 16);
     with TIdHashMessageDigest5.Create do begin
       Digest := HashValue(str);
       Move(Digest, S[1], 16);
       for i := 1 to Length(S) do begin
         S1 := S1 + Format("%02x", [Byte(S[i])]);
       end;
       while Pos(" ", S1) > 0 do S1[Pos(" ", S1)] := "0";
       Result:=s1;
       Free;
     end;
end;
exports md5;
begin
end.

---

← →
SammIk ©   (2005-02-21 07:06) [8]

2 [6]
Именно хеши его интересуют, а не опенкей.
Это исходит из вопроса->чтоб расшифровать нельзя.

---

← →
Eraser ©   (2005-02-21 10:54) [9]

SammIk ©
Это исходит из вопроса->чтоб расшифровать нельзя.

Ну я так понимаю автор вопроса хотел сказать "Чтобы расшифровать нельзя было ТЕМ ЖЕ КЛЮЧОМ, ЧТО ЗАШИФРОВАТЬ" так? Или не так?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.035 c