Passw0rd.Pr0tect.Vide0 Master7.2_KG_SRC

[TeRcO]

السلام عليكم ورحمة الله وبركاته


سورس كيجن بلغة الدلفي ل Password Protect Video Master 7.2

http://www.password-protect-video.com/

شرح الخوارزمية +  الاصدار 7.5
 

https://www.at4re.net/f/thread-3493-post-17064.html#pid17064

 

 { add MD5 to: uses }
procedure TForm1.Button1Click(Sender: TObject);
var
name,Result:string;
begin
 name:=edit1.text;
{نص عشوائي ABCD} Result:=Md5print(Md5String('ABCD'+Md5print(Md5String(name))+name+'qwedfjcuutylmnb3'));
  Insert('A',Result,8);
  Insert('B',Result,13);
  Insert('C',Result,20);
  Insert('D',Result,29);
 Edit2.Text:=Result;
end;