X!lis0ft Vid3o C0nverteR Ult!mate7_Src_KG_!n_Delphi

[TeRcO]

السلام عليكم ورحمه الله



سورس الكيجن .... عذرا ان وجدت اخطاء بالاكواد
 

     { Target : Xilisoft Video Converter Ultimate 7
             Protection : MD5 
            Tools Used : Ollydbg
            Author : TeRcO _ AT4RE

            Add:
            MD5.pas to Project
            uses md5 }



    Function RNDM:String; { By nester261 }
    const
      Chars = '123456789ABCDEF';
    var
      S: string;
      i, N: integer;
    begin
      Randomize;
      S := '';
      for i := 1 to 16 do begin
        N := Random(Length(Chars)) + 1;
        S := S + Chars[N];
        result:=S;
      end;
      end;

 
    function HexToString(H: String): String;
    var I: Integer;
    begin
      Result:= '';
      for I := 1 to length (H) div 2 do
        Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));
    end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TXT_RNDM, First, Second, Third, Last, Final, inter_Str_inHEX, ProgName: string;
  i: Integer;
  MD5Part: string;
begin
  TXT_RNDM := Rndm;
  inter_Str_inHEX := '3178016C03730566077609640B6F0D6F0F761172136515751774196D1B741D371F690269046F067408690A650C630E6E106512741472166C18691A611C651E3030';
  ProgName := 'xilisoftvideoconverterultimate7';

  for i := 1 to 4 do
    Insert('-', TXT_RNDM, i * 5);

  First := TXT_RNDM;
  Second := Hextostring(inter_Str_inHEX) + First + ProgName;
  Third := md5print(md5string(Second));

 
  Last := '';
  for i := 1 to 32 do
  begin
    if (i mod 2 = 1) then
      Last := Last + Copy(Third, i, 1);
 
    if (i mod 8 = 0) and (i < 32) then
      Last := Last + '-';
  end;

  Final := UpperCase(First + Last);
  Edit1.Text := Final;
end;