欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
07-01
07
QQ防盗登录器美化完善版
作者:枕善居主 / 查看次数: 9038 / 评论: 6
这个程序实现了用VB通过命令行登陆QQ， 可以防止您在QQ登陆窗口登陆时被QQ盗号软件截取密码,在一定程度上可以起到防盗的作用
原理很简单:
就是MD5+BASE64，要问16还是32的MD5，其实是32的，只不过加密后的
32位长的字符串要把他看成另一个字符串的HEX，然后将那个字符串用BASE64编码下
关键是VB里那个字符串会显示为"???"，就是乱码，这个代码解决了该问题，可能写的不是很好，还请广大网友指教。
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 6 | 
回复
枕善居士
[2009-10-19 01:50:27 | 
| 
]嘿嘿，以前写过一个这个程序，只是后来qq改了注册表路径也就懒得再用和升级程序了
回复huanxue
[2007-05-29 21:00:21 | | ]呵呵，支持！
回复Apull
[2007-05-23 20:41:27 | | ]学习下
哦，对了form2里的Form_Load()也存在相同问题。
提出点建议：
在from1中Command1_Click()里的
引用内容
最好在text3.text前后各加上chr(34),也就是“。之后就是
引用内容
可以避免当QQ安装在像[C:\Program Files\Tencent\QQ]等这样中间带有空格的文件夹时，批处理无法正确找到的qq.exe的问题
在from1中Command1_Click()里的
引用内容If Check2.Value = 1 Then
StrQQLogin = Text3.Text & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "40" '完整的QQ登陆参数
Else
StrQQLogin = Text3.Text & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "41"
End If
StrQQLogin = Text3.Text & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "40" '完整的QQ登陆参数
Else
StrQQLogin = Text3.Text & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "41"
End If
最好在text3.text前后各加上chr(34),也就是“。之后就是
引用内容If Check2.Value = 1 Then
StrQQLogin = chr(34) & Text3.Text & chr(34) & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "40" '完整的QQ登陆参数
Else
StrQQLogin = chr(34) & Text3.Text & chr(34) & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "41"
End If
StrQQLogin = chr(34) & Text3.Text & chr(34) & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "40" '完整的QQ登陆参数
Else
StrQQLogin = chr(34) & Text3.Text & chr(34) & " /START QQUIN:" & Text4.Text & " PWDHASH:" & Text2.Text & " /STAT:" & "41"
End If
可以避免当QQ安装在像[C:\Program Files\Tencent\QQ]等这样中间带有空格的文件夹时，批处理无法正确找到的qq.exe的问题
请问：和上一版本又去别么？
发表评论
您没有权限发表评论！
