تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
X!lis0ft Vid3o C0nverteR Ult!mate7_Src_KG_!n_Delphi
#1
Wink 
السلام عليكم ورحمه الله



سورس الكيجن .... عذرا ان وجدت اخطاء بالاكواد
 
     { 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;
    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 :=  Copy(Third,1,1)+Copy(Third,3,1)+Copy(Third,5,1)+Copy(Third,7,1)+'-'+Copy(Third,9,1)+Copy(Third,11,1)+Copy(Third,13,1)+Copy(Third,15,1)+'-'
      +Copy(Third,17,1)+Copy(Third,19,1)+Copy(Third,21,1)+Copy(Third,23,1)+ '-'+Copy(Third,25,1)+Copy(Third,27,1)+Copy(Third,29,1)+Copy(Third,31,1);

            Final :=uppercase(First+Last);
        edit1.text:=Final;
     end;



الملفات المرفقة
.rar   md5.rar (الحجم : 3.25 KB / التحميلات : 4)
تم الشكر بواسطة: farfes , [email protected] , Gu-sung18 , muhmath2002 , I TariQ


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


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