Compile Perl to Exe => Bot IRC

          บทความนี้นะครับ ผมจะมาว่าด้วยเรื่องการคอมไพล์ไฟล์โปรแกรมที่เขียนขึ้นด้วยภาษา Perl ไปเป็นไฟล์ Exe คือรันได้ด้วยตัวของมันเองไม่ต้องมีการลง Module อะไรเพิ่มเติมก็สามารถรันได้ ถึงแม้จะไม่ได้ลง Active Perl ก็รันได้ ในที่นี้ผมจะใช้ Perl Dev Kit ในการคอมไพล์นะครับ

          ในบทความนี้ผมจะเอ่ยถึงการคอมไพล์ Bot IRC ไปรันที่ Server เหยื่อซึ่งเป็น Host Windows จะทำอย่างไรให้เนียน เจ้าของเครื่องจับไม่ได้ว่ามี Process แปลกๆรันอยู่ ผมจึงตั้งชื่อไฟล์ Perl ว่า svchost.pl แล้วทำการคอมไพล์

          จากรูปที่ลูกศรชี้จะอยู่ใน Option ที่ 2 ของ PerlApp นะครับ ติ๊กถูกเพื่อให้เวลาคอมไพล์แล้วรัน จะมีการซ่อน console คือหน้าต่างดำๆไว้ใน Process แบบเนียนๆ แล้วยิ่งชื่อ svchost.exe แล้วด้วย เนียนเข้าไปใหญ่ครับ :) จากนั้นเราก็อัพไฟล์ exe ไปไว้ที่ใดที่นึงใน Server ชาวบ้าน 

           ใช้คำสั่ง start svchost.exe ชื่อไฟล์ของเรา จากนั้นบอทของเราก็จะไปรันเนียนๆกับ Process svchost.exe ของจริงแล้ว คราวนี้ทางโน้นก็คงไม่รู้ว่าบอทเรา Process ไหน End Process มั่วเครื่องเอ๋ออีก แต่มันก็ยังมีขั้นตอนการตรวจสอบละเอียดลงไปกว่านี้อีกนั่นแหละ -.-*a ขอจบบทความแค่นี้แล้วกันครับ

ดูดรูปจาก Picpost.Mthai.com ด้วย Perl..

แบบ Exe => http://www.mediafire.com/?56m5en5g6g1enee

ActiveState Perl Dev Kit 9.1 + Keygen

Download : http://www.activestate.com/perl-dev-kit/downloads

Keygen : http://www.mediafire.com/?86e101pi69w3b3x

Credit : พี่ทศ

MySQL Hash Online Crack [ Perl Script ]

use LWP::UserAgent;
use HTTP::Request::Common;

print "Input MySQL Hash : ";
chomp($hash=<stdin>);
$url = "http://hashcrack.com/index.php";
$ua = LWP::UserAgent->new();
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");
$request = $ua->post($url,["hash"=>$hash,"Submit"=>"Submit","auth"=>'8272hgt']);

if ($request->content =~ /<span class=hervorheb2>(.*?)\<\/span>/){
print "MySQL Hash Found : $1\n";
}else {
print "MySQL Hash Not Found!\n";
}

เพิ่งลองเขียนแบบ post ครั้งแรก เดี๋ยวเอาลง irc bot ด้วยเลย