توليد مفتاح تشفير عشوائي

السلام عليكم

ألا يوجد أحد يستطيع مساعدتي

......................

....

....

شكرا لكم

بالتوفيق للجميع

dvb-dz haker كتب:

السلام عليكم

ألا يوجد أحد يستطيع مساعدتي

......................

....

....

شكرا لكم

بالتوفيق للجميع

السلام عليكم

أخي، تفضل هذا هو الكود الذي تبحث عنه

مثال على النتيجة :

a3e7a2f2f3f6a1c6c8a9b0c9f1e3f3b4

تستطيع تغيير الترتيب وكل شيئ

uses
  math, StrUtils;


implementation

{$R *.dfm}
function _gen32ByAnoirsoft: string;
var
  Words : array of String;
  aWords : string;
  Numbers : array of integer;
  aNumbers : integer;
begin
SetLength(Words,6);
Words[0] := 'a'; Words[1] := 'b'; Words[2] := 'c';
Words[3] := 'd'; Words[4] := 'e'; Words[5] := 'f';


Randomize;
aWords := RandomFrom(Words);
// for words
// for integer

SetLength(Numbers,10);
Numbers[0] := 0; Numbers[1] := 1; Numbers[2] := 2;
Numbers[3] := 3; Numbers[4] := 4; Numbers[5] := 5;
Numbers[6] := 6; Numbers[7] := 7; Numbers[8] := 8;
Numbers[9] := 9;
Randomize;
aNumbers := RandomFrom(Numbers);

Result:=RandomFrom(Words)
+inttostr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers))
+RandomFrom(Words)
+IntToStr(RandomFrom(Numbers));

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=_genByAnoirsoft;
end;

end.

استخدم بصمة التشفير المشهورة MD5 فهي المطلوب بالضبط .

فهي تعطي سلسلة بطول 32 حرف بنظام السادس عشر (0-9 A-F)

استحدم الفنكشن التالى

function Randme : String;

var

A, K: String;

i : Integer;

begin

K:='ABCDEF0123456789';

A:='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';

for i:=1 to length(A) do

A:=K[Random(length(k))+1];

Result := A;

end;

وفى حدث click

قم بتعريف متغير من نوع نص

var

str : string;

begin

str = randme;

edit1.text := str;

end;

اتمنى انى افدتك

واى استفسار بخصوص الخوارزميات او التشفير

انا موجود

اخوك محمد