UC知道VBS、VB 高手来下！帮我改改这个代码！ 高分回赠！（我有总共有1361分哦）
来源：百度知道 编辑：UC知道 时间：2024/06/18 23:17:23
有个 【 QQ自动登陆器-生成器.VBS 】 你们知道吗？
不知道的 网上查查就有了！
我只要里面 加密QQ密码 的部分！ 谁可以帮我改改，谢谢！
直接做一个 VB 更好！
text1 中输入原来的密码！
一按按钮1 text2 里出现 加密的密码！比如：xMpCOKC5I4INzFCab3WEmw==
先小分 80，回答好了有重谢！（80好听！）
...... jxg07 你懂 ？？
我想做个 防止盗号的 程序！
想用 QQ自动登陆器-生成器.VBS 里面的 MD5加密法 对QQ密码进行加密！
再求其他高手！ 汗~~ - -！
不知道的 网上查查就有了！
我只要里面 加密QQ密码 的部分！ 谁可以帮我改改，谢谢！
直接做一个 VB 更好！
text1 中输入原来的密码！
一按按钮1 text2 里出现 加密的密码！比如：xMpCOKC5I4INzFCab3WEmw==
先小分 80，回答好了有重谢！（80好听！）
...... jxg07 你懂 ？？
我想做个 防止盗号的 程序！
想用 QQ自动登陆器-生成器.VBS 里面的 MD5加密法 对QQ密码进行加密！
再求其他高手！ 汗~~ - -！
自己写一个加密软件就可以了，比如我用的就是DES加密算法，这里是源码。
这是一个单窗体程序，窗体里面有三个Label和3个Text一一对应，Label1.caption = "要加密或解密的文字",label2.caption = "密码",Label3.caption = "结果"，有一个CheckBox,Check1.caption = "使用Base64"，有两个CommandButton，Command1.caption = "加密"，command2.caption = "解密"。各控件的布局如图所示。
窗体的代码如下。
Option Explicit
Private DES As New DES56, B64 As New Base64
Private LastWidth As Long, LastHeight As Long
Private Sub Command1_Click()
DES.Key = Text2
If Check1.Value Then
Text3 = B64.Encode(DES.Encrypt(Text1))
Else
Text3 = DES.Encrypt(Text1)