Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Const OFS_MAXPATHNAME = 128
Const OF_CREATE = &H1000
Const OF_READ = &H0
Const OF_WRITE = &H1
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Declare Function CopyLZFile Lib "lz32" (ByVal n1 As Long, ByVal n2 As Long) As Long
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Dim n, crack As Boolean
Private Sub Command1_Click()
adfd = Text2
For i = 1 To Len(Text1)
Text2 = Text2 + Text1 + Text3 + Text3 + Text1
Next
For i = 1 To Len(Text2)
d = d + Asc(Mid(Text2, i, 1))
Next
'MsgBox d
d = d Xor 1100
'MsgBox d
aa = CStr(d)
'MsgBox aa
aa = aa + CStr(Val(Text1) / 2 - 2)
'MsgBox aa
Dim dda As Double
dda = i * Asc(Mid(aa, Mid(Text1, 4, 1), 1))
If dda < 65 Or dda > 81 Then dda = 12 + 65
'MsgBox dda
aa = aa + CStr(dda)
'MsgBox aa
Text2 = adfd
'Text4 = aa
If Val(Text4) = aa Then MsgBox "Reg Finish,Now You can Max the WINDOWS and" + vbCrLf + " ENJOY the picture:)Good luck", vbExclamation, "NoName SwordMan": crack = True: Me.WindowState = 2
End Sub
Private Sub Form_Load()
crack = False
Picture1.BackColor = QBColor(Rnd * 15)
Dim Serial As Long, Vname As String, FSName As String
'Create buffers
Vname = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'Get the volume information
xx = GetVolumeInformation("C:\", Vname, 255, Serial, 0, 0, FSName, 255)
'Strip the extra chr$(0)'s
Vname = Left$(Vname, InStr(1, Vname, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
Text1.Text = Trim(Str$(Serial)) + Vname + FSName
End Sub
Private Sub Form_Resize()
If Me.WindowState = 0 And crack = False Then
Me.Height = 3885
Me.Width = 4275
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub NoCrack_Timer()
Dim lngHandle As Long, lngLong As Long
Dim OF As OFSTRUCT
xd = OpenFile(App.Path + "\" + App.EXEName + ".exe", OF, OF_EXIST)
'lngLong = 8888888
www = GetFileSize(xd, lngLong)
If www <> 10752 Then MsgBox "你这个大色狼！脱掉了我的衣服……5555555给你点颜色看看": End
End Sub
Private Sub Timer1_Timer()
' Picture1.BackColor = QBColor(Rnd * 15)
nn = Int(45 * Rnd)
If nn > 0 Then Picture1.FontSize = nn
Picture1.CurrentX = Rnd * Picture1.ScaleWidth
Picture1.CurrentY = Rnd * Picture1.ScaleHeight
Picture1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Picture1.Print "NoName剑人 de CrackMe"
n = n + 1
If n > 50 Then Picture1.BackColor = QBColor(Rnd * 15)
If n > 60 Then n = 0
Picture2.Cls
Picture2.Print "破解以后有秘密！"
End Sub
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
