henry chen

henry chen

  • NA
  • 3
  • 3k

please help , how to make a key generator from this code

Nov 6 2010 2:54 AM

VERSION 5.00
Begin VB.Form frmRegistration
Caption =
"Registration"
ScaleMode = 1
AutoRedraw =
False
FontTransparent =
True
BorderStyle = 3
'Fixed Dialog
Icon =
"frmRegistration.frx":0
LinkTopic =
"Form1"
MaxButton = 0
'False
MinButton = 0
'False
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 5190
ClientHeight = 3645
LockControls = -1
'True
ShowInTaskbar = 0
'False
Begin TextBox txtHardwareID
BackColor = &H80000004&
Left = 120
Top = 480
Width = 3615
Height = 315
TabIndex = 5
Locked = -1
'True
End
Begin CommandButton btnSend
Caption =
"Send"
Left = 3840
Top = 435
Width = 1215
Height = 375
TabIndex = 4
End
Begin TextBox txtRegKey
Left = 120
Top = 1560
Width = 4930
Height = 350
TabIndex = 3
ScrollBars = 2
End
Begin TextBox txtRegName
Left = 120
Top = 2520
Width = 4930
Height = 350
Text =
"Aldelo User"
TabIndex = 2
Locked = -1
'True
End
Begin CommandButton btnCancel
Caption =
"Cancel"
Left = 1440
Top = 3120
Width = 1215
Height = 375
TabIndex = 1
End
Begin CommandButton btnOkay
Caption =
"OK"
Left = 120
Top = 3120
Width = 1215
Height = 375
TabIndex = 0
End
Begin Label Label1
Caption =
"Please send your Hardware ID to the author"
Left = 120
Top = 120
Width = 3975
Height = 255
TabIndex = 8
BeginProperty Font
Name =
"Arial"
Size = 8.25
Charset = 204
Weight = 700
Underline = -1
'True
Italic = 0
'False
Strikethrough = 0
'False
EndProperty
End
Begin Label Label2
Caption =
"Enter your registration key below, please:"
Left = 120
Top = 1200
Width = 3855
Height = 255
TabIndex = 7
BeginProperty Font
Name =
"Arial"
Size = 8.25
Charset = 204
Weight = 700
Underline = -1
'True
Italic = 0
'False
Strikethrough = 0
'False
EndProperty
End
Begin Label Label3
Caption =
"Enter your registration name below, please:"
Left = 120
Top = 2160
Width = 3975
Height = 255
TabIndex = 6
BeginProperty Font
Name =
"Arial"
Size = 8.25
Charset = 204
Weight = 700
Underline = 0
'False
Italic = 0
'False
Strikethrough = 0
'False
EndProperty
End
End

Attribute VB_Name =
"frmRegistration"
'VA: 0

Private
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub
Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Sub Lib ""()
'VA: 0

Private
Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
'VA: 0

Private
Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'VA: 0

Private
Declare Function ResumeThread Lib "kernel32" Alias "ResumeThread" (ByVal hThread As Long) As Long
'VA: 0

Private
Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
'VA: 0

Private
Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
'VA: 0

