| Zira 8 Keygenme! |
=======================================================================
KG Scheme
=======================================================================
[ INPUT: USERNAME ] (E.g., "ALBERT" - Only the first 5 characters are used)
|
|-- USED INDEXES: [1] [2] [3] [4] [5]
| A L B E R
|
|
+---> [ STEP 1: MIDDLE CHARACTERS ] (Positions 2, 3, 4 -> "LBE")
| |
| v
| Convert to HEX value: L -> 4C, B -> 42, E -> 45
| |
| v
| Reverse order (From left-to-right to right-to-left)
| [4C][42][45] ===> Part 1: "45424C"
| |
| |
+---> [ STEP 2: OUTER CHARACTERS ] (Positions 1 and 5 -> "A" and "R")
|
v
Process via the XOR logical operation:
ASCII value for 'A' = 65 (01000001 in binary)
ASCII value for 'R' = 82 (01010010 in binary)
----------------------------------------------
65 XOR 82 = 115 (01110011 in binary)
|
v
Convert to HEX value:
115 ===> Part 2: "73"
|
v
=======================================================================
[ STEP 3: CONCATENATE HEX STRINGS ]
=======================================================================
Combine Part 1 with Part 2:
"45424C" + "73" ===> Full Hex String: "45424C73"
|
v
=======================================================================
[ STEP 4: FINAL CONVERSION TO DECIMAL ]
=======================================================================
Convert the number from Base 16 (Hex) to Base 10 (Decimal):
HEX: "45424C73" ===> DECIMAL: 1161972851
|
v
[ OUTPUT / RESULT ]: "1161972851" (This is the correct final Serial)
=======================================================================
=======================================================================
KG Algo
=======================================================================
Public Function GenerateSerial(ByVal userName As String) As String
' Condition: The name must have at least 5 characters
If Len(userName) < 5 Then
GenerateSerial = "Error: The name must have at least 5 characters!"
Exit Function
End If
Dim midChars As String
Dim reversedHex As String
Dim i As Integer
Dim charHex As String
' 1. Process the middle characters (Positions 2, 3, and 4 in VB6 since it is 1-indexed)
midChars = UCase(Mid(userName, 2, 3))
reversedHex = ""
For i = 1 To Len(midChars)
' Get the Hex value and prepend it to reverse the order
charHex = Hex(Asc(Mid(midChars, i, 1)))
If Len(charHex) < 2 Then charHex = "0" & charHex ' Safeguard for 2-digit formatting
reversedHex = charHex & reversedHex
Next i
' 2. Process the 1st and 5th characters
Dim char1 As String, char5 As String
char1 = UCase(Mid(userName, 1, 1))
char5 = UCase(Mid(userName, 5, 1))
' XOR operation between ASCII values
Dim xorVal As Integer
xorVal = Asc(char1) Xor Asc(char5)
' Format as a 2-digit Hex string (e.g., prepend 0 if necessary)
Dim xorHex As String
xorHex = Hex(xorVal)
If Len(xorHex) < 2 Then xorHex = "0" & xorHex
' 3. Concatenate the Hex strings
Dim finalHexString As String
finalHexString = reversedHex & xorHex
' 4. Convert to Decimal
' Using Double and manual calculation to avoid "Overflow" or negative numbers from CDbl("&H...")
Dim expectedSerial As Double
expectedSerial = 0
Dim j As Integer
Dim hexDigit As String
Dim digitValue As Integer
For j = 1 To Len(finalHexString)
hexDigit = Mid(finalHexString, j, 1)
If Asc(hexDigit) >= 65 Then ' If it's A-F
digitValue = Asc(hexDigit) - 55
Else ' If it's 0-9
digitValue = Val(hexDigit)
End If
expectedSerial = (expectedSerial * 16) + digitValue
Next j
' Return the result as a String
GenerateSerial = CStr(expectedSerial)
End Function
Private Sub Command1_Click()
Dim serial As String
serial = GenerateSerial(Text1.Text)
MsgBox "Serial: " & serial
End Sub |
2026-06-05 17:39 |
| enable_me_crackme by tay777 |
Step 1:
Open the program in x64dbg
Select File → Open → select crackme.exe
The program will stop at the entry point
Search for calls
Press Ctrl+G and go to address 0x401FAF
You will see:
text
00401FAF | 6A 00 | push 0 |
00401FB1 | 57 | push edi |
00401FB2 | 8B 0F | mov ecx, dword ptr ds:[edi] |
00401FB4 | FF 51 8C | call dword ptr ds:[ecx+8C] |
Step 3: Patch
Select the instruction push 0
Right click → Assemble (or press Space)
Change it to push 1 or nop (type nop twice)
Do the same at address 0x401FEF
Save changes
Right click → Patch → Patch File
Save as crackme_patched.exe
_________________________________________________________
Step 2:
after typing the correct password
("qwertyuiop[]zxcvbnnm,./asdfgghjkl;'1234567/448hjfcjtdfl")
the message "you got it" will appear.
So this is a two-stage crackme: Enable TextBox + Find password. |
2026-05-30 23:04 |
| ZittoKeygenme |
extreme easy, i will upload how to ! |
2024-09-29 17:22 |
| Zira 8 Keygenme! |
very easy "just by changing JE to JNE" everything you write will be accepted. |
2024-09-29 17:04 |