Board logo

标题: 破了一个卖qq木马的箱子,先来先得 [打印本页]

作者: 柔肠寸断    时间: 2009-3-1 14:36     标题: 破了一个卖qq木马的箱子,先来先得

拿了就顶一下。。谢谢大家。
http://binzj.cn/qq/asp/hcggl2009/user.asp
http://binzj.cn/qq/asp/wbnmdw/user.asp
本帖隐藏的内容需要回复才可以浏览

作者: zoe    时间: 2009-3-1 14:45

:time: :time: 看看!
作者: khjl1    时间: 2009-3-1 19:27

黑客啊。。。:) :) :)
作者: 小糊涂虫    时间: 2009-3-1 19:30

看看啊。。。。。。
作者: LJF    时间: 2009-3-1 21:17

好东西肯定要看:kiss:
作者: LJF    时间: 2009-3-1 21:25

老大佩服啊!:)
作者: fd5918    时间: 2009-3-2 09:48

顶顶~~~~~~~
作者: lijinquan    时间: 2009-3-2 22:52

看看箱子是怎么用的
作者: yixi886    时间: 2009-3-3 08:39

看看:call: :call: :call:
作者: hilarylove    时间: 2009-3-3 14:34

我也要看看啊
作者: 方俊    时间: 2009-3-3 14:41

我也来看看先:lol
作者: 残爱    时间: 2009-3-3 22:18

     小柔的东西 不能不看啊! 不能错过!
作者: coffecp    时间: 2009-3-4 15:55

过来看看是什么东东
作者: tianmaxingkong    时间: 2009-3-5 01:46

什么东东呀
学习一下
作者: qdboy2007    时间: 2009-3-5 04:06

QQ箱子 好东西 呵呵
作者: jl593201300    时间: 2009-3-6 13:24

wo DDDDDDDDD
作者: 莎残    时间: 2009-3-7 09:43

看看:lol :lol :lol
作者: czginny    时间: 2009-3-8 02:20

该页无法显示。。
作者: 叶无邪    时间: 2009-3-8 10:14

kankan :loveliness:
作者: lllijian10    时间: 2009-3-8 17:57

:) :) :) 看看
作者: BKK    时间: 2009-3-8 18:49

???????????????????
作者: icylau    时间: 2009-3-8 21:27

什么东西,有什么用啊,不懂呢。。。。。。。
作者: 猪猪    时间: 2009-3-10 16:56

;P 又来了 字数不够
作者: laodai    时间: 2009-3-11 06:41

看看怎么样?
作者: zhuyahui    时间: 2009-3-11 22:30

网页过期了
作者: qiyewenjie    时间: 2009-3-13 10:08

一定要看看哦 呵呵
作者: heian    时间: 2009-3-14 20:21