Private
Declare Sub InitCommonControls Lib "comctl32.dll"()
Private
Sub Form_Load() '4046A0
loc_004046C2: var_8 = &H4011A0
loc_004046FD: Proc_015C0000(var_20, esi, esi)
loc_00404702: esi = arg_8
Or eax+09h
loc_00404705: (var_20, arg_8, arg_8)
loc_0040470F: Proc_015C0000((var_20, arg_8, arg_8), (var_20, arg_8, arg_8), var_18)
loc_00404714:
in eax, E8h
loc_00404716: out B8h, al
loc_00404725: Proc_015C0000(Proc_015C0000((var_20, arg_8, arg_8), (var_20, arg_8, arg_8), var_18), var_1C, var_18)
loc_0040472D: txtHardwareID.Text = Proc_015C0000(Proc_015C0000((var_20, arg_8, arg_8), (var_20, arg_8, arg_8), var_18), var_1C, var_18)
loc_00404737:
If Proc_015C0000(Proc_015C0000((var_20, arg_8, arg_8), (var_20, arg_8, arg_8), var_18), var_1C, var_18) >= 0 Then GoTo loc_0040474B
loc_00404745: Proc_015C0000(Proc_015C0000(Proc_015C0000((var_20, arg_8, arg_8), (var_20, arg_8, arg_8), var_18), var_1C, var_18), edx, ecx)
loc_0040474B:
loc_00404755: Proc_015C0000(var_1C, edx, var_18)
loc_0040475F: ebp = esp - 1
loc_00404760: loopnz 40474Ah
loc_00404762:
call far 7D89:8E011BB8h(00000002h, var_18, var_1C, Proc_015C0000(Proc_015C0000((var_20, arg_8, arg_8), (var_20, arg_8, arg_8), var_18), var_1C, var_18), arg_8 Or eax+09h, 004021FCh, 000000A4h, var_1C, var_18)
loc_0040476F:
GoTo loc_0040478E
loc_0040477B: Proc_015C0000(var_18, var_1C, ecx)
loc_00404780: xchg edi, eax
loc_00404786: loopnz 404770h
loc_00404788:
If esp - 1 = 0 Then GoTo loc_00404742
loc_0040478E:
Exit Sub
End
Sub
Private
Sub Form_Initialize() '404630
loc_00404652: var_8 = &H401198
loc_0040466F: InitCommonControls(edi, esi, ebx)
loc_00404674: Proc_015C0000(InitCommonControls(edi, esi, ebx), eax, arg_8)
loc_0040467E: [eax] = [eax] + FC45C7h
loc_00404680: [ebx-74AFF7BBh] = [ebx-74AFF7BBh] + cl
loc_00404686: bh = bh
Or bh
loc_00404689: [ebx+4D8BFC45h] = [ebx+4D8BFC45h]
Or cl
loc_0040468F:
in al, dx
End
Sub
Private
Sub btnCancel_Click() '404170
loc_00404192: var_8 = &H401170
loc_004041B9:
call Me.Hide(edi, arg_8, ebx)
loc_004041C3:
If Me.Hide(edi, arg_8, ebx) >= 0 Then GoTo loc_004041D7
loc_004041D1: Proc_015C0000(
Me.Hide(edi, arg_8, ebx), esi, esi)
loc_004041D6:
loc_004041D8:
If Not Asm.l_flag Then GoTo loc_004041D6
End
Sub
Private
Sub btnSend_Click() '4044C0
loc_004044E2: var_8 = &H401188
loc_00404525: Proc_015C0000(var_30, esi, esi)
loc_0040452C:
If Not Asm.s_flag Then GoTo loc_004044BB
loc_0040452F: Proc_0ECB9B86(Proc_015C0000(var_30, esi, esi), edx, ecx)
loc_00404534: var_30 = txtHardwareID.Text
loc_0040453E:
If var_30 >= 0 Then GoTo loc_00404552
loc_0040454C: Proc_015C0000(var_30, edx, ecx)
loc_00404552:
loc_00404563: Var_Ret_1 = 4204896
loc_0040456F: Var_Ret_2 = 4204896
loc_0040457B: Proc_015C0000(Var_Ret_2, var_18, var_28)
loc_00404587:
If Not Asm.z_flag Then GoTo loc_00404543
loc_00404591: Var_Ret_3 = Proc_015C0000(Var_Ret_2, var_18, var_28)
loc_0040459D: Var_Ret_4 =
"open"
loc_004045A1: ShellExecute(edi, Var_Ret_4, Var_Ret_3, esp, Var_Ret_5 =
#x1%StkVar2, var_18)
loc_004045A6: Proc_015C0000(Var_Ret_5, edx, var_1C)
loc_004045AB: xchg esp, eax
loc_004045C6: Proc_015C0000(var_1C, var_20, var_18)
loc_004045D2: Proc_015C0000(Proc_015C0000(var_1C, var_20, var_18), edx, var_30)
loc_004045D7: ecx = ecx + ecx+1068FC7Dh
loc_004045DD: esi = %S_eax_S =
#x1%StkVar2 + 1
loc_004045DE: eax = Proc_015C0000(Proc_015C0000(var_1C, var_20, var_18), edx, var_30) + 1
loc_004045DF: bl = bl + ecx+ecx+1068FC7Dh
loc_004045E1: Proc_015C0000(Proc_015C0000(var_1C, var_20, var_18), edx, var_30) + 1 = Proc_015C0000(Proc_015C0000(var_1C, var_20, var_18), edx, var_30) + 1 - 8DD4558Dh
loc_004045E6: ebp = esp + 1
loc_004045E7: fcom real4 ptr [edx-73h]
loc_004045EA: ebp = esp + 1 - 1
loc_004045EB: fcom real8 ptr [eax-73h]
loc_004045EF: loopnz 404642h
loc_004045FC: Proc_015C0000(var_1C, edx, var_18)
loc_00404601: Proc_015C0000(var_1C, edx, var_18) = Proc_015C0000(var_1C, edx, var_18) - bl+ecx+ecx+1068FC7Dh
loc_00404609: rep mov ecx, C3DF011Bh

End
Sub
Private
Sub btnOkay_Click() '404200
loc_0040427A: Proc_015C0000(var_28, esi, esi)
loc_00404289: var_18 = txtRegKey.Text
loc_00404293:
If var_18 >= 0 Then GoTo loc_004042A7
loc_004042A1: Proc_015C0000(var_18, var_18, ebx)
loc_004042A6: bound ecx, [ebx-6F00A9FAh]
loc_004042AC: [ebx] = [ebx]
Or Proc_015C0000(var_18, var_18, ebx)
loc_004042AE: [eax] = [eax] + Proc_015C0000(var_18, var_18, ebx)
loc_004042B5: Proc_015C0000(eax]+Proc_015C0000(var_18, var_18, ebx, edx, var_2C)
loc_004042BA: fidivr dword ptr [ebx*8+50E4458Dh]
loc_004042C4: var_2C =
Me.Mousepointer
loc_004042CE:
If var_2C >= 0 Then GoTo loc_004042E2
loc_004042DC: Proc_015C0000(var_2C, ebx, ecx)
loc_004042E1:
GoTo loc_0040426E
loc_004042E3: ebp = esp - 1
loc_004042E4:
in al, 8Bh
loc_004042F2:
call ebx] Or Proc_015C0000(var_18, var_18, ebx(var_24, ecx, FFFFFFFFh, ebx] Or Proc_015C0000(var_18, var_18, ebx, 004021FCh, 000000A0h, eax]+Proc_015C0000(var_18, var_18, ebx, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx)
loc_004042FD:
call ebx] Or Proc_015C0000(var_18, var_18, ebx(var_20, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx(var_24, ecx, FFFFFFFFh, ebx] Or Proc_015C0000(var_18, var_18, ebx, 004021FCh, 000000A0h, eax]+Proc_015C0000(var_18, var_18, ebx, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx))
loc_00404300: (ebx]
Or Proc_015C0000(var_18, var_18, ebx(var_20, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx(var_24, ecx, FFFFFFFFh, ebx] Or Proc_015C0000(var_18, var_18, ebx, 004021FCh, 000000A0h, eax]+Proc_015C0000(var_18, var_18, ebx, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx)))
loc_00404307: Proc_015C0000((ebx]
Or Proc_015C0000(var_18, var_18, ebx(var_20, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx(var_24, ecx, FFFFFFFFh, ebx] Or Proc_015C0000(var_18, var_18, ebx, 004021FCh, 000000A0h, eax]+Proc_015C0000(var_18, var_18, ebx, var_18, ebx] Or Proc_015C0000(var_18, var_18, ebx))), var_24, var_20)
loc_0040430E: shl [esi-7Dh], cl
loc_00404312: [edi] = [edi] - 1
loc_00404314: xchg esp, eax

End
Sub

Attachment: New Folder.rar

Answers (2)