VBS、VB 高手来下！帮我改改这个代码！ 高分回赠！（我有总共有1361分哦）
不知道的 网上查查就有了！
我只要里面 加密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)
End If
End Sub
Private Sub Command2_Click()
DES.Key = Text2
If Check1.Value Then
Text3 = DES.Decrypt(B64.Decode(Text1))
Else
Text3 = DES.Decrypt(Text1)
End If
End Sub
Private Sub Form_Load()
LastWidth = Width
LastHeight = Height
End Sub
Private Sub Form_Resize()
If WindowState = 1 Then Exit Sub
Dim ChW As Long, ChH As Long
ChW = Width - LastWidth
ChH = Height - LastHeight
Command1.Move Command1.Left + ChW, Command1.Top + ChH
Command2.Move Command2.Left + ChW, Command2.Top + ChH
Check1.Move Check1.Left, Check1.Top + ChH
Label2.Move Label2.Left, Label2.Top + ChH / 3
Label3.Move Label3.Left, Label3.Top + (ChH / 3) * 2
Text1.Move Text1.Left, Text1.Top, Text1.Width + ChW, Text1.Height + (ChH / 3)
Text2.Move Text2.Left, Text2.Top + ChH / 3, Text2.Width + ChW, Text2.Height + ChH / 3
Text3.Move Text3.Left, Text3.Top + (ChH / 3) * 2, Text3.Width + ChW, Text3.Height + ChH / 3
LastWidth = Width
LastHeight = Height
End Sub
