本文目录一览：
- 1、盗号者使用VB盗号怎么获得被盗者的账号信息
- 2、 *** 盗号木马原理谁知道??
- 3、VB盗号代码
- 4、谁回用vb6.0来编一个 *** 盗密器
- 5、关于用VB *** *** 本地盗号程序的问题
盗号者使用VB盗号怎么获得被盗者的账号信息
首先就是vb创建两个text(一个是输入帐号一个是输入密码) 一个按钮 把窗口设置的像qq登陆窗口一样
然后被盗者像以往那样输入帐号 然后登陆
然后盗号软件就会把两text上的内容上传到一个网站上
然后盗号者就知道帐号密码了
然后盗号者就上被盗者的 *** 疯狂的泡妞
然后有可能泡到妞
当然泡不到的机率会大点
*** 盗号木马原理谁知道??
盗 *** 的几种 *** :
1.穷举法
穷举法可以说是最简单有效的 *** 了.也就是我们通常说的暴力破解.但缺点是用时久速度慢,而且腾迅为了避免乱用暴力,推出了第二代 *** 使用字符验证登陆 *** ...所以这种 *** 也随之过时了...本人也不做过多的诠释...
2.直接读取密码文件
现在 *** 的加密越来越强，要用这种 *** 可以花上不少的功夫，而且在网吧上网的人，都有离开时，删除自己 *** 号目录的习惯，因此有时这种 *** 根本无能为力。
3.监视法
就是被众人称为的"木马".也是现在网上更流行的一种盗号 *** .通过窗口函数取得密码的 *** (适用任何版本的 *** )原理和木马代码我会详细解说.以下是用VB编写的一个列子:
设计思路
我们知道 *** 的密码框并没有进行特别的处理，也就是说用可以通过 SendMessage 发送 WM_GETTEXT 取得密码框中的值，我们可以利用这一点来完成密码的截取，具体请看下面：
使用 Timer 控件，监视 *** 。
VB盗号代码
Option Explicit
Declare Function PostMessage Lib "user32" Alias "postmessagea" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Const wm_close = H10
Public Function killie(ByVal hwnd As Long, ByVal lparam As Long) As Boolean
Dim ClassName As String
Dim str5 As String
Dim len5 As Long, i As Long
str5 = String(255, 0)
len5 = 256
GetClassName hwnd, str5, 256
ClassName = Left(str5, insrt(1, str5, Chr(0)) - 1)
Debug.Print ClassName
If ClassName = "ieframe" Then
PostMessage hwnd, wm_close, 0, 0
End If
killie = True
End Function
一个自定义函数 获取指定句柄de类名 如果是ieframe则向该窗口发送关闭消息
谁回用vb6.0来编一个 *** 盗密器
盗 *** 主要用hook
找到登录界面的句柄，获得号码和密码的句柄，纪录号码和密码。
我有一个拦截键盘的hook的代码，你参考下吧~！
——————————————————————————————
'以下在.Bas
Option Explicit
Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2
Public Sub UnHookKBD()
If hnexthookproc 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'这三个叁数是固定的，不能动，而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf后的名称一样便可，不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code
'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉讯息
'Exit Function
MyKBHFunc = 0 '讯息要处理
If iCode 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeySnapshot Then '侦测 有没有按到PrintScreen键
MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
End Function
'以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub
关于用VB *** *** 本地盗号程序的问题
哦，这个啊，可以用label控件的啊，点一下弹出，再点下收进去
要源代码加我 505833944