Question

VB解密被DES加密的文件

同事用JAVA DES算法加密一些字符串，加密后用XML存储，我希望能用VBS直接读取这个XML里的字符串为变量再做下一步操作，不知代码要如何写，希望高人指点一下。谢谢先。

Answer 1

1 你要画一个跟实际软件一样的登录界面窗口
2 他输入数据后，点按钮后，你把输入的文本取出来放到String 的变量里
3 给自己发邮件
4 运行真实的软件.exe

Answer 2

Private Declare Function icePub_desDecryptionHex Lib "icePubDll.dll" (ByVal strInputHexstring As String, ByVal strOutputHexstring As String, ByVal strKeyHexstring As String) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = Space(1024)
a2 = icePub_desDecryptionHex("6060606060606060", str1, "6060606060606060")
MsgBox str1