mbpoll & mbslave 脚本注册机

仅供研究使用，切勿用于其他用途

1.mbpoll

Dim s, ss, r, h, name
Dim c, i, cHex

ss  = "75280139"
name = "fanqisoft 777 "

s = "mbpoll" & name & Chr(10) & "# WIT99"
r = ""

c = Asc(Mid(s, 1, 1))
For i = 2 To Len(s)
    c = c Xor Asc(Mid(s, i, 1))
Next

If c < 16 Then
    cHex = "0" & Hex(c)
Else
    cHex = Hex(c)
End If

For i = 1 To Len(s)
    h = Hex(Asc(Mid(s, i, 1)) Xor Asc(Mid(ss, ((i - 1) Mod 8) + 1, 1)))
    If Len(h) = 1 Then h = "0" & h
    r = r & h
Next

r = r & cHex

MsgBox r

CreateObject("WScript.Shell").Run "cmd.exe /c <nul set /p=" & r & "| clip", 0, True

2.mbslave

Dim s, ss, r, h, name
Dim c, i, cHex

ss  = "97280132"
name = "fanqisoft 777 "

s = "mbslave" & name & Chr(10) & "# WIT99"
r = ""

c = Asc(Mid(s, 1, 1))
For i = 2 To Len(s)
    c = c Xor Asc(Mid(s, i, 1))
Next

If c < 16 Then
    cHex = "0" & Hex(c)
Else
    cHex = Hex(c)
End If

For i = 1 To Len(s)
    h = Hex(Asc(Mid(s, i, 1)) Xor Asc(Mid(ss, ((i - 1) Mod 8) + 1, 1)))
    If Len(h) = 1 Then h = "0" & h
    r = r & h
Next

r = r & cHex

MsgBox r

CreateObject("WScript.Shell").Run "cmd.exe /c <nul set /p=" & r & "| clip", 0, True