j502647092
commit
f13d97ffee
|
|
@ -0,0 +1,455 @@
|
|||
VERSION 5.00
|
||||
Begin VB.Form Frm_Main
|
||||
BorderStyle = 0 'None
|
||||
Caption = "Form1"
|
||||
ClientHeight = 3000
|
||||
ClientLeft = 0
|
||||
ClientTop = 0
|
||||
ClientWidth = 4995
|
||||
LinkTopic = "Form1"
|
||||
MaxButton = 0 'False
|
||||
MinButton = 0 'False
|
||||
ScaleHeight = 3000
|
||||
ScaleWidth = 4995
|
||||
ShowInTaskbar = 0 'False
|
||||
StartUpPosition = 2 '屏幕中心
|
||||
Begin 手机说说发表工具.XmlHttp XmlHttp
|
||||
Height = 240
|
||||
Left = 3630
|
||||
Top = 105
|
||||
Visible = 0 'False
|
||||
Width = 240
|
||||
_ExtentX = 423
|
||||
_ExtentY = 423
|
||||
End
|
||||
Begin 手机说说发表工具.Frm_Tols Frm
|
||||
Height = 240
|
||||
Left = 3885
|
||||
Top = 90
|
||||
Visible = 0 'False
|
||||
Width = 240
|
||||
_ExtentX = 423
|
||||
_ExtentY = 423
|
||||
End
|
||||
Begin 手机说说发表工具.TzTab TzTab
|
||||
Height = 3000
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 4995
|
||||
_ExtentX = 8811
|
||||
_ExtentY = 5292
|
||||
TabBt = "$登录||$验证||$发表||#||#手机说说发表工具"
|
||||
Begin 手机说说发表工具.TzButton clear
|
||||
Height = 360
|
||||
Left = 2.00000e5
|
||||
Tag = "3"
|
||||
Top = 510
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 2940
|
||||
Width = 1500
|
||||
_ExtentX = 2646
|
||||
_ExtentY = 635
|
||||
Caption = "清空数据"
|
||||
BackColor = 255
|
||||
StartColor = 255
|
||||
FinshColor = 8421631
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "宋体"
|
||||
Size = 9
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.TextBox suffix
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
Height = 270
|
||||
Left = 2.00000e5
|
||||
TabIndex = 8
|
||||
Tag = "3"
|
||||
Top = 2640
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 915
|
||||
Width = 2865
|
||||
End
|
||||
Begin 手机说说发表工具.TzButton send
|
||||
Height = 270
|
||||
Left = 2.00000e5
|
||||
Tag = "3"
|
||||
Top = 2640
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 3885
|
||||
Width = 930
|
||||
_ExtentX = 1640
|
||||
_ExtentY = 476
|
||||
Caption = "发表"
|
||||
BackColor = 33023
|
||||
StartColor = 33023
|
||||
FinshColor = 8438015
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "宋体"
|
||||
Size = 9
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.TextBox content
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
Height = 1455
|
||||
Left = 2.00000e5
|
||||
TabIndex = 7
|
||||
Tag = "3"
|
||||
Top = 1095
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 150
|
||||
Width = 4680
|
||||
End
|
||||
Begin VB.TextBox vc
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
Height = 250
|
||||
Left = 2.00000e5
|
||||
TabIndex = 4
|
||||
Tag = "2"
|
||||
Top = 975
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 1455
|
||||
Width = 975
|
||||
End
|
||||
Begin 手机说说发表工具.TzButton submit
|
||||
Height = 585
|
||||
Left = 2.00000e5
|
||||
Tag = "2"
|
||||
Top = 1710
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 1192
|
||||
Width = 2610
|
||||
_ExtentX = 4604
|
||||
_ExtentY = 1032
|
||||
Caption = "提交"
|
||||
BackColor = 49344
|
||||
StartColor = 49344
|
||||
FinshColor = 65535
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "微软雅黑"
|
||||
Size = 14.25
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.TextBox password
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
Height = 250
|
||||
IMEMode = 3 'DISABLE
|
||||
Left = 1684
|
||||
PasswordChar = "*"
|
||||
TabIndex = 2
|
||||
Tag = "1"
|
||||
Top = 1410
|
||||
WhatsThisHelpID = 1684
|
||||
Width = 2500
|
||||
End
|
||||
Begin 手机说说发表工具.TzButton Login
|
||||
Height = 405
|
||||
Left = 1605
|
||||
Tag = "1"
|
||||
Top = 1950
|
||||
WhatsThisHelpID = 1605
|
||||
Width = 1785
|
||||
_ExtentX = 3149
|
||||
_ExtentY = 714
|
||||
Caption = "登录手机QQ"
|
||||
BackColor = 49152
|
||||
StartColor = 49152
|
||||
FinshColor = 65280
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "宋体"
|
||||
Size = 9
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.TextBox username
|
||||
Appearance = 0 'Flat
|
||||
BorderStyle = 0 'None
|
||||
Height = 250
|
||||
Left = 1684
|
||||
TabIndex = 1
|
||||
Tag = "1"
|
||||
Top = 990
|
||||
WhatsThisHelpID = 1684
|
||||
Width = 2500
|
||||
End
|
||||
Begin 手机说说发表工具.TzButton close
|
||||
Height = 345
|
||||
Left = 4650
|
||||
Tag = "-1"
|
||||
Top = 0
|
||||
WhatsThisHelpID = 4650
|
||||
Width = 345
|
||||
_ExtentX = 609
|
||||
_ExtentY = 609
|
||||
Caption = "r"
|
||||
BackColor = 192
|
||||
StartColor = 192
|
||||
FinshColor = 255
|
||||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||||
Name = "Webdings"
|
||||
Size = 9
|
||||
Charset = 2
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
End
|
||||
Begin VB.Label Label4
|
||||
Appearance = 0 'Flat
|
||||
AutoSize = -1 'True
|
||||
BackColor = &H80000005&
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "小尾巴"
|
||||
BeginProperty Font
|
||||
Name = "微软雅黑"
|
||||
Size = 10.5
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
ForeColor = &H80000008&
|
||||
Height = 300
|
||||
Left = 2.00000e5
|
||||
TabIndex = 9
|
||||
Tag = "3"
|
||||
Top = 2610
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 165
|
||||
Width = 630
|
||||
End
|
||||
Begin VB.Label prefix
|
||||
AutoSize = -1 'True
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "用户昵称"
|
||||
BeginProperty Font
|
||||
Name = "微软雅黑"
|
||||
Size = 12
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 315
|
||||
Left = 2.00000e5
|
||||
TabIndex = 6
|
||||
Tag = "3"
|
||||
Top = 540
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 1140
|
||||
Width = 960
|
||||
End
|
||||
Begin VB.Image headimg
|
||||
Height = 600
|
||||
Left = 2.00000e5
|
||||
Tag = "3"
|
||||
Top = 420
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 375
|
||||
Width = 600
|
||||
End
|
||||
Begin VB.Label Label3
|
||||
AutoSize = -1 'True
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "验证码"
|
||||
BeginProperty Font
|
||||
Name = "微软雅黑"
|
||||
Size = 10.5
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 300
|
||||
Left = 2.00000e5
|
||||
TabIndex = 5
|
||||
Tag = "2"
|
||||
Top = 945
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 750
|
||||
Width = 630
|
||||
End
|
||||
Begin VB.Image vcimg
|
||||
Height = 600
|
||||
Left = 2.00000e5
|
||||
Tag = "2"
|
||||
Top = 810
|
||||
Visible = 0 'False
|
||||
WhatsThisHelpID = 2520
|
||||
Width = 1485
|
||||
End
|
||||
Begin VB.Label Label2
|
||||
AutoSize = -1 'True
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "QQ密码"
|
||||
BeginProperty Font
|
||||
Name = "微软雅黑"
|
||||
Size = 10.5
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 300
|
||||
Left = 811
|
||||
TabIndex = 3
|
||||
Tag = "1"
|
||||
Top = 1380
|
||||
WhatsThisHelpID = 811
|
||||
Width = 750
|
||||
End
|
||||
Begin VB.Label Label1
|
||||
AutoSize = -1 'True
|
||||
BackStyle = 0 'Transparent
|
||||
Caption = "QQ账号"
|
||||
BeginProperty Font
|
||||
Name = "微软雅黑"
|
||||
Size = 10.5
|
||||
Charset = 134
|
||||
Weight = 400
|
||||
Underline = 0 'False
|
||||
Italic = 0 'False
|
||||
Strikethrough = 0 'False
|
||||
EndProperty
|
||||
Height = 300
|
||||
Left = 811
|
||||
TabIndex = 0
|
||||
Tag = "1"
|
||||
Top = 960
|
||||
WhatsThisHelpID = 811
|
||||
Width = 750
|
||||
End
|
||||
End
|
||||
End
|
||||
Attribute VB_Name = "Frm_Main"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Option Explicit
|
||||
Dim qq As String
|
||||
Dim pwd As String
|
||||
Dim sid As String
|
||||
Dim r_sid As String
|
||||
Dim nike As String
|
||||
|
||||
Dim headpic As String
|
||||
Dim vcpic As String
|
||||
|
||||
Private Sub clear_Click()
|
||||
content = ""
|
||||
suffix = ""
|
||||
End Sub
|
||||
|
||||
Private Sub close_Click()
|
||||
Unload Me
|
||||
End Sub
|
||||
|
||||
Private Function mids(str As String) As String
|
||||
mids = Mid(str, 2, Len(str) - 2)
|
||||
End Function
|
||||
|
||||
Private Sub Login_Click()
|
||||
If Len(username) = 0 Then MsgBox "请输入QQ账号！", 0, "提示": Exit Sub
|
||||
If Len(password) = 0 Then MsgBox "请输入QQ密码！", 0, "提示": Exit Sub
|
||||
Call Analysis(flogin(username, password))
|
||||
End Sub
|
||||
|
||||
Private Sub send_Click()
|
||||
Dim tmp As String
|
||||
tmp = content.Text
|
||||
If Len(tmp) = 0 Then MsgBox "请填写内容！", 0, "提示": Exit Sub
|
||||
|
||||
Dim PostData, PostUrl As String
|
||||
PostUrl = "http://m.qzone.com/mood/publish_mood"
|
||||
PostData = "opr_type=publish_shuoshuo&res_uin=" & qq & "&content=" & tmp & "&richval=&lat=0&lon=0&lbsid=&issyncweibo=0&format=json&sid=" & sid & "&is_winphone=2&source_name=" & suffix
|
||||
|
||||
Dim strAlbum As String
|
||||
strAlbum = XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText, , False)
|
||||
|
||||
If InStr(1, strAlbum, "请先登录") Then
|
||||
MsgBox strAlbum, 0, "发表说说失败！"
|
||||
TzTab.TabID = 1
|
||||
Else
|
||||
MsgBox "发表说说成功！", 0, "提示"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub submit_Click()
|
||||
If Len(vc) = 0 Then MsgBox "请输入验证码！", 0, "提示": Exit Sub
|
||||
Call Analysis(slogin(username, r_sid, vc))
|
||||
End Sub
|
||||
|
||||
Public Function Analysis(ByVal strAlbum As String)
|
||||
Dim arr() As String
|
||||
arr = Split(strAlbum, ",")
|
||||
Select Case arr(2)
|
||||
Case 0 '登陆成功
|
||||
qq = arr(1)
|
||||
sid = mids(arr(4))
|
||||
nike = mids(arr(5))
|
||||
headpic = mids(arr(6))
|
||||
headimg.Picture = XmlHttp.LoadPicture(headpic)
|
||||
prefix = nike
|
||||
TzTab.TabID = 3
|
||||
Exit Function
|
||||
Case 40001 '验证码错误或需要验证码
|
||||
r_sid = mids(arr(4))
|
||||
vcpic = mids(arr(5)) & ".gif"
|
||||
vcimg.Picture = XmlHttp.LoadPicture(vcpic)
|
||||
TzTab.TabID = 2
|
||||
Case 40010 '账号密码错误
|
||||
End Select
|
||||
MsgBox arr(3), vbCritical, "登陆错误!"
|
||||
End Function
|
||||
|
||||
Public Function flogin(ByVal qq As String, ByVal pwd As String) As String
|
||||
Dim PostData, PostUrl, pmd5 As String
|
||||
Dim MD5 As New clsMD5
|
||||
pmd5 = MD5.DigestStrToHexStr(password)
|
||||
PostUrl = "http://pt.3g.qq.com/login?act=json&format=3"
|
||||
PostData = "bid_code=qqchatLogin&qq=" + qq + "&pmd5=" + pmd5 + "&go_url=undefined"
|
||||
flogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText))
|
||||
End Function
|
||||
|
||||
Public Function slogin(ByVal qq As String, ByVal r_sid As String, ByVal vcode As String)
|
||||
Dim PostData, PostUrl
|
||||
PostUrl = "http://pt.3g.qq.com/login?act=json&format=3"
|
||||
PostData = "bid_code=qqchatLogin&r_sid=" + r_sid + "&verify=" + vcode + "&u_token=" + qq + "&qq=" + qq + "&go_url=undefined"
|
||||
slogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText))
|
||||
End Function
|
||||
|
||||
Private Sub TzTab_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
||||
Frm.hMove (Me.hWnd)
|
||||
End Sub
|
||||
|
||||
Private Sub vcimg_Click()
|
||||
vcimg.Picture = XmlHttp.LoadPicture(vcpic)
|
||||
End Sub
|
||||
|
|
@ -0,0 +1,446 @@
|
|||
VERSION 1.0 CLASS
|
||||
BEGIN
|
||||
MultiUse = -1 'True
|
||||
Persistable = 0 'NotPersistable
|
||||
DataBindingBehavior = 0 'vbNone
|
||||
DataSourceBehavior = 0 'vbNone
|
||||
MTSTransactionMode = 0 'NotAnMTSObject
|
||||
END
|
||||
Attribute VB_Name = "clsMD5"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = True
|
||||
Attribute VB_PredeclaredId = False
|
||||
Attribute VB_Exposed = False
|
||||
Private Const OFFSET_4 = 4294967296#
|
||||
Private Const MAXINT_4 = 2147483647
|
||||
|
||||
Private Const S11 = 7
|
||||
Private Const S12 = 12
|
||||
Private Const S13 = 17
|
||||
Private Const S14 = 22
|
||||
Private Const S21 = 5
|
||||
Private Const S22 = 9
|
||||
Private Const S23 = 14
|
||||
Private Const S24 = 20
|
||||
Private Const S31 = 4
|
||||
Private Const S32 = 11
|
||||
Private Const S33 = 16
|
||||
Private Const S34 = 23
|
||||
Private Const S41 = 6
|
||||
Private Const S42 = 10
|
||||
Private Const S43 = 15
|
||||
Private Const S44 = 21
|
||||
|
||||
|
||||
Private State(4) As Long
|
||||
Private ByteCounter As Long
|
||||
Private ByteBuffer(63) As Byte
|
||||
|
||||
Property Get RegisterA() As String
|
||||
RegisterA = State(1)
|
||||
End Property
|
||||
|
||||
Property Get RegisterB() As String
|
||||
RegisterB = State(2)
|
||||
End Property
|
||||
|
||||
Property Get RegisterC() As String
|
||||
RegisterC = State(3)
|
||||
End Property
|
||||
|
||||
Property Get RegisterD() As String
|
||||
RegisterD = State(4)
|
||||
End Property
|
||||
|
||||
Public Function DigestFileToHexStr(FileName As String) As String
|
||||
Open FileName For Binary Access Read As #1
|
||||
MD5Init
|
||||
Do While Not EOF(1)
|
||||
Get #1, , ByteBuffer
|
||||
If Loc(1) < LOF(1) Then
|
||||
ByteCounter = ByteCounter + 64
|
||||
MD5Transform ByteBuffer
|
||||
End If
|
||||
Loop
|
||||
ByteCounter = ByteCounter + (LOF(1) Mod 64)
|
||||
Close #1
|
||||
MD5Final
|
||||
DigestFileToHexStr = GetValues
|
||||
End Function
|
||||
|
||||
|
||||
Public Function DigestStrToHexStr(SourceString As String) As String
|
||||
MD5Init
|
||||
MD5Update Len(SourceString), StringToArray(SourceString)
|
||||
MD5Final
|
||||
DigestStrToHexStr = GetValues
|
||||
End Function
|
||||
|
||||
|
||||
Private Function StringToArray(InString As String) As Byte()
|
||||
Dim i As Integer
|
||||
Dim bytBuffer() As Byte
|
||||
ReDim bytBuffer(Len(InString))
|
||||
For i = 0 To Len(InString) - 1
|
||||
bytBuffer(i) = Asc(Mid(InString, i + 1, 1))
|
||||
Next i
|
||||
StringToArray = bytBuffer
|
||||
End Function
|
||||
|
||||
Public Function GetValues() As String
|
||||
GetValues = LongToString(State(1)) & LongToString(State(2)) & LongToString(State(3)) & LongToString(State(4))
|
||||
End Function
|
||||
|
||||
|
||||
Private Function LongToString(Num As Long) As String
|
||||
Dim a As Byte
|
||||
Dim B As Byte
|
||||
Dim c As Byte
|
||||
Dim d As Byte
|
||||
|
||||
a = Num And &HFF&
|
||||
If a < 16 Then
|
||||
LongToString = "0" & Hex(a)
|
||||
Else
|
||||
LongToString = Hex(a)
|
||||
End If
|
||||
|
||||
B = (Num And &HFF00&) \ 256
|
||||
If B < 16 Then
|
||||
LongToString = LongToString & "0" & Hex(B)
|
||||
Else
|
||||
LongToString = LongToString & Hex(B)
|
||||
End If
|
||||
|
||||
c = (Num And &HFF0000) \ 65536
|
||||
If c < 16 Then
|
||||
LongToString = LongToString & "0" & Hex(c)
|
||||
Else
|
||||
LongToString = LongToString & Hex(c)
|
||||
End If
|
||||
|
||||
If Num < 0 Then
|
||||
d = ((Num And &H7F000000) \ 16777216) Or &H80&
|
||||
Else
|
||||
d = (Num And &HFF000000) \ 16777216
|
||||
End If
|
||||
|
||||
If d < 16 Then
|
||||
LongToString = LongToString & "0" & Hex(d)
|
||||
Else
|
||||
LongToString = LongToString & Hex(d)
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub MD5Init()
|
||||
ByteCounter = 0
|
||||
State(1) = UnsignedToLong(1732584193#)
|
||||
State(2) = UnsignedToLong(4023233417#)
|
||||
State(3) = UnsignedToLong(2562383102#)
|
||||
State(4) = UnsignedToLong(271733878#)
|
||||
End Sub
|
||||
|
||||
'
|
||||
' MD5 Final
|
||||
'
|
||||
Public Sub MD5Final()
|
||||
Dim dblBits As Double
|
||||
|
||||
Dim padding(72) As Byte
|
||||
Dim lngBytesBuffered As Long
|
||||
|
||||
padding(0) = &H80
|
||||
|
||||
dblBits = ByteCounter * 8
|
||||
|
||||
' Pad out
|
||||
lngBytesBuffered = ByteCounter Mod 64
|
||||
If lngBytesBuffered <= 56 Then
|
||||
MD5Update 56 - lngBytesBuffered, padding
|
||||
Else
|
||||
MD5Update 120 - ByteCounter, padding
|
||||
End If
|
||||
|
||||
|
||||
padding(0) = UnsignedToLong(dblBits) And &HFF&
|
||||
padding(1) = UnsignedToLong(dblBits) \ 256 And &HFF&
|
||||
padding(2) = UnsignedToLong(dblBits) \ 65536 And &HFF&
|
||||
padding(3) = UnsignedToLong(dblBits) \ 16777216 And &HFF&
|
||||
padding(4) = 0
|
||||
padding(5) = 0
|
||||
padding(6) = 0
|
||||
padding(7) = 0
|
||||
|
||||
MD5Update 8, padding
|
||||
End Sub
|
||||
|
||||
'
|
||||
' Break up input stream into 64 byte chunks
|
||||
'
|
||||
Public Sub MD5Update(InputLen As Long, InputBuffer() As Byte)
|
||||
Dim II As Integer
|
||||
Dim i As Integer
|
||||
Dim J As Integer
|
||||
Dim k As Integer
|
||||
Dim lngBufferedBytes As Long
|
||||
Dim lngBufferRemaining As Long
|
||||
Dim lngRem As Long
|
||||
|
||||
lngBufferedBytes = ByteCounter Mod 64
|
||||
lngBufferRemaining = 64 - lngBufferedBytes
|
||||
ByteCounter = ByteCounter + InputLen
|
||||
' Use up old buffer results first
|
||||
If InputLen >= lngBufferRemaining Then
|
||||
For II = 0 To lngBufferRemaining - 1
|
||||
ByteBuffer(lngBufferedBytes + II) = InputBuffer(II)
|
||||
Next II
|
||||
MD5Transform ByteBuffer
|
||||
|
||||
lngRem = (InputLen) Mod 64
|
||||
' The transfer is a multiple of 64 lets do some transformations
|
||||
For i = lngBufferRemaining To InputLen - II - lngRem Step 64
|
||||
For J = 0 To 63
|
||||
ByteBuffer(J) = InputBuffer(i + J)
|
||||
Next J
|
||||
MD5Transform ByteBuffer
|
||||
Next i
|
||||
lngBufferedBytes = 0
|
||||
Else
|
||||
i = 0
|
||||
End If
|
||||
|
||||
' Buffer any remaining input
|
||||
For k = 0 To InputLen - i - 1
|
||||
ByteBuffer(lngBufferedBytes + k) = InputBuffer(i + k)
|
||||
Next k
|
||||
|
||||
End Sub
|
||||
|
||||
'
|
||||
' MD5 Transform
|
||||
'
|
||||
Private Sub MD5Transform(Buffer() As Byte)
|
||||
Dim X(16) As Long
|
||||
Dim a As Long
|
||||
Dim B As Long
|
||||
Dim c As Long
|
||||
Dim d As Long
|
||||
|
||||
a = State(1)
|
||||
B = State(2)
|
||||
c = State(3)
|
||||
d = State(4)
|
||||
|
||||
Decode 64, X, Buffer
|
||||
|
||||
' Round 1
|
||||
FF a, B, c, d, X(0), S11, -680876936
|
||||
FF d, a, B, c, X(1), S12, -389564586
|
||||
FF c, d, a, B, X(2), S13, 606105819
|
||||
FF B, c, d, a, X(3), S14, -1044525330
|
||||
FF a, B, c, d, X(4), S11, -176418897
|
||||
FF d, a, B, c, X(5), S12, 1200080426
|
||||
FF c, d, a, B, X(6), S13, -1473231341
|
||||
FF B, c, d, a, X(7), S14, -45705983
|
||||
FF a, B, c, d, X(8), S11, 1770035416
|
||||
FF d, a, B, c, X(9), S12, -1958414417
|
||||
FF c, d, a, B, X(10), S13, -42063
|
||||
FF B, c, d, a, X(11), S14, -1990404162
|
||||
FF a, B, c, d, X(12), S11, 1804603682
|
||||
FF d, a, B, c, X(13), S12, -40341101
|
||||
FF c, d, a, B, X(14), S13, -1502002290
|
||||
FF B, c, d, a, X(15), S14, 1236535329
|
||||
|
||||
' Round 2
|
||||
GG a, B, c, d, X(1), S21, -165796510
|
||||
GG d, a, B, c, X(6), S22, -1069501632
|
||||
GG c, d, a, B, X(11), S23, 643717713
|
||||
GG B, c, d, a, X(0), S24, -373897302
|
||||
GG a, B, c, d, X(5), S21, -701558691
|
||||
GG d, a, B, c, X(10), S22, 38016083
|
||||
GG c, d, a, B, X(15), S23, -660478335
|
||||
GG B, c, d, a, X(4), S24, -405537848
|
||||
GG a, B, c, d, X(9), S21, 568446438
|
||||
GG d, a, B, c, X(14), S22, -1019803690
|
||||
GG c, d, a, B, X(3), S23, -187363961
|
||||
GG B, c, d, a, X(8), S24, 1163531501
|
||||
GG a, B, c, d, X(13), S21, -1444681467
|
||||
GG d, a, B, c, X(2), S22, -51403784
|
||||
GG c, d, a, B, X(7), S23, 1735328473
|
||||
GG B, c, d, a, X(12), S24, -1926607734
|
||||
|
||||
' Round 3
|
||||
HH a, B, c, d, X(5), S31, -378558
|
||||
HH d, a, B, c, X(8), S32, -2022574463
|
||||
HH c, d, a, B, X(11), S33, 1839030562
|
||||
HH B, c, d, a, X(14), S34, -35309556
|
||||
HH a, B, c, d, X(1), S31, -1530992060
|
||||
HH d, a, B, c, X(4), S32, 1272893353
|
||||
HH c, d, a, B, X(7), S33, -155497632
|
||||
HH B, c, d, a, X(10), S34, -1094730640
|
||||
HH a, B, c, d, X(13), S31, 681279174
|
||||
HH d, a, B, c, X(0), S32, -358537222
|
||||
HH c, d, a, B, X(3), S33, -722521979
|
||||
HH B, c, d, a, X(6), S34, 76029189
|
||||
HH a, B, c, d, X(9), S31, -640364487
|
||||
HH d, a, B, c, X(12), S32, -421815835
|
||||
HH c, d, a, B, X(15), S33, 530742520
|
||||
HH B, c, d, a, X(2), S34, -995338651
|
||||
|
||||
' Round 4
|
||||
II a, B, c, d, X(0), S41, -198630844
|
||||
II d, a, B, c, X(7), S42, 1126891415
|
||||
II c, d, a, B, X(14), S43, -1416354905
|
||||
II B, c, d, a, X(5), S44, -57434055
|
||||
II a, B, c, d, X(12), S41, 1700485571
|
||||
II d, a, B, c, X(3), S42, -1894986606
|
||||
II c, d, a, B, X(10), S43, -1051523
|
||||
II B, c, d, a, X(1), S44, -2054922799
|
||||
II a, B, c, d, X(8), S41, 1873313359
|
||||
II d, a, B, c, X(15), S42, -30611744
|
||||
II c, d, a, B, X(6), S43, -1560198380
|
||||
II B, c, d, a, X(13), S44, 1309151649
|
||||
II a, B, c, d, X(4), S41, -145523070
|
||||
II d, a, B, c, X(11), S42, -1120210379
|
||||
II c, d, a, B, X(2), S43, 718787259
|
||||
II B, c, d, a, X(9), S44, -343485551
|
||||
|
||||
|
||||
State(1) = LongOverflowAdd(State(1), a)
|
||||
State(2) = LongOverflowAdd(State(2), B)
|
||||
State(3) = LongOverflowAdd(State(3), c)
|
||||
State(4) = LongOverflowAdd(State(4), d)
|
||||
|
||||
' /* Zeroize sensitive information.
|
||||
'*/
|
||||
' MD5_memset ((POINTER)x, 0, sizeof (x));
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Decode(Length As Integer, OutputBuffer() As Long, InputBuffer() As Byte)
|
||||
Dim intDblIndex As Integer
|
||||
Dim intByteIndex As Integer
|
||||
Dim dblSum As Double
|
||||
|
||||
intDblIndex = 0
|
||||
For intByteIndex = 0 To Length - 1 Step 4
|
||||
dblSum = InputBuffer(intByteIndex) + _
|
||||
InputBuffer(intByteIndex + 1) * 256# + _
|
||||
InputBuffer(intByteIndex + 2) * 65536# + _
|
||||
InputBuffer(intByteIndex + 3) * 16777216#
|
||||
OutputBuffer(intDblIndex) = UnsignedToLong(dblSum)
|
||||
intDblIndex = intDblIndex + 1
|
||||
Next intByteIndex
|
||||
End Sub
|
||||
|
||||
'
|
||||
' FF, GG, HH, and II transformations for rounds 1, 2, 3, and 4.
|
||||
' Rotation is separate from addition to prevent recomputation.
|
||||
'
|
||||
Private Function FF(a As Long, _
|
||||
B As Long, _
|
||||
c As Long, _
|
||||
d As Long, _
|
||||
X As Long, _
|
||||
S As Long, _
|
||||
ac As Long) As Long
|
||||
a = LongOverflowAdd4(a, (B And c) Or (Not (B) And d), X, ac)
|
||||
a = LongLeftRotate(a, S)
|
||||
a = LongOverflowAdd(a, B)
|
||||
End Function
|
||||
|
||||
Private Function GG(a As Long, _
|
||||
B As Long, _
|
||||
c As Long, _
|
||||
d As Long, _
|
||||
X As Long, _
|
||||
S As Long, _
|
||||
ac As Long) As Long
|
||||
a = LongOverflowAdd4(a, (B And d) Or (c And Not (d)), X, ac)
|
||||
a = LongLeftRotate(a, S)
|
||||
a = LongOverflowAdd(a, B)
|
||||
End Function
|
||||
|
||||
Private Function HH(a As Long, _
|
||||
B As Long, _
|
||||
c As Long, _
|
||||
d As Long, _
|
||||
X As Long, _
|
||||
S As Long, _
|
||||
ac As Long) As Long
|
||||
a = LongOverflowAdd4(a, B Xor c Xor d, X, ac)
|
||||
a = LongLeftRotate(a, S)
|
||||
a = LongOverflowAdd(a, B)
|
||||
End Function
|
||||
|
||||
Private Function II(a As Long, _
|
||||
B As Long, _
|
||||
c As Long, _
|
||||
d As Long, _
|
||||
X As Long, _
|
||||
S As Long, _
|
||||
ac As Long) As Long
|
||||
a = LongOverflowAdd4(a, c Xor (B Or Not (d)), X, ac)
|
||||
a = LongLeftRotate(a, S)
|
||||
a = LongOverflowAdd(a, B)
|
||||
End Function
|
||||
|
||||
Function LongLeftRotate(value As Long, bits As Long) As Long
|
||||
Dim lngSign As Long
|
||||
Dim lngI As Long
|
||||
bits = bits Mod 32
|
||||
If bits = 0 Then LongLeftRotate = value: Exit Function
|
||||
For lngI = 1 To bits
|
||||
lngSign = value And &HC0000000
|
||||
value = (value And &H3FFFFFFF) * 2
|
||||
value = value Or ((lngSign < 0) And 1) Or (CBool(lngSign And _
|
||||
&H40000000) And &H80000000)
|
||||
Next
|
||||
LongLeftRotate = value
|
||||
End Function
|
||||
|
||||
Private Function LongOverflowAdd(Val1 As Long, Val2 As Long) As Long
|
||||
Dim lngHighWord As Long
|
||||
Dim lngLowWord As Long
|
||||
Dim lngOverflow As Long
|
||||
|
||||
lngLowWord = (Val1 And &HFFFF&) + (Val2 And &HFFFF&)
|
||||
lngOverflow = lngLowWord \ 65536
|
||||
lngHighWord = (((Val1 And &HFFFF0000) \ 65536) + ((Val2 And &HFFFF0000) \ 65536) + lngOverflow) And &HFFFF&
|
||||
LongOverflowAdd = UnsignedToLong((lngHighWord * 65536#) + (lngLowWord And &HFFFF&))
|
||||
End Function
|
||||
|
||||
Private Function LongOverflowAdd4(Val1 As Long, Val2 As Long, val3 As Long, val4 As Long) As Long
|
||||
Dim lngHighWord As Long
|
||||
Dim lngLowWord As Long
|
||||
Dim lngOverflow As Long
|
||||
|
||||
lngLowWord = (Val1 And &HFFFF&) + (Val2 And &HFFFF&) + (val3 And &HFFFF&) + (val4 And &HFFFF&)
|
||||
lngOverflow = lngLowWord \ 65536
|
||||
lngHighWord = (((Val1 And &HFFFF0000) \ 65536) + _
|
||||
((Val2 And &HFFFF0000) \ 65536) + _
|
||||
((val3 And &HFFFF0000) \ 65536) + _
|
||||
((val4 And &HFFFF0000) \ 65536) + _
|
||||
lngOverflow) And &HFFFF&
|
||||
LongOverflowAdd4 = UnsignedToLong((lngHighWord * 65536#) + (lngLowWord And &HFFFF&))
|
||||
End Function
|
||||
|
||||
Private Function UnsignedToLong(value As Double) As Long
|
||||
If value < 0 Or value >= OFFSET_4 Then Error 6
|
||||
If value <= MAXINT_4 Then
|
||||
UnsignedToLong = value
|
||||
Else
|
||||
UnsignedToLong = value - OFFSET_4
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function LongToUnsigned(value As Long) As Double
|
||||
If value < 0 Then
|
||||
LongToUnsigned = value + OFFSET_4
|
||||
Else
|
||||
LongToUnsigned = value
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,34 @@
|
|||
Type=Exe
|
||||
Form=Frm_Main.frm
|
||||
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
|
||||
UserControl=..\VB用户控件\TzTab.ctl
|
||||
UserControl=..\VB用户控件\XmlHttp.ctl
|
||||
UserControl=..\VB用户控件\TzButton.ctl
|
||||
UserControl=..\VB用户控件\Frm_Tols.ctl
|
||||
Class=clsMD5; clsMD5.cls
|
||||
Startup="Frm_Main"
|
||||
HelpFile=""
|
||||
Command32=""
|
||||
Name="手机说说发表工具"
|
||||
HelpContextID="0"
|
||||
CompatibleMode="0"
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
RevisionVer=0
|
||||
AutoIncrementVer=0
|
||||
ServerSupportFiles=0
|
||||
CompilationType=0
|
||||
OptimizationType=0
|
||||
FavorPentiumPro(tm)=0
|
||||
CodeViewDebugInfo=0
|
||||
NoAliasing=0
|
||||
BoundsCheck=0
|
||||
OverflowCheck=0
|
||||
FlPointCheck=0
|
||||
FDIVCheck=0
|
||||
UnroundedFP=0
|
||||
StartMode=0
|
||||
Unattended=0
|
||||
Retained=0
|
||||
ThreadPerObject=0
|
||||
MaxNumberOfThreads=1
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
Frm_Main = 632, 204, 2031, 848, , 231, 65, 1630, 570, C
|
||||
TzTab = 242, 242, 1641, 747, , 66, 66, 1465, 571, C
|
||||
XmlHttp = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
TzButton = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
Frm_Tols = 0, 0, 0, 0, C, 0, 0, 0, 0, C
|
||||
clsMD5 = 0, 0, 0, 0, C
|
||||
Loading…
Reference in New Issue