哇哇顶下`````````````
作者: 670605160    时间: 2009-3-15 10:27

侃侃:handshake
作者: jygjr    时间: 2009-3-15 12:49

:lol :lol :lol :lol :lol
作者: ast鬼手    时间: 2009-3-15 12:57

厉害 ~~不得不看~~
作者: liukai360    时间: 2009-3-21 18:18

我的天
真的吗
   我这要命的卡机子
作者: 黑白一刻    时间: 2009-3-21 20:38

看看啊,是什么东西
作者: 1988827yjb    时间: 2009-4-1 15:57

:) :) :) :) :) :) :) vd顶
作者: a5621324    时间: 2009-4-1 20:59

看下.呵.應該是可以.
作者: asdfans    时间: 2009-4-2 13:25

什么箱子呢??????
作者: GIVENUP    时间: 2009-4-4 10:28

看看!~~~~~~~~~~~~~~~~
作者: a3260244    时间: 2009-4-5 12:52     标题: 顶啊 ----------------!!!!!

狂顶 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
作者: 8521021    时间: 2009-4-6 08:27

报道。我来学习的
作者: 8521021    时间: 2009-4-6 08:29

什么意思呀。看不懂/上面无法显示
作者: a3260244    时间: 2009-4-6 18:35

-_-!!!顶!!!!!!!!!
作者: a3260244    时间: 2009-4-6 18:36

都不知道是什么来的- -!
作者: qiuyu19931118    时间: 2009-4-6 20:19

???????  真的  ??
作者: gao96    时间: 2009-4-16 18:43

看看怎么弄呢
作者: cpla2000    时间: 2009-4-16 18:47

支持起来看看!
作者: moyuaoe    时间: 2009-4-19 13:28

先顶再下 这样没话说吧
作者: 轩儿    时间: 2009-4-19 17:09

我先回贴,呵呵
作者: ruthlessk    时间: 2009-4-20 12:46

安全能用不
作者: aihq5201314    时间: 2009-4-25 15:08

老大佩服啊
作者: qq7644    时间: 2009-4-26 18:57

QQ箱子  什么东西 呵呵
作者: lee.lone    时间: 2009-4-26 20:55

:) 看看看看!
作者: 一起吹吹风    时间: 2009-4-27 15:11     标题:

好东西,大家共享
作者: 14199310    时间: 2009-5-1 16:17

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   Caption         =   "文件分割工具"
   ClientHeight    =   2880
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3795
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2880
   ScaleWidth      =   3795
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtCode
      BackColor       =   &H8000000F&
      Height          =   3945
      Left            =   30
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   13
      Top             =   2910
      Visible         =   0   'False
      Width           =   3705
   End
   Begin VB.Frame frmContainer
      Height          =   2865
      Left            =   0
      TabIndex        =   0
      Top             =   30
      Width           =   3735
      Begin VB.CommandButton cmdUnit
         Caption         =   "合      并"
         Enabled         =   0   'False
         Height          =   345
         Left            =   1890
         TabIndex        =   11
         Top             =   2400
         Width           =   945
      End
      Begin VB.CommandButton cmdSplit
         Caption         =   "分     割"
         Height          =   345
         Left            =   120
         TabIndex        =   10
         Top             =   2400
         Width           =   945
      End
      Begin VB.Frame fraSelect
         Caption         =   "选项:"
         Height          =   585
         Left            =   90
         TabIndex        =   7
         Top             =   1710
         Width           =   3555
         Begin VB.ComboBox cmbSplitSize
            Height          =   315
            Left            =   990
            Style           =   2  'Dropdown List
            TabIndex        =   12
            Top             =   210
            Width           =   1305
         End
         Begin VB.OptionButton optUnit
            Caption         =   "合并"
            Height          =   315
            Left            =   2640
            TabIndex        =   9
            Top             =   180
            Width           =   825
         End
         Begin VB.OptionButton optSplit
            Caption         =   "分割"
            Height          =   255
            Left            =   240
            TabIndex        =   8
            Top             =   240
            Value           =   -1  'True
            Width           =   1305
         End
      End
      Begin VB.CommandButton cmdFind
         Caption         =   "选择文件夹"
         Height          =   345
         Left            =   2550
         TabIndex        =   6
         Top             =   1170
         Width           =   1125
      End
      Begin VB.CommandButton cmdSelectFile
         Caption         =   "选择文件"
         Height          =   345
         Left            =   2550
         TabIndex        =   5
         Top             =   480
         Width           =   1125
      End
      Begin VB.TextBox txtSourceFile
         Height          =   315
         Left            =   90
         TabIndex        =   2
         Top             =   480
         Width           =   2355
      End
      Begin VB.TextBox txtObject
         Height          =   315
         Left            =   90
         TabIndex        =   1
         Top             =   1170
         Width           =   2355
      End
      Begin VB.Label lblCaption
         Caption         =   "选择的源文件:"
         Height          =   285
         Index           =   0
         Left            =   90
         TabIndex        =   4
         Top             =   210
         Width           =   1515
      End
      Begin VB.Label lblCaption
         Caption         =   "选择的目标文件夹:"
         Height          =   285
         Index           =   1
         Left            =   90
         TabIndex        =   3
         Top             =   900
         Width           =   1815
      End
   End
   Begin MSComDlg.CommonDialog cdgFindFile
      Left            =   3060
      Top             =   90
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Declare Function SHBrowseForFolder _
        Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As Long



Private Declare Function SHGetPathFromIDList _
        Lib "shell32.dll" _
        (ByVal pidl As Long, _
        pszPath As String) As Long



Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlage As Long
    lpfn As Long
    lparam As Long
    iImage As Long
End Type



Private fnum As Integer



Private Function ShowDir(MehWnd As Long, _
        DirPath As String, _
        Optional Title As String = "请选择文件夹:", _
        Optional flage As Long = &H1, _
        Optional DirID As Long) As Long
    Dim BI As BROWSEINFO
    Dim TempID As Long
    Dim TempStr As String
   
    TempStr = String$(255, Chr$(0))
    With BI
        .hOwner = MehWnd
        .pidlRoot = 0
        .lpszTitle = Title + Chr$(0)
        .ulFlage = flage
        
    End With
   
    TempID = SHBrowseForFolder(BI)
    DirID = TempID
   
    If SHGetPathFromIDList(ByVal TempID, ByVal TempStr) Then
        DirPath = Left$(TempStr, InStr(TempStr, Chr$(0)) - 1)
        ShowDir = -1
    Else
        ShowDir = 0
    End If
   
End Function




Private Function OperateFile(ByVal vFile As String, _
                             ByVal vSplit As Boolean _
                             ) As Long
Dim ItemSize As Long
Dim FileSize As Long
Dim ReadSize As Long
Dim i As Long
Dim vArr() As Byte
Dim fnum2 As Integer
Dim FileName As String
Dim SplitFiles As Long



    If vSplit Then
    '合并
        ItemSize = cmbSplitSize.ItemData(cmbSplitSize.ListIndex)
        '取得当前选择的分析尺寸.
        
        ReDim vArr(1 To ItemSize) As Byte
        '重定义缓冲数组.
        
        FileName = Right(vFile, InStr(StrReverse(vFile), "\") - 1)
        '取得文件名.
        
        fnum = FreeFile()
        Open vFile For Binary As fnum
        FileSize = LOF(fnum)
        '取得文件大小
        
        While FileSize > 0
            ReadSize = ItemSize
            If ReadSize > FileSize Then
                '如果文件所剩余大小比当前选择的小,就使用剩余大小.
                ReadSize = FileSize
                ReDim vArr(1 To ReadSize)
            End If
            
            Get fnum, i * ItemSize + 1, vArr
            i = i + 1
            
            fnum2 = FreeFile()
            
            Open Trim(txtObject.Text) & "\" & Trim(Str(i)) & "_" & FileName For Binary As fnum2
'            If i = 1 Then Put fnum2, , SplitFiles
            Put fnum2, , vArr
            Close fnum2
            
            FileSize = FileSize - ReadSize
            '文件总大小减少.
        Wend
        Close fnum
        
        MsgBox "分割成功.", vbOKCancel, "提示信息"
    Else
    '分割
        Dim FindFile As Boolean
        Dim FilePath As String
        '是否还有后继文件标志
        FindFile = True
        FileName = Right(vFile, InStr(StrReverse(vFile), "\") - 3)
        FilePath = Left(vFile, Len(vFile) - InStr(StrReverse(vFile), "\") + 1)
        '求原始文件名称
        
        fnum = FreeFile()
        Open Trim(txtObject.Text) & "\" & FileName For Binary As fnum
        
   
        While FindFile
            fnum2 = FreeFile()
            
            Open vFile For Binary As fnum2
            FileSize = LOF(fnum2)
            If FileSize > 0 Then
                ReDim vArr(1 To FileSize)
               
                Get fnum2, 1, vArr
                Put fnum, , vArr
                Close fnum2
            End If
            i = i + 1
            If Dir(Trim(Str(i + 1)) & "_" & FileName) = "" Then FindFile = False
            vFile = FilePath & Trim(Str(i)) & "_" & FileName
        Wend
        
        Close fnum
        
        MsgBox "合并成功.", vbOKOnly, "提示信息"
    End If
End Function




Private Sub cmdFind_Click()
Dim TmpPath As String



    ShowDir Me.hWnd, TmpPath
    If Trim(TmpPath) <> "" Then
        txtObject.Text = Trim(TmpPath)
    End If
End Sub



Private Sub cmdSelectFile_Click()
    If optSplit.Value Then
        cdgFindFile.Filter = "全部文件(*.*)|*.*|文本文件(*.txt)|*.txt"
    Else
        cdgFindFile.Filter = "全部文件(1_*.*)|1_*.*"
    End If
    cdgFindFile.DialogTitle = "选择要分割的文件"
    cdgFindFile.ShowOpen
    If Trim(cdgFindFile.FileName) <> "" Then
        txtSourceFile.Text = cdgFindFile.FileName
    End If
End Sub



Private Sub cmdSplit_Click()
    If Trim(txtSourceFile.Text) = "" Then MsgBox "请选择要分割的文件."
    OperateFile txtSourceFile.Text, True
End Sub



Private Sub cmdUnit_Click()
    OperateFile txtSourceFile.Text, False
End Sub



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If Shift = 6 Then
        If Not txtCode.Visible Then
            frmMain.Height = 7260
            txtCode.Visible = True
        Else
            frmMain.Height = 3300
            txtCode.Visible = False
        End If
    End If
End Sub



Private Sub Form_Load()
    cmbSplitSize.AddItem "1.4M"
    cmbSplitSize.ItemData(0) = 1400000
    cmbSplitSize.AddItem "1.0M"
    cmbSplitSize.ItemData(1) = 1000000
    cmbSplitSize.AddItem "0.8M"
    cmbSplitSize.ItemData(2) = 800000
    cmbSplitSize.AddItem "0.6M"
    cmbSplitSize.ItemData(3) = 600000
    cmbSplitSize.AddItem "0.3M"
    cmbSplitSize.ItemData(4) = 400000
    cmbSplitSize.AddItem "0.1M"
    cmbSplitSize.ItemData(5) = 100000
    cmbSplitSize.ListIndex = 1
End Sub



Private Sub optSplit_Click()
    cmdStart.Enabled = True
    cmbSplitSize.Enabled = True
    cmdOk.Enabled = False
End Sub



Private Sub optUnit_Click()
    cmdStart.Enabled = False
    cmbSplitSize.Enabled = False
    cmdOk.Enabled = True
End Sub
作者: 一生一细    时间: 2009-5-4 22:24

老大佩服啊!
作者: 356968    时间: 2009-5-6 08:52

111111111111
作者: xiayu    时间: 2009-5-14 15:07

还有吗,试一下!
作者: 3028231    时间: 2009-5-14 22:44

真牛。。  看看怎么样。。
作者: 497274964    时间: 2009-5-15 16:43

看看,谢谢楼主分享~
作者: dnfme    时间: 2009-5-17 21:18

我去试试  不知道能不能
作者: qazedcasd305    时间: 2009-5-17 23:31     标题: D

:loveliness: kankanDDD
作者: lovefhqqtd    时间: 2009-5-20 14:15

看看,箱子应该很多QQ
作者: dsa3027235    时间: 2009-5-20 14:40

看看啊 什么东东
作者: skgghzm    时间: 2009-5-20 14:43

什么东东呀
:loveliness:
作者: lovefhqqtd    时间: 2009-5-20 14:47

汗,我也打不开都
作者: cantian5    时间: 2009-5-22 23:01

什么东西啊?
作者: dzj4512676    时间: 2009-5-24 11:02

回复首先~然后再看~
支持一下~
作者: buding28798    时间: 2009-5-27 20:34

我要看看额``-, -
作者: mr_vill    时间: 2009-5-30 14:55

我喜欢别人发QQ出来,嘿嘿,我去挑选一下,拿了我会留名嘿嘿
作者: 345313592    时间: 2009-5-30 18:09

看看啊。。。。。。
作者: 菜鸟一本    时间: 2009-5-30 19:41

赶快欣赏一下
作者: linjianwei    时间: 2009-6-2 10:47

看看什么情况
作者: bexond    时间: 2009-6-2 16:06

强力爆破。。。喜欢
作者: mypower    时间: 2009-6-8 11:13

我迟到了,还是 看看 看有没有了。
呵呵
作者: zzqik    时间: 2009-6-12 13:29

路过。。。看看。。。。学学。。。。不会
作者: lizj    时间: 2009-6-12 14:38

:time: :time: 看看!
作者: huangqing622    时间: 2009-6-14 22:06

顶起哦!!凑热闹!!
作者: hilarylove    时间: 2009-6-14 22:18

小柔又强大了
作者: a122377787    时间: 2009-7-1 22:43

aaaaaaaaaaaaaaaa
作者: zzqik    时间: 2009-7-2 07:00

来 看看  是什么
作者: EndTo偌枫    时间: 2009-7-2 09:51

我前几天也破了个梦幻箱子
作者: QX_粗人    时间: 2009-7-2 16:48

看看  呵呵
作者: wangminyuan123    时间: 2009-7-8 23:01


作者: zzqabc    时间: 2009-7-10 09:21

看看箱子是怎么用的
作者: fangqib    时间: 2009-7-10 15:15

看看!!!!!!
作者: ylxf    时间: 2009-7-11 11:31

:) :) :) 看看
作者: applehdh    时间: 2009-7-12 20:33

顶一个  支持老大
作者: 393891682    时间: 2009-7-19 13:33

哇!!!.~!~!~!
作者: lwh1969    时间: 2009-7-27 13:38

楼主很厉害啊看看能不能用
作者: chiqing    时间: 2009-7-27 13:51

楼主 好厉害的啊
作者: qinyi17    时间: 2009-7-27 18:59

asd asd  asd asd 按时的
作者: vip5234347    时间: 2009-7-28 01:20

破了一个卖qq木马的箱子,先来先得
作者: tiaoyy    时间: 2009-7-29 23:09

顶之, 顺便报个到
作者: mo309782571    时间: 2009-8-1 15:28

看看柔哥 给个什么东西
作者: mo309782571    时间: 2009-8-1 15:29

隐藏里面是什么东东啊
作者: mo309782571    时间: 2009-8-1 15:30

无论点哪个都是一样啊 晕
作者: 623606795    时间: 2009-8-4 17:17

3333333333333333333
作者: wjjaft    时间: 2009-8-4 17:51

dddddddddddddddddd
作者: luojiaming    时间: 2009-8-5 18:46

顶顶顶顶顶顶顶顶顶顶顶
作者: hackcm    时间: 2009-8-6 01:20

:) :) :) 看看
作者: kwk1986    时间: 2009-8-6 20:01

看看看看看看看看看看看看看看看看
作者: woxzzaizhoujia    时间: 2009-8-10 04:36

1# 柔肠寸断




欢迎光临 【3.A.S.T】网络安全爱好者 (http://3ast.com./) Powered by Discuz! 7.2