如何解出网络共享密码

AJLENG

《如何解出网络共享密码》相关程序代码



Private Sub Command1_Click()
    strlength = Len(Text1.Text)
    If strlength = 0 Or strlength / 2 <> Int(strlength / 2) Or strlength > 16 Then
        Text2.Text = "未填入密文或填写有误！"
    Else
        xorvalue = "359a4da653a9d46a"
        strtemp = ""
        Text2.Text = ""
        For i = 1 To strlength Step 2
            strvalue = Val("&H" + Mid(Text1.Text, i, 2)) Xor Val("&H" + Mid(xorvalue, i, 2))
            strtemp = strtemp + Chr(strvalue)
            Text2.Text = strtemp
        Next i
    End If
End Sub

谁能帮我用软件写一写?谢谢了