Private m_lOnBits(30)Private m_l2Power(30)Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Function Hex2Bin(HexStr1 As String)Select Case UCase(HexStr1)Case "0"q1 = "0000"Case "1"q1 = "0001"Case "2"q1 = "0010"Case "3"q1 = "0011"Case "4"q1 = "0100"Case "5"q1 = "0101"Case "6"q1 = "0110"Case "7"q1 = "0111"Case "8"q1 = "1000"Case "9"q1 = "1001"Case "A"q1 = "1010"Case "B"q1 = "1011"Case "C"q1 = "1100"Case "D"q1 = "1101"Case "E"q1 = "1110"Case "F"q1 = "1111"End SelectHex2Bin = q1End FunctionFunction Hex2Bin1(HexStr2 As String)q1 = Hex2Bin(Mid(HexStr2, 1, 1))q2 = Hex2Bin(Mid(HexStr2, 2, 1))q3 = Hex2Bin(Mid(HexStr2, 3, 1))q4 = Hex2Bin(Mid(HexStr2, 4, 1))q5 = Hex2Bin(Mid(HexStr2, 5, 1))q6 = Hex2Bin(Mid(HexStr2, 6, 1))q7 = Hex2Bin(Mid(HexStr2, 7, 1))q8 = Hex2Bin(Mid(HexStr2, 8, 1))q9 = Hex2Bin(Mid(HexStr2, 9, 1))q10 = Hex2Bin(Mid(HexStr2, 10, 1))q11 = Hex2Bin(Mid(HexStr2, 11, 1))q12 = Hex2Bin(Mid(HexStr2, 12, 1))Hex2Bin1 = q1 & q2 & q3 & q4 & q5 & q6 & q7 & q8 & q9 & q10 & q11 & q12End FunctionFunction Bin324(BinCode1 As String)q1 = Mid(BinCode1, 1, 6)q2 = Mid(BinCode1, 7, 6)q3 = Mid(BinCode1, 13, 6)q4 = Mid(BinCode1, 19, 6)q5 = Mid(BinCode1, 25, 6)q6 = Mid(BinCode1, 31, 6)q7 = Mid(BinCode1, 37, 6)q8 = Mid(BinCode1, 43, 6)Bin324 = "00" & q1 & "00" & q2 & "00" & q3 & "00" & q4 & "00" & q5 & "00" & q6 & "00" & q7 & "00" & q8End Function
Function Bin2Hex(BinCode2 As String)Select Case UCase(BinCode2)Case "0000"q1 = "0"Case "0001"q1 = "1"Case "0010"q1 = "2"Case "0011"q1 = "3"Case "0100"q1 = "4"Case "0101"q1 = "5"Case "0110"q1 = "6"Case "0111"q1 = "7"Case "1000"q1 = "8"Case "1001"q1 = "9"Case "1010"q1 = "A"Case "1011"q1 = "B"Case "1100"q1 = "C"Case "1101"q1 = "D"Case "1110"q1 = "E"Case "1111"q1 = "F"End SelectBin2Hex = q1End Function
Function Bin2Hex2(BinCode As String)q1 = Bin2Hex(Mid(BinCode, 1, 4))q2 = Bin2Hex(Mid(BinCode, 5, 4))q3 = Bin2Hex(Mid(BinCode, 9, 4))q4 = Bin2Hex(Mid(BinCode, 13, 4))Bin2Hex2 = q1 & q2 & q3 & q4End Function
Function Bin2Hex3(BinCode3 As String)q1 = Bin2Hex2(Mid(BinCode3, 1, 16))q2 = Bin2Hex2(Mid(BinCode3, 17, 16))q3 = Bin2Hex2(Mid(BinCode3, 33, 16))q4 = Bin2Hex2(Mid(BinCode3, 49, 16))Bin2Hex3 = q1 & q2 & q3 & q4End Function
Function HexBase64(HexString As String)HexBase64 = HexBase64_2(Bin2Hex3(Bin324(Hex2Bin1(HexString))))End Function
Function HexBase64_1(HexString As String)Select Case HexStringCase "00"q1 = "A"Case "01"q1 = "B"Case "02"q1 = "C"Case "03"q1 = "D"Case "04"q1 = "E"Case "05"q1 = "F"Case "06"q1 = "G"Case "07"q1 = "H"Case "08"q1 = "I"Case "09"q1 = "J"Case "0A"q1 = "K"Case "0B"q1 = "L"Case "0C"q1 = "M"Case "0D"q1 = "N"Case "0E"q1 = "O"Case "0F"q1 = "P"Case "10"q1 = "Q"Case "11"q1 = "R"Case "12"q1 = "S"Case "13"q1 = "T"Case "14"q1 = "U"Case "15"q1 = "V"Case "16"q1 = "W"Case "17"q1 = "X"Case "18"q1 = "Y"Case "19"q1 = "Z"Case "1A"q1 = "a"Case "1B"q1 = "b"Case "1C"q1 = "c"Case "1D"q1 = "d"Case "1E"q1 = "e"Case "1F"q1 = "f"Case "20"q1 = "g"Case "21"q1 = "h"Case "22"q1 = "i"Case "23"q1 = "j"Case "24"q1 = "k"Case "25"q1 = "l"Case "26"q1 = "m"Case "27"q1 = "n"Case "28"q1 = "o"Case "29"q1 = "p"Case "2A"q1 = "q"Case "2B"q1 = "r"Case "2C"q1 = "s"Case "2D"q1 = "t"Case "2E"q1 = "u"Case "2F"q1 = "v"Case "30"q1 = "w"Case "31"q1 = "x"Case "32"q1 = "y"Case "33"q1 = "z"Case "34"q1 = "0"Case "35"q1 = "1"Case "36"q1 = "2"Case "37"q1 = "3"Case "38"q1 = "4"Case "39"q1 = "5"Case "3A"q1 = "6"Case "3B"q1 = "7"Case "3C"q1 = "8"Case "3D"q1 = "9"Case "3E"q1 = "+"Case "3F"q1 = "/"End SelectHexBase64_1 = q1End Function
Function HexBase64_2(HexString As String)q1 = HexBase64_1(Mid(HexString, 1, 2))q2 = HexBase64_1(Mid(HexString, 3, 2))q3 = HexBase64_1(Mid(HexString, 5, 2))q4 = HexBase64_1(Mid(HexString, 7, 2))q5 = HexBase64_1(Mid(HexString, 9, 2))q6 = HexBase64_1(Mid(HexString, 11, 2))q7 = HexBase64_1(Mid(HexString, 13, 2))q8 = HexBase64_1(Mid(HexString, 15, 2))HexBase64_2 = q1 & q2 & q3 & q4 & q5 & q6 & q7 & q8End Function
Function Hex2Base64(HexCode As String)For i = 0 To Len(HexCode) Step 12q1 = q1 & HexBase64(Mid(HexCode, i + 1, 12))NextHex2Base64 = q1End Function
Private Function md5_F(X, Y, z)md5_F = (X And Y) Or ((Not X) And z)End Function
Private Function md5_G(X, Y, z)md5_G = (X And z) Or (Y And (Not z))End Function
Private Function md5_H(X, Y, z)md5_H = (X Xor Y Xor z)End Function
Private Function md5_I(X, Y, z)md5_I = (Y Xor (X Or (Not z)))End Function
Private Sub md5_FF(a, b, c, d, X, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), X), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Sub md5_GG(a, b, c, d, X, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), X), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Sub md5_HH(a, b, c, d, X, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), X), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Sub md5_II(a, b, c, d, X, s, ac)a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), X), ac))a = RotateLeft(a, s)a = AddUnsigned(a, b)End Sub
Private Function ConvertToWordArray(sMessage)Dim lMessageLengthDim lNumberOfWordsDim lWordArray()Dim lBytePositionDim lByteCountDim lWordCountConst MODULUS_BITS = 512Const CONGRUENT_BITS = 448lMessageLength = Len(sMessage)lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) / BITS_TO_A_BYTE)) / (MODULUS_BITS / BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS / BITS_TO_A_WORD)ReDim lWordArray(lNumberOfWords - 1)lBytePosition = 0lByteCount = 0Do Until lByteCount &= lMessageLengthlWordCount = lByteCount / BYTES_TO_A_WORDlBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTElWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)lByteCount = lByteCount + 1LooplWordCount = lByteCount / BYTES_TO_A_WORDlBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTElWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)ConvertToWordArray = lWordArrayEnd Function
Private Function WordToHex(lValue)Dim lByteDim lCountFor lCount = 0 To 3lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)WordToHex = WordToHex & Right("0" & Hex(lByte), 2)NextEnd Function
Public Function MD5(sMessage, stype)m_lOnBits(0) = CLng(1)m_lOnBits(1) = CLng(3)m_lOnBits(2) = CLng(7)m_lOnBits(3) = CLng(15)m_lOnBits(4) = CLng(31)m_lOnBits(5) = CLng(63)m_lOnBits(6) = CLng(127)m_lOnBits(7) = CLng(255)m_lOnBits(8) = CLng(511)m_lOnBits(9) = CLng(1023)m_lOnBits(10) = CLng(2047)m_lOnBits(11) = CLng(4095)m_lOnBits(12) = CLng(8191)m_lOnBits(13) = CLng(16383)m_lOnBits(14) = CLng(32767)m_lOnBits(15) = CLng(65535)m_lOnBits(16) = CLng(131071)m_lOnBits(17) = CLng(262143)m_lOnBits(18) = CLng(524287)m_lOnBits(19) = CLng(1048575)m_lOnBits(20) = CLng(2097151)m_lOnBits(21) = CLng(4194303)m_lOnBits(22) = CLng(8388607)m_lOnBits(23) = CLng()m_lOnBits(24) = CLng()m_lOnBits(25) = CLng()m_lOnBits(26) = CLng()m_lOnBits(27) = CLng()m_lOnBits(28) = CLng()m_lOnBits(29) = CLng()m_lOnBits(30) = CLng()m_l2Power(0) = CLng(1)m_l2Power(1) = CLng(2)m_l2Power(2) = CLng(4)m_l2Power(3) = CLng(8)m_l2Power(4) = CLng(16)m_l2Power(5) = CLng(32)m_l2Power(6) = CLng(64)m_l2Power(7) = CLng(128)m_l2Power(8) = CLng(256)m_l2Power(9) = CLng(512)m_l2Power(10) = CLng(1024)m_l2Power(11) = CLng(2048)m_l2Power(12) = CLng(4096)m_l2Power(13) = CLng(8192)m_l2Power(14) = CLng(16384)m_l2Power(15) = CLng(32768)m_l2Power(16) = CLng(65536)m_l2Power(17) = CLng(131072)m_l2Power(18) = CLng(262144)m_l2Power(19) = CLng(524288)m_l2Power(20) = CLng(1048576)m_l2Power(21) = CLng(2097152)m_l2Power(22) = CLng(4194304)m_l2Power(23) = CLng(8388608)m_l2Power(24) = CLng()m_l2Power(25) = CLng()m_l2Power(26) = CLng()m_l2Power(27) = CLng()m_l2Power(28) = CLng()m_l2Power(29) = CLng()m_l2Power(30) = CLng()Dim XDim kDim AADim BBDim CCDim DDDim aDim bDim cDim dConst S11 = 7Const S12 = 12Const S13 = 17Const S14 = 22Const S21 = 5Const S22 = 9Const S23 = 14Const S24 = 20Const S31 = 4Const S32 = 11Const S33 = 16Const S34 = 23Const S41 = 6Const S42 = 10Const S43 = 15Const S44 = 21X = ConvertToWordArray(sMessage)a = &Hb = &HEFCDAB89c = &H98BADCFEd = &HFor k = 0 To UBound(X) Step 16AA = aBB = bCC = cDD = dmd5_FF a, b, c, d, X(k + 0), S11, &HD76AA478md5_FF d, a, b, c, X(k + 1), S12, &HE8C7B756md5_FF c, d, a, b, X(k + 2), S13, &H242070DBmd5_FF b, c, d, a, X(k + 3), S14, &HC1BDCEEEmd5_FF a, b, c, d, X(k + 4), S11, &HF57C0FAFmd5_FF d, a, b, c, X(k + 5), S12, &H4787C62Amd5_FF c, d, a, b, X(k + 6), S13, &HA8304613md5_FF b, c, d, a, X(k + 7), S14, &HFD469501md5_FF a, b, c, d, X(k + 8), S11, &Hmd5_FF d, a, b, c, X(k + 9), S12, &H8B44F7AFmd5_FF c, d, a, b, X(k + 10), S13, &HFFFF5BB1md5_FF b, c, d, a, X(k + 11), S14, &H895CD7BEmd5_FF a, b, c, d, X(k + 12), S11, &H6B901122md5_FF d, a, b, c, X(k + 13), S12, &HFD987193md5_FF c, d, a, b, X(k + 14), S13, &HA679438Emd5_FF b, c, d, a, X(k + 15), S14, &H49B40821md5_GG a, b, c, d, X(k + 1), S21, &HF61E2562md5_GG d, a, b, c, X(k + 6), S22, &HC040B340md5_GG c, d, a, b, X(k + 11), S23, &H265E5A51md5_GG b, c, d, a, X(k + 0), S24, &HE9B6C7AAmd5_GG a, b, c, d, X(k + 5), S21, &HD62F105Dmd5_GG d, a, b, c, X(k + 10), S22, &H2441453md5_GG c, d, a, b, X(k + 15), S23, &HD8A1E681md5_GG b, c, d, a, X(k + 4), S24, &HE7D3FBC8md5_GG a, b, c, d, X(k + 9), S21, &H21E1CDE6md5_GG d, a, b, c, X(k + 14), S22, &HC33707D6md5_GG c, d, a, b, X(k + 3), S23, &HF4D50D87md5_GG b, c, d, a, X(k + 8), S24, &H455A14EDmd5_GG a, b, c, d, X(k + 13), S21, &HA9E3E905md5_GG d, a, b, c, X(k + 2), S22, &HFCEFA3F8md5_GG c, d, a, b, X(k + 7), S23, &H676F02D9md5_GG b, c, d, a, X(k + 12), S24, &H8D2A4C8Amd5_HH a, b, c, d, X(k + 5), S31, &HFFFA3942md5_HH d, a, b, c, X(k + 8), S32, &Hmd5_HH c, d, a, b, X(k + 11), S33, &H6D9D6122md5_HH b, c, d, a, X(k + 14), S34, &HFDE5380Cmd5_HH a, b, c, d, X(k + 1), S31, &HA4BEEA44md5_HH d, a, b, c, X(k + 4), S32, &H4BDECFA9md5_HH c, d, a, b, X(k + 7), S33, &HF6BB4B60md5_HH b, c, d, a, X(k + 10), S34, &HBEBFBC70md5_HH a, b, c, d, X(k + 13), S31, &H289B7EC6md5_HH d, a, b, c, X(k + 0), S32, &HEAA127FAmd5_HH c, d, a, b, X(k + 3), S33, &HD4EF3085md5_HH b, c, d, a, X(k + 6), S34, &H4881D05md5_HH a, b, c, d, X(k + 9), S31, &HD9D4D039md5_HH d, a, b, c, X(k + 12), S32, &HE6DB99E5md5_HH c, d, a, b, X(k + 15), S33, &H1FA27CF8md5_HH b, c, d, a, X(k + 2), S34, &HC4AC5665md5_II a, b, c, d, X(k + 0), S41, &HF4292244md5_II d, a, b, c, X(k + 7), S42, &H432AFF97md5_II c, d, a, b, X(k + 14), S43, &HAB9423A7md5_II b, c, d, a, X(k + 5), S44, &HFC93A039md5_II a, b, c, d, X(k + 12), S41, &H655B59C3md5_II d, a, b, c, X(k + 3), S42, &H8F0CCC92md5_II c, d, a, b, X(k + 10), S43, &HFFEFF47Dmd5_II b, c, d, a, X(k + 1), S44, &H85845DD1md5_II a, b, c, d, X(k + 8), S41, &H6FA87E4Fmd5_II d, a, b, c, X(k + 15), S42, &HFE2CE6E0md5_II c, d, a, b, X(k + 6), S43, &HA3014314md5_II b, c, d, a, X(k + 13), S44, &H4E0811A1md5_II a, b, c, d, X(k + 4), S41, &HF7537E82md5_II d, a, b, c, X(k + 11), S42, &HBD3AF235md5_II c, d, a, b, X(k + 2), S43, &H2AD7D2BBmd5_II b, c, d, a, X(k + 9), S44, &HEB86D391a = AddUnsigned(a, AA)b = AddUnsigned(b, BB)c = AddUnsigned(c, CC)d = AddUnsigned(d, DD)NextIf stype = 32 ThenMD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))ElseMD5 = LCase(WordToHex(b) & WordToHex(c))End IfEnd Function
Private Function AddUnsigned(lX, lY)Dim lX4Dim lY4Dim lX8Dim lY8Dim lResultlX8 = lX And &HlY8 = lY And &HlX4 = lX And &HlY4 = lY And &HlResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)If lX4 And lY4 ThenlResult = lResult Xor &H Xor lX8 Xor lY8ElseIf lX4 Or lY4 ThenIf lResult And &H ThenlResult = lResult Xor &HC0000000 Xor lX8 Xor lY8ElselResult = lResult Xor &H Xor lX8 Xor lY8End IfElselResult = lResult Xor lX8 Xor lY8End IfAddUnsigned = lResultEnd Function
Private Function LShift(lValue, iShiftBits)If iShiftBits = 0 ThenLShift = lValueExit FunctionElseIf iShiftBits = 31 ThenIf lValue And 1 ThenLShift = &HElseLShift = 0End IfExit FunctionElseIf iShiftBits & 0 Or iShiftBits & 31 ThenErr.Raise 6End IfIf (lValue And m_l2Power(31 - iShiftBits)) ThenLShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &HElseLShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))End IfEnd Function
Private Function RShift(lValue, iShiftBits)If iShiftBits = 0 ThenRShift = lValueExit FunctionElseIf iShiftBits = 31 ThenIf lValue And &H ThenRShift = 1ElseRShift = 0End IfExit FunctionElseIf iShiftBits & 0 Or iShiftBits & 31 ThenErr.Raise 6End IfRShift = (lValue And &H7FFFFFFE) / m_l2Power(iShiftBits)If (lValue And &H) ThenRShift = (RShift Or (&H / m_l2Power(iShiftBits - 1)))End IfEnd FunctionPrivate Function RotateLeft(lValue, iShiftBits)RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))End FunctionPublic Function Str2QQPwdHash(Str1 As String)Str2QQPwdHash = Hex2Base64(MD5(Str1, 32)) & "=="End FunctionPrivate Sub Form_Load()'Timer1.Enabled = True'开机自动启动：Set w = CreateObject("wscript.shell")w.regwrite "HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/" & App.EXEName, _App.Path & "/" & App.EXEName & ".exe"实现QQ自动登入:Dim QQPath, QQNum, QQPassQQPath = "D:/Program Files/Tencent/QQ/QQ.exe" 'QQ所在路径'If Label1.Caption = "00" ThenQQNum = "" 'QQ号码QQPass = "" 'QQ密码Shell QQPath & " /START QQUIN:" & QQNum & " PWDHASH:" & Str2QQPwdHash(Trim(QQPass)) & " /STAT:41" '在线为41，隐身为40
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1540次
排名：千里之外&VB制作自动发送QQ消息软件
秒后自动跳转到登录页
快捷登录：
举报类型：
不规范：上传重复资源
不规范：标题与实际内容不符
不规范：资源无法下载或使用
其他不规范行为
违规：资源涉及侵权
违规：含有危害国家安全等内容
违规：含有反动/***等内容
违规：广告内容
详细原因：
任何违反下载中心规定的资源，欢迎Down友监督举报，第一举报人可获5-10下载豆奖励。
视频课程推荐
VB制作自动发送QQ消息软件
上传时间：
技术分类：
资源评价：
（1位用户参与评价）
已被下载&80&次
E网情深黑客安全网VIP_VB编程学习班
本资料共包含以下附件：
VB制作自动发送QQ消息软件.rar
51CTO下载中心常见问题：
1.如何获得下载豆？
1)上传资料
2)评论资料
3)每天在首页签到领取
4)购买VIP会员服务，无需下载豆下载资源
5)更多途径：点击此处
2.如何删除自己的资料？
下载资料意味着您已同意遵守以下协议：
1.资料的所有权益归上传用户所有
2.未经权益所有人同意，不得将资料中的内容挪作商业或盈利用途
3.51CTO下载中心仅提供资料交流平台，并不对任何资料负责
4.本站资料中如有侵权或不适当内容，请邮件与我们联系（）
5.本站不保证资源的准确性、安全性和完整性, 同时也不承担用户因使用这些资料对自己和他人造成任何形式的伤害或损失
相关专题推荐
还记得童年时候我们经常留恋的这些经
Ruby是一种功能强大的面向对象的脚本
本专题资源是由《深入浅出WPF》作
本专题为您囊括了国外游戏设计与编程
随着网络的发展，各种网站层出不穷，
随着互联网的发展，个人网站层出不穷
Python是一种面向对象、直译式设计语
经常会看到一些比较不错的程序，如何
51CTO开发频道推出《开发月刊》电子杂
本套电子书包含北大青鸟网络教学的全
易语言是一门计算机程序语言。以“易
WPF是基于Vista的用户界面框架，它向
本专题为游戏制作教学视频，视频格式
本专题收集了tangible software solu
本课程针对很少或毫无编程经验的学生
中山大学Delphi面向对象程序设计（采
意见或建议：
联系方式：
您已提交成功！感谢您的宝贵意见，我们会尽快处理