تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Keygen: @P Product
#1
السلام عليكم و رحمة الله و بركاته

رابط البرنامج:
https://mega.nz/file/xfFwBZbS#oEjQceJrMmi0I_00RlEExz0tQ_jkn7RTox2Z_4325IQ



 
إقتباس :
Hard كتب : سورس الكيجن
ارجوا ان يعجبكم
 
var
Serial,A, K:string;
c,g,v,i:integer;
begin

    Randomize;

     K:='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
     A:='xxxxxxxxxxxxxxxx';
     for i:=1 to length(A) do
     A[i]:=K[Random(length(k))+1];

     Serial := A;
     c := random(90)+$10;
     g := Abs(2*c - 155) + 65;
     v := (155 - c);
     
     Serial[4] := chr(g);
     Serial[8] := chr(c);
     Serial[11] := chr(v);

     Edit1.Text := Serial;

//ملاحضة بسيطة دالة الاحرف العشوائية اخدتها من اول درس في الدورة :D

end; 



 
إقتباس : 
esso_x كتب :  السلام عليكم
وهذا كود الكيجين Delphi + ASM
بالتوفيق
 
  function Randme : String;  
 var
 A, K: String;
 i : Integer;
 begin
   K:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
   A:='xxxxxxxxxxxxxxxx';
   for i:=1 to length(A) do
   A[i]:=K[Random(length(k))+1];
   Result := A;
 end;
  procedure TForm1.Button1Click(Sender: TObject);
 var
 S:string;
 Ser1,Ser2,Ser3:integer;
 begin
Repeat
 S:= Randme;
//--------------------------------------------
      ASM
     PUSHAD
     MOV EBX,S //[ARG.2]     ; serial
     @_ApDocTo_004091A5:
     MOVSX ESI,BYTE PTR DS:[EBX+7]
     MOV EAX,ESI
     MOVSX EDI,BYTE PTR DS:[EBX+0Ah]
     ADD EAX,EDI
     CMP EAX,09Bh
     mov Ser1,eax
     MOV ECX,ESI
     SUB ECX,EDI
     MOV EAX,ECX
     CDQ
     XOR EAX,EDX
     SUB EAX,EDX
     ADD EAX,041h
     mov Ser2,eax  //----> To make loop
     MOVSX EDX,BYTE PTR DS:[EBX+3]
     mov Ser3,edx //----> To make loop
     CMP EAX,EDX
     POPAD
     end;
//--------------------------------------------
 Until (Ser1 = $9B) and (Ser2 = Ser3);
 edit1.text:= S;
 end;
أَخي لَن تَنالَ العِلمَ إِلّا بِسِتَّةٍ · سَأُنبيكَ عَن تَفصيلِها بِبَيانِ · ذَكاءٌ وَ حِرصٌ وَ اِجتِهادٌ وَ بُلغَةٌ · وَصُحبَةُ أُستاذٍ وَ طولُ زَمانِ 
أعضاء أعجبوا بهذه المشاركة : the9am3 , R333T , DarkDeath
#2
بارك الله فيك على الطرح.  Heart
تم تجربة الدلفي  nice

[صورة مرفقة: a1.png]

لاكن دلفي مع ASM لم يشتغل معي راجع هذا الفيديو  Cafe
 
https://youtu.be/1QXngMT9ekQ


لقد قمت بترجمة الكود ل C++14   lightsmile

 
 

#include <iostream>
#include <string>

using namespace std;


int main() {

bool inner_debug_keygen_mode = true;

string Serial;
string KeyX= "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
string RandomAlphabets = "xxxxxxxxxxxxxxxx";

int c,g,v;

// Use current time as seed for random generator
srand(time(0));

for (int i = 0; i < RandomAlphabets.length() - 1 ; ++i) {
RandomAlphabets[i] = KeyX[rand() % (KeyX.length()-1)];
}
// Debug RandomAlphabets
if (inner_debug_keygen_mode)
cout << "RandomAlphabets: " << RandomAlphabets << endl;

Serial = RandomAlphabets;

c = (rand() % 90)+ 0x10;


if (inner_debug_keygen_mode)
cout << "c: " << c << endl;

g = abs(2*c - 155) + 65;

if (inner_debug_keygen_mode)
cout << "g: " << g << endl;
v = (155 - c);

if (inner_debug_keygen_mode)
cout << "v: " << v << endl;

Serial[4-1] = static_cast<char>(g);
Serial[8-1] = static_cast<char>(c);
Serial[11-1] = static_cast<char>(v);

cout << "Serial: " << Serial << endl;

return 0;
}

بارك الله فيك  flower
   never give up keep going keep reversing
لتنزيل جميع البرامج التعليمية التي قمت بنشرها هنا
أعضاء أعجبوا بهذه المشاركة : the9am3 , DarkDeath , Polia , thE Cur!ouZ
#3
Hi 
small code without Loop

sn: DYWLVVGHXESDJADZ


الملفات المرفقة الشكل المصغر
   
أعضاء أعجبوا بهذه المشاركة : TeRcO , the9am3 , DarkDeath , Polia


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


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