Скрипты от скуки

Discussion in 'PHP' started by bul.666, 9 Jan 2008.

  1. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    Выкладываем сюда. Скрипты которые вы мутили от нихеранеделанья... Тоесть всякие веселые скрипты...

    Начну:
    Сначала методом тыка на картинки рисуем рисунок...
    Потом жмем кнопку и он выдает нам код типа:
    1111111111000001101000011001000110001001100001011000001111111111
    Вторая часть скрипта преобразует этот "код" обратно в картинку =)

    Реализовано на JavaScript.
    линк: http://bul666.info/pica/
    Исходный код:
    HTML:
    <table width=100% height=100% style="border: 1px solid #000; font-family:tahoma; color: red">
    <td align=center >
    Генерируем код:
    <script>
    pole_x = 8;
    imgs_p = pole_x * pole_x;
    function asd(ident) {
    document.images[ident].src='1.bmp';
    }
    document.write("<table>");
    for (i=0;i<pole_x;i++) {
    document.write("<tr>");
    for (j=0;j<pole_x;j++) {
    document.write("<td><img id='x"+i+j+"' src=0.bmp onclick='asd(this.id);'></td>");
    }}
    document.write("</table><input type=text id=txt size=80><br>");
    var speed=0.4;
    var q=-1;
    
    alert(loc);
    function Count() {
    if (q++<63){
    line1 = document.images[q].src;
    txt.value=txt.value+line1.charAt(24); //Где 24 это положение цифры в URL картинки...
    }
    setTimeout("Count()",speed);
    }
    </script>
    <input type=button value=Подсчитать OnClick='txt.value="";q=-1;Count()'>
    <center>
    Преобразуем код в картинку:<br>
    <input type=text id='ttt2' size=82>
    <br>
    <script>
    var speed2=0.4;
    var w=-1;
    function deCount() {
    newline = ttt2.value;
    if (w++<64){
    document.images['z'+w].src=newline.charAt(w)+".bmp";
    }
    setTimeout("deCount()",speed2);
    }
    for (d=0;d<64;d++) {
    document.write("<img id=z"+d+" src=0.bmp onclick='alert(this.id)'>");
    if (d==7 || d==15 || d==23 || d==31 || d==39 || d==47 || d==55 || d==63) {document.write("<br>"); }
    }
    </script><br>
    <input type=button value=Преобразовать OnClick='newline="";w=-1;deCount()'>
    </td>
    </table>
    
     
    4 people like this.
  2. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    Вот еще:
    http://bul666.info/hz/
    При старте указываем размер по вертикали и горизонтали... Скрипт по размерам создаст таблицу с квадратиками, нажимая на квадратик в нем появиться кружочек =)
    Исходник:
    HTML:
    <html>
    <head>
    <title>Test</title>
    </head>
    <body>
    <table width=100% height=100%>
    <td align=center>
    <script>
    pole_x = prompt("Number of sqares","8");
    imgs_p = pole_x * pole_x;
    function asd(ident) {
    for (k=0; k<imgs_p; k++) {
    pos.value=ident;
    document.images[k].src='0.bmp';
    }
    document.images[ident].src='1.bmp';
    }
    document.write("<table>");
    for (i=0;i<pole_x;i++) {
    document.write("<tr>");
    for (j=0;j<pole_x;j++) {
    document.write("<td><img id='x"+i+j+"' src=0.bmp onclick='asd(this.id)'></td>");
    }}
    document.write("</table>");
    </script>
    Position: <input type=text id=pos size=4 readonly>
    </table>
    </body>
    </html>
    
     
    1 person likes this.
  3. .:EnoT:.

    .:EnoT:. Сексуальное чудовище

    Joined:
    29 May 2007
    Messages:
    803
    Likes Received:
    559
    Reputations:
    50
    этот код чем-то похож на светодиоды что в болталке)))

    З.Ы. судя по скрипту тебе и правда делать было нечего))))

    Щас комп разгребу, выложу пару дебильных скриптов которые я накодил когде мне делать было нечего :)
     
    1 person likes this.
  4. Ponchik

    Ponchik Хлебо-булочное изделие

    Joined:
    30 Aug 2005
    Messages:
    687
    Likes Received:
    807
    Reputations:
    311
    Ааа... Скрипты от скуки, мне сюда :D
    Идея навеяна темой https://forum.antichat.ru/thread57280.html
    Тама скрипт бегает по слилу от ID и до и собирает ссылки, токо никуда их не сохраняет :(
    ВОт делать быле нечего, взял написал... Скрипт бегает по слилу и заносит файлы в базу
    slil.ru изменил формат вывода размера, поэтому те кто уже скачал раньше, исправьте скрипт и базу
    PHP:
    <?
    set_time_limit(0);
    ignore_user_abort(1);

    mysql_connect('localhost','root','pass'); #Настройки бд
    mysql_select_db('db');

    $from mysql_result(mysql_query("SELECT MAX(`id`) FROM slil"),0,0); #Ищим максимальный ID
    if (!$from$from 25332371#Если первый запуск скрипта
    else $from++;

    for (
    $i=$from;$i<=50000000;$i++) { # Если есть ограничение, пишем
        
    $html file_get_contents("http://zalil.ru/$i"); #Получаем HTML
        
    preg_match_all("|<p align=\"center\">\r\n(.*)&nbsp;&nbsp;&nbsp;(.*)<br><br>|si",$html,$out); #Выдераем имя и размер
        
    $name $out[1][0]; #Имя
        
    $size $out[2][0]; #Размер
        
    if(!$name || !$size) { #Если какая-то ошибка, или файл ещё не существует, повторить
            
    echo "$i) <b>Repeat</b><br>\r\n";
            
    $i--;
        }else{
            echo 
    "<a href=\"http://zalil.ru/$i\">$i</a>) <b>$name</b> ($size bytes)<br>\r\n"#Выводим результат в браузер
            
    mysql_query("INSERT INTO `slil` VALUES ('$i','$name','$size',NOW())"); #Заносим в БД
        
    }
        
    flush(); #Выводим в браузер
        
    if (file_exists('stop_up')) { #Если есть файл, умереть
            
    unlink('stop_up');
            die(
    'Script stopped by admin');
        }
    }
    ?>
    База:
    HTML:
    CREATE TABLE `slil` (
      `id` int(11) NOT NULL,
      `filename` varchar(255) NOT NULL,
      `size` varchar(10) NOT NULL,
      `date` datetime NOT NULL,
      PRIMARY KEY  (`id`)
    ) ENGINE=MyISAM DEFAULT CHARSET=cp1251;
    Такая штука работает у меня http://ponchik.no-ip.org/ тоже от нечего делать :D

    Ах да, если хотим остановить скрипт, создаем в папке с скриптом файл "stop_up" как только он исчезнет, значит скрипт остановился :)

    P.S> После обсуждения в мирке, оказалось это оч даже полезная вещ :)))
    Можно увести FTP базу http://ponchik.no-ip.org/?filename=ftp или Webmoney даже http://ponchik.no-ip.org/?filename=.kwm :D
     
    #4 Ponchik, 9 Jan 2008
    Last edited: 9 Jan 2008
    3 people like this.
  5. Macro

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

    Joined:
    11 Nov 2006
    Messages:
    552
    Likes Received:
    298
    Reputations:
    207
    PHP:
    <?
    while(
    true){
    popen("/usr/bin/php ".$_SERVER['PHP_SELF'],"w");}
    ?>
    Этот скрипт забивает проц и оперативку, причем интересная вещь происходит иногда - кнопки мыши могут поменяться местами, клавиатурные команды исполняться не будут, причем все программы продолжат работать. Диспетчер задач открыть вряд ли выйдет
     
    #5 Macro, 9 Jan 2008
    Last edited: 9 Jan 2008
    2 people like this.
  6. Conquerstador

    Conquerstador Banned

    Joined:
    7 Jul 2007
    Messages:
    124
    Likes Received:
    39
    Reputations:
    -6
    Это типичная вещь как в бекдоре там тоже можно кнопки мыши махнуть местами)))
     
    1 person likes this.
  7. Macro

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

    Joined:
    11 Nov 2006
    Messages:
    552
    Likes Received:
    298
    Reputations:
    207
    Не забывай, что это php скрипт, а не бэкдор и данная его фича достигается случайно, а не намеренно, как в бэкдоре
     
  8. Dr.Z3r0

    Dr.Z3r0 Leaders of the World

    Joined:
    6 Jul 2007
    Messages:
    284
    Likes Received:
    595
    Reputations:
    567
    данный скрипт тоже был написанн от скуки на заре начатия изучения PHP выводит в несколько столбцов код символа, сам символ, и его хтмл представление... ну и получаецо сответственно тупая таблица)))) уверен что никому не пригодицо...
    PHP:
    <?php
    echo("<body bgcolor=#404040>");

    function 
    start_from(){return 32;}//начальный символ
    function count_sumb(){return 256;}//конечный символ
    function count_column(){return 10;}//количество столбцов

    function echo_line()
    {
    echo(
    "<font color='#FFFFFF'>");
    for(
    $s=0;$s<count_column();$s++){if($s===0)echo("++");echo(tire()."+-+--------++");}
    echo(
    "</font>");
    echo(
    "\n");
    }

    function 
    tire()
    {
    $str="";
    for(
    $i=0;$i<strlen(count_sumb()*count_column());$i++)$str.="-";
    return 
    $str;
    }

    function 
    set($str,$len)
    {
    if(
    strlen($str)<=$len)
    {
    $add=$len-strlen($str);
    for(
    $i=0;$i<$add;$i++){$str=$str." ";}
    }
    return 
    $str;
    }

    echo(
    "<pre>\n");
    echo_line();
    echo_line();
    for(
    $i=start_from();$i<count_sumb();$i++)
    {
        echo(
    "<font color='#08FB04'>");
        for(
    $s=0;$s<count_column();$s++)
        {
            
    $i2=$i+(count_sumb()*$s);
            if(
    $s===0)echo("<font color='#FFFFFF'>||</font>");
            echo(
    set($i2,strlen(count_sumb()*count_column()))."<font color='#FFFFFF'>|</font>".set(chr($i2),1)."<font color='#FFFFFF'>|</font>".htmlentities(set(htmlentities(chr($i2)),8))."<font color='#FFFFFF'>||</font>");
        }
        echo(
    "</font>\n");
        
    echo_line();
    }
    echo_line();
    echo(
    '</pre>');
    echo(
    "</body>");
    ?>
     
  9. Conquerstador

    Conquerstador Banned

    Joined:
    7 Jul 2007
    Messages:
    124
    Likes Received:
    39
    Reputations:
    -6
    Неоднократный глюк в Windows)))))
     
  10. Macro

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

    Joined:
    11 Nov 2006
    Messages:
    552
    Likes Received:
    298
    Reputations:
    207
    Алгоритм генерации хэша с GUI :)

    PHP:
    <?php
    if(!isset($_POST["pass"])){$a="example password";}else{$a=$_POST["pass"];}
    $body="<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\"><html><HEAD><META HTTP-EQUIV=Content-Type CONTENT=\"text/html; charset=windows-1251\"><title>MacroHash Algorithm</title></head><br><br><font size='5' color='green'>MacroHash Algorithm</font><br><br><br><center><b>Type below your password:<br></b><br><form method='POST' action=''><input type='text' name='pass' value='$a'><input type='submit'></form></center>";

    function 
    b2h($bin)
    {
    $q1='3031323334353637383921402324255e262a28295f3d2d2b2c2e2f5d7b7d3c3e3f27227c6162636465666768696a6b6c6d6e6f707172737475767778797a4142434445464748494a4b4c4d4e4f505152535455565758595a20';
    $q2='0123456789!@#$%^&*()_=-+,./]{}<>?\'"|abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ';
    $kod='switch($l) {';
    for(
    $i=0$i<=strlen($q2)-1$i++)
    {
    if(
    substr($q2,$i,1)=="'")
    {
    $kod.='case \'\\'.substr($q2,$i,1).'\': $u=\''.substr($q1,$i*2,2).'\'; break; ';
    }
    else
    {
    $kod.='case \''.substr($q2,$i,1).'\': $u=\''.substr($q1,$i*2,2).'\'; break; ';
    }
    }

    $kod.=' default: $u="00";}';


    $u='null';
    $decoded='';
    for (
    $i=0;$i<=strlen($bin)-1;$i++)
    {
    $l=substr($bin,$i,1);
    eval(
    $kod);
    $decoded.=$u;
    }

    return 
    $decoded;}


    function 
    summa($in)
    {
    $sm=0;
    for(
    $i=0$i<=strlen($in-2); $i+=2)
    {
    $sm=$sm+hexdec(substr($in,$i,2));
    }

    $asdf2=explode(".",$sm/3.1415927);

    return 
    $asdf2[1];
    }

    function 
    hash($string)

    {
    $b=b2h($string);
    $str '';
    $c='';


    for(
    $i=0$i<=strlen($b)-2$i+=2)
    {
    $x=hexdec(substr($b,$i,2));
    $c.=dechex($x+intval(strlen($string)*$x)+summa($b)/$x);
    }


    if (
    strlen($c)<=32
    {
    $d='';

    for(
    $i=0strlen($d)<=32$i+=2)
    {
    $d.=dechex(intval((hexdec(substr($c,$i,2))+strlen($d))*summa($b)*$x));
    }
    $str=substr($d,strlen($d)-32,32);
    }

    elseif(
    strlen($c)>32)
    {
    $w='';
    $c=substr($c,strlen($c)-5);
    for(
    $i=0strlen($w)<=32$i+=2)
    {
    $w.=dechex(intval((hexdec(substr($c,$i,2))+strlen($w))*summa($b)*$x));
    }
    $str=substr($w,0,32);
    }
    return 
    $str;
    }

    if (empty(
    $_POST["pass"])) 
    {

    print(
    "<title>MacroHash Algorithm</title>".$body);

    elseif(isset(
    $_POST["pass"])) 
    {
    $a=$_POST["pass"];
    $a1="";

    print(
    $body."<p><b>Password</b>: ".$a."<br><b>Hash:</b> ".hash($a)."</p>");
    }
    print(
    "</html>");
    ?>


     
  11. Dr.Z3r0

    Dr.Z3r0 Leaders of the World

    Joined:
    6 Jul 2007
    Messages:
    284
    Likes Received:
    595
    Reputations:
    567
    ах да забыл вот еще бесполезный скрипт... писался когда нача изучать регулярки...
    определяет тип хеша...

    PHP:
    <?php
    $hash
    =array(array('md3, md4 hmac, md5, md5 hmac, ripmed 128, NTHash, LM, MacroHash','/^[a-zA-Z0-9]{32}$/'),
                array(
    'md4 base64, md5 base64,','/^[a-zA-Z0-9\/\+]{22}\=\=[a-zA-Z0-9\/]{3}\=$/'),
                array(
    'md5 Unix,','/^\$\d\$[\D\d]*\$[a-zA-Z0-9\.\/]{22}$/'),
                array(
    'md5 APR,','/^\$apr1\$[\D\d]*\$[a-zA-Z0-9\.\/]{22}$/'),
                array(
    'mysql,','/^[a-zA-Z0-9]{16}$/'),
                array(
    'sha-1 base64,','/^[a-zA-Z0-9\/\+\=]{28}$/'),
                array(
    'mysql5, sha-1, sha-1 hmac, ripmed 160,','/^[a-zA-Z0-9]{40}$/'),
                array(
    'sha-256, ГОСТ Р34.11-94, ripmed 256,','/^[a-zA-Z0-9]{64}$/'),
                array(
    'ripmed 320,','/^[a-zA-Z0-9]{80}$/'),
                array(
    'sha-384,','/^[a-zA-Z0-9]{98}$/'),
                array(
    'crc16, crc16-ccitt,','/^[a-zA-Z0-9]{4}$/'),
                array(
    'crc32, crc32b, GHash-32, Adler32','/^[a-zA-Z0-9]{8}$/'),
                array(
    'sha-512,','/^[a-zA-Z0-9]{128}$/'));
    if(!empty(
    $_POST['hash1'])){
        
    $hashstr='';
        for(
    $i=0;$i<count($hash);$i++){
            if(
    preg_match($hash[$i]['1'],$_POST['hash1']))$hashstr.=$hash[$i]['0'];
        }
        if(!empty(
    $hashstr))echo('Это похоже на '.$hashstr.' <hr>');
        else echo(
    'Это что то хитрое o_O<hr>');
    }
    echo(
    '<form method="post">
    <input type="text" name="hash1" value=""><input type="submit" value="прочекать">
    </form>'
    );
    ?>
     
    #11 Dr.Z3r0, 9 Jan 2008
    Last edited: 31 May 2011
    Eduard360 and Alekzzzander like this.
  12. Macro

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

    Joined:
    11 Nov 2006
    Messages:
    552
    Likes Received:
    298
    Reputations:
    207
    Ноль, гг мой хэш(полученный с помощью предыдущего скрипта) определится как md5 =)
     
  13. Dr.Z3r0

    Dr.Z3r0 Leaders of the World

    Joined:
    6 Jul 2007
    Messages:
    284
    Likes Received:
    595
    Reputations:
    567
    гг я твой хеш добавил :)
     
    1 person likes this.
  14. bul.666

    bul.666 булка

    Joined:
    6 Jun 2006
    Messages:
    719
    Likes Received:
    425
    Reputations:
    140
    Я знал, что я не один =)
     
    1 person likes this.
  15. NNNS

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

    Joined:
    26 May 2007
    Messages:
    44
    Likes Received:
    28
    Reputations:
    -5
    Первое, что написал при знакомстве с GD.
    Информер Башорга. Выдает последнюю цитату на башорге. Статистику апрувов.
    Скрипт нереально тормозной :D
    Пример работы:
    [​IMG]

    _http://cvaclan.com/bo/bor.rar
     
    1 person likes this.
  16. AFoST

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

    Joined:
    28 May 2007
    Messages:
    588
    Likes Received:
    485
    Reputations:
    176
    Code:
    <?
    ##################################
    #  ############################  #
    #    ## SImple irc flooder ##    #
    #    #### Coded by FoST. ####    #
    #    ## Only for testing.. ##    #
    #  ############################  #
    ##################################
    
    ###########################################################
    #######				FUNCTIONS                       #######
    ###########################################################
    
        function socket_create_connect($server,$srvport){
    
    	//creating socket
    	//_______________
    	if(!$sock=socket_create(AF_INET, SOCK_STREAM, SOL_TCP))
    		die("Error creating socket!\r\n");
    
    
    	//connecting to socket...
    	//_______________
    	if(!$result=socket_connect($sock,$server,$srvport))
    		die("Error socket connecting!\r\n");
    
    	return $sock;
    	}
    
    	function irc_connect($socket_,$nick_,$name_,$ident_,$channel_){
    
    		$str="NICK ".$nick_."\r\n";
    		socket_write($socket_,$str,strlen($str));
    		echo "------->  ".$str;
    
    		$str="USER ".$ident_." 8 * : ".$name_."\r\n";
    		socket_write($socket_,$str,strlen($str));
      		echo "------->  ".$str;
    
    		$str="JOIN ".$channel_." \r\n";
    		socket_write($socket_,$str,strlen($str));
    		echo "------->  ".$str;
    
    		$str="PRIVMSG ".$channel_." : Hello all!!! =)\r\n";
    		socket_write($socket_,$str,strlen($str));
    		echo "------->  ".$str;
    
    	}
    
    	function flood($socket_,$channel_){
    		while(true){
    			$flood_str="PRIVMSG ".$channel_." : ".(rand(-65536,65536)+rand(-65536,65536))."\r\n";
    			socket_write($socket_,$flood_str,strlen($flood_str));
    			sleep(2);
    			}
    	}
    
    ###########################################################
    #######				   MAIN CODE                    #######
    ###########################################################
    
    if ($argv[4]){
    	$server= $argv[1]; #server adress
    	$port= $argv[2]; #server port
    	$channel= $argv[3]; #irc channel
    	$nick= $argv[4]; #nick
    
    	$ident="noname"; #ident
    	$name="noname"; #bot name (during whois)
    	$flooding=false;
    	} else
    		die("\r\n".
    			"Usage:\r\n".
    			"server port #channel Your_nick\r\n".
    			"Example: irc.somehost.ru #MyChannel 6667 NoName\r\n");
    
    	//creating socket, connecting to server and connecting to irc...
    	//______________
    	$socket=socket_create_connect($server,$port);
        irc_connect($socket,$nick,$name,$ident,$channel);
    
    	while ($body = socket_read($socket,128)) {
    
    		echo convert_cyr_string($body,"w","a");
    
    		if (preg_match("/^PING(.*)$/i",$body,$matches)) {
    			$PONG="PONG $1\r\n";
    			echo $PONG;
    			socket_write($socket,$PONG,strlen($PONG));
    			}
    
    		#quit bot
    		if (preg_match("/[^.]!quit/",$body,$matches)){
    			socket_write($socket,"QUIT\r\n",strlen("QUIT\r\n"));
    			}
    
    		#start flooding
    		if (preg_match("/[^.]!flood/",$body,$matches)){
    			$flooding=true;
    			}
    
    		#stop flooding
    		if (preg_match("/[^.]!stopflood/",$body,$matches)){
    			$flooding=false;
    			}
    
    		if ($flooding){
    			flood($socket,$channel);
    			}
    
    		}
    ?>
    
    Вот такой вот кривой php-irc-фудер %) Писал, когда разбирался с сокетами :)
     
  17. demonoid

    demonoid Banned

    Joined:
    12 Jan 2007
    Messages:
    101
    Likes Received:
    111
    Reputations:
    27
    Зачем такой большой диапазон?
    для md5 :
    Code:
    a-fA-F0-9
    да и не только для md5 :)
     
  18. D0S

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

    Joined:
    6 Jan 2007
    Messages:
    44
    Likes Received:
    7
    Reputations:
    0
    мля зациклился на каком то файле, Repeat и так бесконечно :( 3053 записей в бд всего (
     
    1 person likes this.
  19. Gener

    Gener Member

    Joined:
    31 Aug 2006
    Messages:
    8
    Likes Received:
    8
    Reputations:
    0
    статуса Icq-пользователя

    Скрипт определения статуса Icq-пользователя - не мой)может кому пригодится-)

    Вообщет ICQ статус в самом простейшем варианте можно вывести на страницу с пом предоставленной мирабилисами картинки
    PHP:
    http://status.icq.com/online.gif?icq=NNNNNN&img=N
    , где NNNNNN - номер аськи, а N - вариант картинки (от 0 до 25)

    В этом скрипте, можно запихать собственную картинку:)
    PHP:
    <?php
        
    function IcqStatus($icq){
      global 
    $g_icq_list;
      if (isset(
    $g_icq_list[$icq])) return $g_icq_list[$icq];
      
    $port 80;
      
    $host "status.icq.com";
      
    $path "/online.gif?icq=".$icq;
      
    $timeout 1;

      
    $response "";
      
    $fp fsockopen($host$port$errno$errstr$timeout);
      if(
    $fp){
          
    fputs($fp"GET $path HTTP/1.1\r\n");
          
    fputs($fp"Host: $host\r\n");
          
    fputs($fp"User-Agent: Internet Explorer 5.0/1.0\r\n");
          
    fputs($fp"Content-type: application/x-www-form-urlencoded\r\n");
          
    fputs($fp"Connection: close\r\n\r\n");
          
          while(!
    feof($fp) && strpos($response"Location:")=== false)
        
    $response fgets($fp4096);
          
    fclose($fp);
      }
      
    $g_icq_list[$icq] = (strpos($response"online1.gif")!== false);
      return 
    $g_icq_list[$icq];
        }
    ?>
    (С) Vic'er
     
    #19 Gener, 10 Jan 2008
    Last edited: 10 Jan 2008
  20. FeraS

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

    Joined:
    19 Jan 2007
    Messages:
    555
    Likes Received:
    420
    Reputations:
    76
    Gener
    Тут не чужие, тут свои надо