Coldzer0
1مشاركة
0السمعة
0موضوع منشور
7 ديسمبر 2011تاريخ الانضمام
7 ديسمبر 2011آخر زيارة
695مشاهدة للملف
- توليد مفتاح تشفير عشوائي
استحدم الفنكشن التالى 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 قم بتعريف متغير من نوع نص va…