تقييم الموضوع :
  • 2 أصوات - بمعدل 3.5
  • 1
  • 2
  • 3
  • 4
  • 5
Src_In_Delphi_C0mfy Partit!on Recov3ry
#1
اقتباس من الموضوع الأصلي لــ esso_x
 
إقتباس :Application: Comfy Partition Recovery

"Protection : Serial number based on "MD5 + Custom

Multi License

:Home Page
 
http://www.my-data-recovery.com



:Target
http://www.my-data-recovery.com/download/comfy_partition_recovery.exe



:Src
 
var
 Form1: TForm1;
 S : array [1..6] of string =('','COMFY PARTITION RECOVERY','','6C78111B-1BD5-48E9-9F46-257BB8340404','','');
 i ,j : Integer  ;
 x : string;
procedure TForm1.btn1Click(Sender: TObject);
begin
    s[6] := '';
    s[1]:= edt1.text;
    s[3]:= cbb1.Text;
    s[5]:= UpperCase(GetMD5( UpperCase( s[1]+ s[2]+s[3]+s[4] ) ) );
    x   := s[5];  i := 1; j := 4;
    while i <= 16 do
    begin
      s[6] := s[6] +  Copy( IntToStr( ord(x[i]) ),2,1);
      if i = j then
      begin
       s[6] := s[6] + '-' ;
       inc (j,4);
      end;
      inc(i);
    end;  Delete (s[6],Length(s[6]),1);
    edt2.Text := s[6];
end;

"Don't forget to add MD5 to "uses

any question you welcome
BR
Esso_x 


الملفات المرفقة
.rar   Comfy Partition Recovery.rar (الحجم : 13.15 KB / التحميلات : 20)
implicit conversion (think forward)

أعضاء أعجبوا بهذه المشاركة : M!X0R


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم