Locked AutoiT Keygen SRC

[H4ckCoder]

This is the hidden content, please

• Sign In
• or
• Sign Up

 

[HIDE-THANKS]

;Shoutouts to Niepro
$Gui = GUICreate("Guitar Pro 5 Keygen", 267, 107, 461, 249)
$Inp_UserID = GUICtrlCreateInput("User-Id", 8, 8, 249, 21, 0x0008)
$Inp_KeyID = GUICtrlCreateInput("Key-ID", 8, 40, 249, 21, 0x0800)
$nfo = GUICtrlCreateButton("Info", 235, 90, 30, 15)
$Generate = GUICtrlCreateButton("Encode", 80, 72, 97, 25)
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit 0
Case $nfo
MsgBox(64, "About", "Coded by Knospenmofo" & @CRLF & "Credits go to EBFE for the help")
Case $Generate

$ID = GUICtrlRead($Inp_UserID)
If StringInStr($ID, ' ') <> 0 Then
MsgBox(48, "Info", "ID mustn't contain spaces!")
ContinueLoop
EndIf
$Arr = StringSplit($ID, '', 2)

Local $eax = 0, $ecx = 0, $edx = 0, $esi = 0, $edi = 0
$eax = BitXOR($eax, $eax)
$ecx = StringLen($ID)
$esi = 1

For $esi = 1 To $ecx
$eax = Asc($Arr[$esi - 1])
$eax *= $esi
$eax += $edx
$edx = BitXOR($edx, $edx)
$edi = 1000
$edx = Mod($eax, $edi)
$eax = Int($eax / $edi)
Next
If $edx = 0 Then
$edx = 1 + 0x119
Else
$edx += 0x119
EndIf

$eax = $edx
$edi = $eax
For $ii = 0 To 4
$eax += $eax * 4
Next
$eax = BitShift($eax, -5)
$Str = String($eax)
local $len
If StringLen($Str) < 9 Then
Do
$Str = "0" & $Str
$len = StringLen($Str)
Until $len = 9
EndIf
$Str &= "9"
$Split = StringSplit($Str, '', 2)
$edx = BitXOR($edx, $edx)
$ecx = 0
Local $Newa = ''
For $esi = 0 To 8 Step 2
$eax = Asc($Split[$esi + 1])
$edx = Asc($Split[$esi])
$eax += $edx - 0x60
$edx = 0
$eax *= $edi
$edx = Mod($eax, 10)
$edx += 0x30
$Newa &= Chr('0x' & Hex($edx, 2))

Next

$Newa = StringSplit($Newa, '', 2)
local $tabl = "ABEHKNRWXZ"
$tabl = StringSplit($tabl, '', 2)
Local $NewKey = ''

$iUBoundTarget = UBound($Newa)
$iUBoundSource = UBound($Split)
ReDim $Newa[$iUBoundTarget + $iUBoundSource]
For $i = 0 To $iUBoundSource - 1
$Newa[$iUBoundTarget + $i] = $Split[$i]
Next

$Split = $Newa
$edi = $Str
For $eax = 0 To -12 Step -1
$ecx = Asc($Split[uBound($Split) - 3 + $eax])
$edx = Asc($Split[uBound($Split) - 2 + $eax])
$ecx += $edx - 0x60

If $ecx > 6 Then
$edx = Asc($Split[uBound($Split) - 1 + $eax])
Else
$ecx = Asc($Split[uBound($Split) - 1 + $eax])
$edx = Asc($tabl[$ecx - 48])

EndIf
$NewKey = Chr($edx) & $NewKey
Next

$edx = Asc($Split[1])
$ecx = Asc($Split[0])
$eax = Asc($tabl[$edx - 48])
$edx = Asc($tabl[$ecx - 48])

$NewKey = Chr($eax) & $NewKey
$NewKey = Chr($edx) & $NewKey

$Split = StringSplit($NewKey, '', 2)
Dim $arrKeyID[17]
For $eax = 0 To 4
$ecx = $Split[$eax]
$edx = $Split[$eax + 5]
$arrKeyID[$eax] = $ecx
$ecx = $Split[$eax + 0xA]
$arrKeyID[$eax + 6] = $edx
$arrKeyID[$eax + 0xC] = $ecx
Next

$arrKeyID[5] = "-"
$arrKeyID[11] = "-"
Local $strKeyID = ''
For $i = 0 To UBound($arrKeyID) - 1
$strKeyID &= $arrKeyID[$i]
Next
ClipPut($strKeyID)
GUICtrlSetData($Inp_KeyID, $strKeyID)

EndSwitch
WEnd

This is the hidden content, please

• Sign In
• or
• Sign Up

[/HIDE-THANKS]