TECHNOLOGIES
FORUMS
JOBS
BOOKS
EVENTS
INTERVIEWS
Live
MORE
LEARN
Training
CAREER
MEMBERS
VIDEOS
NEWS
BLOGS
Sign Up
Login
No unread comment.
View All Comments
No unread message.
View All Messages
No unread notification.
View All Notifications
Answers
Post
An Article
A Blog
A News
A Video
An EBook
An Interview Question
Ask Question
Forums
Monthly Leaders
Forum guidelines
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
Reply
Answers (
2
)
image printing in crystal report
Login Screen