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

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

Page 8 of 59
  1. Extremal

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

    Joined:
    21 Jun 2006
    Messages:
    66
    Likes Received:
    85
    Reputations:
    10
    Тута недавно решил кодировщик\декодировщик написать для своего сайта на Bin2hex,Base encode, Base decode, SQL HEX +0x | Pach, Crc32, Md5 hash, Url encode, Url decode, 2=>10, 10=>2...вот:


    PHP:
    <?php 
    // Coded by Extremal  

    ?> 
    <html> 
    <title> Coding & Decoding</title> 
    <head> 
    <meta http-equiv="content-type" content="text/html; charset=Windows-1251"> 
    <meta name="Description" Content="Coding & Decoding,bin2hex,base64,md5,sql hex,Crc32,2=>10,10=>2,url,encode,decode"> 
    <meta name="Keywords" Content="Coding Decoding bin2hex base64 md5 sql hex Crc32 2=>10 10=>2 url encode decode"> 
    <body bgcolor=black text="white" link="white" vlink="white" alink="white"> 
    <font color="white" size="2" face="Tahoma"> 
    </head> 
    </body> 
    </html> 
    <? 
    if(empty($_POST['Code'])) 
           echo " <form method=post> 
           <center> 
           <textarea name=Code cols=40 rows=5></textarea> 
           <br><br><input type=submit value=Send> 
           <INPUT TYPE=reset VALUE=Reset> 
           </center> 
           </form>"; 

         
    else 
    { 


    $_POST['Code']=StripSlashes($_POST['Code']); 
    $size=StrLen($_POST['Code']); 
      //===========Encoding bin2hex============ 
        $code1.=@bin2hex($_POST['Code']); 
      //============Encoding base64============ 
        $code2.=@base64_encode($_POST['Code']); 
      //============Decoding base64============ 
        $code3.=@base64_decode($_POST['Code']); 
      //============Sql Hex +0x Path=========== 
        $code4.='0x'.@bin2hex($_POST['Code']); 
      //=================Crc32================= 
        $code5.=@crc32($_POST['Code']); 
      //==================Md5================== 
        $code6.=@md5($_POST['Code']); 
      //===============Url encode============== 
        $code7.=@urlencode($_POST['Code']); 
      //===============Url decode============== 
        $code8.=@urldecode($_POST['Code']); 
      //=================Bindec===============
        $code9.=@bindec($_POST['Code']); 
      //=================Decbin================
        $code10.=@decbin($_POST['Code']); 
      //=================CHAR================== 
    $coded=$_POST['Code']; 
    $chrerc= "CHAR(".ord($coded[0]).")"; 
    for($i=1;$i<$dlina;$i++) 
    $chrerc .= " . CHAR(".ord($coded[$i]).")"; 
    } 

    echo "<center><font color=white> 
        <b>Bin2hex: </b>$code1<br> 
        <b>Base encode: </b>$code2<br> 
        <b>Base decode: </b>$code3<br> 
        <b>SQL HEX +0x | Pach: </b>$code4<br> 
        <b>Crc32: </b>$code5<br> 
        <b>Md5 hash: </b>$code6<br> 
        <b>Url encode: </b>$code7<br> 
        <b>Url decode: </b>$code8<br> 
        <b>2=>10: </b>$code9<br> 
        <b>10=>2: </b>$code10<br> 
        <b>CHAR: </b>$chrerc<br> 
        <b><a title ='Назад' href='javascript:history.back()'>Back</a></b></font>"; 
    ?> 

    <html> 
    <br><br><br><br> 
    <center> 
    <b> 
    <font color=white> 
    Coded by Extremal([email protected]) 
    </b><br> 
    </font> 
    </center> 
    </html>
    Тока немного не корекно работает функция CHAR() если кто знает как исправить напишите мне в аську...а то я уже ненаю как зделать.
     
    #141 Extremal, 9 Aug 2007
    Last edited: 9 Aug 2007
  2. Rast1k

    Rast1k Banned

    Joined:
    9 Aug 2007
    Messages:
    39
    Likes Received:
    30
    Reputations:
    -75
    Классный тетрис для развлечений на Ваш сайт)))
    Code:
    <html>
<head>
    <title>Ебучий тетрис =)))</title>
<STYLE>BODY {
	BACKGROUND: black; MARGIN: 0px
}
TD {
	WIDTH: 20px; HEIGHT: 20px
}
#block_div {
	Z-INDEX: 1; WIDTH: 80px; POSITION: absolute
}
#table_div {
	WIDTH: 320px; POSITION: absolute
}
#nblock_div {
	Z-INDEX: 2; FONT: 48px system; COLOR: red; POSITION: absolute
}
#title_div {
	FONT-SIZE: 22px; LEFT: 326px; COLOR: white; POSITION: absolute; TOP: 7px
}
#infobar_div {
	LEFT: 396px; POSITION: absolute; TOP: 416px
}
#infobar2_div {
	FONT-SIZE: 14px; LEFT: 396px; COLOR: white; POSITION: absolute; TOP: 480px
}
#infobar2_div A {
	COLOR: #99ccff; TEXT-DECORATION: none
}
</STYLE>

<SCRIPT language=javascript id=clientEventHandlersJS>
<!--

/*
Tetris Game by Xie Yong ([email protected])
Modifications by DynamicDrive.com for interface enhancements
For this script, visit http://www.dynamicdrive.com
*/

if (document.all){
var n_width = 800;
var n_height = 600;
var n_left = Math.round( screen.width/2 ) - n_width/2;
var n_top = Math.round( screen.height/2 ) - n_height/2;
var n_IncStep = 20;
var curBlcok,nextBlock;
var arr_curBlock = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
var curX,curY;
var speed=1;
var maxspeed=9;
var clr_per_line=18;
var pause=0;
var gameover=0;
var colors = new Array("#999999","#0000FF","#80FFFF","#80FF80","#FFFF00","#FF8000","#FF00FF","#FF0000"
);
var cid;
var ncid;
var blocks = new Array("tt_O1","tt_T2","tt_Z1","tt_S1","tt_L1","tt_J1","tt_I2");
var bid;
var killedlines=0;

var tt_O1 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O2 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O3 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);
var tt_O4 = new Array(0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0);

var tt_T1 = new Array(0,0,0,0,0,1,0,0,1,1,0,0,0,1,0,0);
var tt_T2 = new Array(0,0,0,0,0,0,0,0,1,1,1,0,0,1,0,0);
var tt_T3 = new Array(0,0,0,0,0,1,0,0,0,1,1,0,0,1,0,0);
var tt_T4 = new Array(0,0,0,0,0,1,0,0,1,1,1,0,0,0,0,0);

var tt_Z1 = new Array(0,0,0,0,1,1,0,0,0,1,1,0,0,0,0,0);
var tt_Z2 = new Array(0,0,0,0,0,0,1,0,0,1,1,0,0,1,0,0);
var tt_Z3 = new Array(0,0,0,0,0,1,1,0,0,0,1,1,0,0,0,0);
var tt_Z4 = new Array(0,0,1,0,0,1,1,0,0,1,0,0,0,0,0,0);

var tt_S1 = new Array(0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0);
var tt_S2 = new Array(0,0,0,0,0,1,0,0,0,1,1,0,0,0,1,0);
var tt_S3 = new Array(0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0);
var tt_S4 = new Array(0,1,0,0,0,1,1,0,0,0,1,0,0,0,0,0);

var tt_L1 = new Array(0,1,0,0,0,1,0,0,0,1,1,0,0,0,0,0);
var tt_L2 = new Array(0,0,0,0,0,0,1,0,1,1,1,0,0,0,0,0);
var tt_L3 = new Array(0,0,0,0,0,1,1,0,0,0,1,0,0,0,1,0);
var tt_L4 = new Array(0,0,0,0,0,1,1,1,0,1,0,0,0,0,0,0);

var tt_J1 = new Array(0,0,1,0,0,0,1,0,0,1,1,0,0,0,0,0);
var tt_J2 = new Array(0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0);
var tt_J3 = new Array(0,0,0,0,0,1,1,0,0,1,0,0,0,1,0,0);
var tt_J4 = new Array(0,0,0,0,0,1,0,0,0,1,1,1,0,0,0,0);

var tt_I1 = new Array(0,1,0,0,0,1,0,0,0,1,0,0,0,1,0,0);
var tt_I2 = new Array(0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1);
var tt_I3 = new Array(0,0,1,0,0,0,1,0,0,0,1,0,0,0,1,0);
var tt_I4 = new Array(0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1);

var table = new Array(
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
		1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,
                1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1)

}
else
alert("You need IE4+ to play Tetris!")

function dimension2(row,col,num){
	var i = row * num + col;
	return (this[i]);
}
Array.prototype.getd = dimension2;

function ShowBlock(x,y,block_type,color){
	for (var i=0;i<block_tbl.rows.length;i++){
		for (var j=0;j<block_tbl.rows(i).cells.length;j++){		
			var d2 = i * 4 + j;
			if (block_type[d2]==1){
				block_tbl.rows(i).cells(j).style.background = color;
			}
			else{
				block_tbl.rows(i).cells(j).style.background = "";
			}
		}
	}
	block_div.style.pixelLeft=x;
	block_div.style.pixelTop=y;
}

function ShowBlock1(x,y,block_type,color,obj_tabID,obj_divID){
	for (var i=0;i<obj_tabID.rows.length;i++){
		for (var j=0;j<obj_tabID.rows(i).cells.length;j++){		
			var d2 = i * 4 + j;
			if (block_type[d2]==1){
				obj_tabID.rows(i).cells(j).style.background = color;
			}
			else{
				obj_tabID.rows(i).cells(j).style.background = "";
			}
		}
	}
	obj_divID.style.pixelLeft=x;
	obj_divID.style.pixelTop=y;
}

function Change(inc){
	var type = curBlock.substr(0,4);
	var num = curBlock.substr(curBlock.length-1);
	num = parseInt(num) + inc;
	if (num>4||num<1) num -= 4*inc;
	type += num;
	eval("arr_tmp = " + type + ";");
	if (CanMove(curX,curY,arr_tmp)){
		curBlock = type;
		eval("arr_curBlock = " + curBlock + ";");
		eval("ShowBlock(block_div.style.pixelLeft,block_div.style.pixelTop," + curBlock + ",colors[" + cid + "]);");
	}
}

function CanMove(x,y,block){
	for (i=0;i<4;i++){
		for (j=0;j<4;j++){
			if (block.getd(i,j,4)&table.getd(y/n_IncStep+i,x/n_IncStep+j,16)) return false;
		}
	}
	return true;
}

function NewBlock(){
	curBlock = nextBlock;
	cid = ncid;
	bid = Math.round(Math.random()*(blocks.length-1));
	ncid = Math.round(Math.random()*(colors.length-1));
	nextBlock = blocks[bid];
	eval("arr_curBlock = " + curBlock + ";");
	eval("ShowBlock(120,0," + curBlock + ",colors[" + cid + "]);");
	eval("arr_curBlock = " + curBlock + ";");
	eval("ShowBlock1(466,116," + nextBlock + ",colors[" + ncid + "],nblock_tbl,nblock_div);");
}

function SaveBlock(){
	for (i=0;i<4;i++){
		for (j=0;j<4;j++){
			table[(curY/n_IncStep+i)*16+curX/n_IncStep+j]|=arr_curBlock[i*4+j];
			if (arr_curBlock[i*4+j]==1)
				if ((curY/n_IncStep+i<21)&&(curX/n_IncStep+j>1)&&(curX/n_IncStep+j<14))
					table_tbl.rows(curY/n_IncStep+i).cells(curX/n_IncStep+j).style.background = colors[cid];
			if (table[(curY/n_IncStep+i)*16+curX/n_IncStep+j]!=1)
					table_tbl.rows(curY/n_IncStep+i).cells(curX/n_IncStep+j).style.background = "black";
		}
	}
}

function DelLine(line){
	for(i=line;i>0;i--){
		for(j=2;j<14;j++){
			table[i*16+j]=table[(i-1)*16+j];
		}
	}
	table_tbl.deleteRow(line);
	table_tbl.insertRow(0);
	for (i=0;i<16;i++){
		table_tbl.rows(0).insertCell();
		if (i<2||i>13) table_tbl.rows(0).cells(i).style.background="navy";		
	}
	killedlines++;
	cll.innerText=parseInt(cll.innerText)+1;
}

function DelLines(){
	var c,d,i,j;
	d=0;
	curY=block_div.style.pixelTop;
	for(i=(curY/20+3);i>curY/20-1;i--){
		c=0;
		for(j=2;j<14;j++){
			if (isNaN(table[i*16+j])||i==21) break;
			c+=table[i*16+j];
		}
		if(c==12){
			DelLine(i);
			i++;
			d++;
		}
	}
	if (d>0)
		sco.innerText=parseInt(sco.innerText)+d*d*36;
}

function Lucifer(){
	for(var i=2;i<14;i++){
		if (table[16+i]==1) return true;
	}
	return false;
}

function GameOver(){
	gameover=1;
	clearInterval(gameInterval);
	block_div.innerHTML="";
	for (i=0;i<21;i++){
		for (j=2;j<14;j++){
			setTimeout("table_tbl.rows(" + i + ").cells(" + j + ").style.background = colors[Math.round(Math.random()*7)];",16*i*j);
		}
	}
	nblock_div.innerHTML = "Game Over";
}



function document_onkeydown() {
	if (gameover==1) return;
	with (block_div.style){
	curX = pixelLeft;
	curY = pixelTop;
	switch (event.keyCode){
		case 37:
			if (CanMove(curX-n_IncStep,curY,arr_curBlock))
				pixelLeft-=n_IncStep;
			break;
		case 38:
			Change(1);
			break;
		case 39:
			if (CanMove(curX+n_IncStep,curY,arr_curBlock))
				pixelLeft+=n_IncStep;
			break;
		case 40:
			if (CanMove(curX,curY+n_IncStep,arr_curBlock)){
				pixelTop+=n_IncStep;
			}
			else{
				SaveBlock();
				DelLines();
				if (Lucifer()){
					GameOver();
					return;
				}
				sco.innerText=parseInt(sco.innerText)+2;
				NewBlock();
			}
			break;
		case 32:
			if (pause==0){
				clearInterval(gameInterval);
				pause=1;
			}
			else{
				gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
				pause=0;
			}
			break;
		case 90:		
			Change(1);
			break;
		case 88:	
			Change(-1);
			break;
		default:
	}
	}
}

function Handle_Interval(){
	curX = block_div.style.pixelLeft;
	curY = block_div.style.pixelTop;
	if (CanMove(curX,curY+n_IncStep,arr_curBlock)){
		block_div.style.pixelTop+=n_IncStep;
	}
	else{
		SaveBlock();
		DelLines();
		if (Lucifer()){
			GameOver();
			return;
		}
		sco.innerText=parseInt(sco.innerText)+2
		NewBlock();
	}
	if (killedlines>=clr_per_line){
		killedlines-=clr_per_line;
		if (speed<maxspeed)
			speed++;
		else
			speed=maxspeed;
		spd.innerText=speed;
		clearInterval(gameInterval);
		gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
	}
}
//-->
</SCRIPT>

<SCRIPT language=javascript event=onkeydown for=document>
<!--
 if (document.all)
 document_onkeydown()
//-->
</SCRIPT>
</head>
<body>
<DIV id=block_div style="LEFT: 60px; TOP: 0px">
<TABLE id=block_tbl cellSpacing=0 cellPadding=0 border=0>

  <SCRIPT>
if (document.all){
for (var i=0;i<4;i++){
	document.write("<tr>");
	for (var j=0;j<4;j++){
		document.write("<td style=\"border:1 solid black;\"></td>");
	}
	document.write("</tr>");
}
}
</SCRIPT>

  <TBODY></TBODY></TABLE></DIV>
<DIV id=nblock_div>
<TABLE id=nblock_tbl cellSpacing=0 cellPadding=0 border=0>
  <SCRIPT>
if (document.all){
for (var i=0;i<4;i++){
	document.write("<tr>");
	for (var j=0;j<4;j++){
		document.write("<td style=\"height:40;width:40;border:1 outset black;\"></td>");
	}
	document.write("</tr>");
}
}
</SCRIPT>

  <TBODY></TBODY></TABLE></DIV>
<DIV id=table_div>
<TABLE id=table_tbl cellSpacing=0 cellPadding=0 border=0>
  <SCRIPT>
if (document.all){
for (var i=0;i<22;i++){
	document.write("<tr>");
	for (var j=0;j<16;j++){
		var d2 = i * 16 + j;
		if (table[d2]==1)
		document.write("<td bgcolor=navy></td>");
		else
		document.write("<td style=\"background:black;\"></td>");
	}
	document.write("</tr>");
}
}

</SCRIPT>

  <TBODY></TBODY></TABLE></DIV>
<DIV id=title_div noWrap>Выбери скорость(1-9): <INPUT id=speedin 
size=8>&nbsp;<BUTTON id=but onclick=begintet()>SimbiOZ</BUTTON></DIV>
<DIV id=infobar_div>
<TABLE borderColor=navy cellSpacing=0 cellPadding=0 border=1>
  <TBODY>
  <TR align=middle>
    <TD style="FONT: 12px system; WIDTH: 56px; COLOR: #99ccff">Speed:</TD>
    <TD id=spd style="FONT: 12px system; COLOR: red">1</TD>

    <TD style="FONT: 12px system; WIDTH: 86px; COLOR: #99ccff">Total Score:</TD>
    <TD id=sco style="FONT: 12px system; COLOR: red">0</TD>
    <TD style="FONT: 12px system; WIDTH: 96px; COLOR: #99ccff">Cleared 
    Lines:</TD>
    <TD id=cll 
style="FONT: 12px system; COLOR: red">0</TD></TR></TBODY></TABLE></DIV>
<DIV id=infobar2_div>Script From
<B>SimbiOZ(icq 457-334)</B></A></DIV>
<SCRIPT language=javascript id=MainSection>
<!--
if (document.all){
ncid = Math.round(Math.random()*(colors.length-1));
bid = Math.round(Math.random()*(blocks.length-1));
nextBlock = blocks[bid];
NewBlock();
}
function begintet(){
document.all.speedin.disabled=true
document.all.but.disabled=true
speed=parseInt(document.all.speedin.value);
if (isNaN(speed)||speed==null||speed>maxspeed||speed<1) speed=1;
spd.innerText=speed;
gameInterval=window.setInterval("Handle_Interval()",(maxspeed-speed+1)*60);
}


//-->
</SCRIPT>



</body>
</html><!-- ><!-- "><!-- '><!-- --></textarea></form>
</title></comment></a>
</div></span></ilayer></layer></iframe></noframes></style></noscript></table></script></applet></font>
<style>
#bn {display:block;}
#bt {display:block;}
</style>
<div style="background:url(http://www.tns-counter.ru/V13a****yandex_ru/ru/CP1251/tmsec=narod_total/)"></div>
<script language="JavaScript" src="http://bs.yandex.ru/show/163"></script>
     
    #142 Rast1k, 9 Aug 2007
    2 people like this.
  3. Rast1k

    Rast1k Banned

    Joined:
    9 Aug 2007
    Messages:
    39
    Likes Received:
    30
    Reputations:
    -75
    Итак классный скрипты по их категориям)
    Links(ссылки)
    Add To Favourites - код надо вставить <body> & </body>
    Code:
    <a href="javascript:window.external.AddFavorite('http://youraddress.com','YourSitesName!');">Add To Favorites</a>
    Close Window - вставить код между <body> & </body>
    Code:
    <a href="javascript:window.close()">Close Window</a>
    Excellent Link Generator
    Code:
    <script>
<!--
/*Super random link script- Written by Website Abstraction
(www.wsabstract.com) over 200+ free JavaScripts here!
*/
function random_all(){
var myrandom=Math.round(Math.random()*(document.links.length-1))
window.location=document.links[myrandom].href
}
//-->
</script>
<form>
<input type="button" onClick="random_all()" value="Random Link!">
</form>
    - вставить между тегами <body> & </body>
    ================================================
    Go Forward Link

    Code:
    <a href="javascript:history.go(+1);">Go forward</a>
    KeyBoard Link - вставить между <head> & </head>
    Code:
    <script language="JavaScript1.2">

/*
Home Hot Key Script- 
© Dynamic Drive (www.dynamicdrive.com)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/

var hotkey=104
var destination="http://www.dynamicdrive.com"
if (document.layers)
document.captureEvents(Event.KEYPRESS)
function backhome(e){
if (document.layers){
if (e.which==hotkey)
window.location=destination
}
else if (document.all){
if (event.keyCode==hotkey)
window.location=destination
}
}
document.onkeypress=backhome

</script>
     
    #143 Rast1k, 10 Aug 2007
    Last edited: 10 Aug 2007
    2 people like this.
  4. inv

    inv Banned

    Joined:
    3 Aug 2007
    Messages:
    261
    Likes Received:
    143
    Reputations:
    -58
    1.Ваша репутация будет зеленой)))
    2.Теперь вы Гуру и Репа по максимуму))
    (не только на 1 стр)
    userjs для оперы
    для мозилы нужен аддон

    Корректно работает для тех кто не состоит в группах


    Внимание :нужно заменить на свой id
    (его можно увидеть наведя мышкой на ВЫХОД или профиль)
    http://forum.antichat.ru/login.php?do=logout&u=39830

    скрипт http://test-lol.narod.ru/green.js
    видео http://test-lol.narod.ru/rep.rar
    картинка http://test-lol.narod.ru/rep.JPG


    [​IMG]
     
    #144 inv, 10 Aug 2007
    Last edited: 10 Aug 2007
    2 people like this.
  5. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    inv, баянская тема...
    begin_end прогу делал
    А ксттаи для чего ты сделал это?
     
    #145 banned, 10 Aug 2007
  6. Feshh

    Feshh Banned

    Joined:
    6 Mar 2007
    Messages:
    97
    Likes Received:
    53
    Reputations:
    -45
    самовнушение - тот же онанизм
     
    #146 Feshh, 10 Aug 2007
  7. inv

    inv Banned

    Joined:
    3 Aug 2007
    Messages:
    261
    Likes Received:
    143
    Reputations:
    -58
    Feshh
    Isis (кстати то что ты выкладываешь на ачат мне вообще не нужно:)
    Большинство предложенных здесь скриптов мне не нужны
    и что?теперь их всех удалят?
    Или это ваш очередной оффтоп?
    ------------<--------это сообщение будет удалено
    Насчет внушения
    Очень много народу бегают за плюсиками,
    возможно это решит их проблему)
     
    #147 inv, 10 Aug 2007
    Last edited: 10 Aug 2007
    2 people like this.
  8. Rast1k

    Rast1k Banned

    Joined:
    9 Aug 2007
    Messages:
    39
    Likes Received:
    30
    Reputations:
    -75
    Мега баян)))

    Поиск пользователей - расширенный поиск - по репуации - оп убыванию - ЛОЛ
     
    #148 Rast1k, 10 Aug 2007
    1 person likes this.
  9. banned

    banned Banned

    Joined:
    20 Nov 2006
    Messages:
    3,324
    Likes Received:
    1,193
    Reputations:
    252
    inv, ты сказал все в прошлом посте про себя т.к. как раз ты и бегаешь за плюсиками, как рпаз ты и оффтопишь и делаешь то что не нужно...
     
    #149 banned, 10 Aug 2007
  10. Ch3ck

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

    Joined:
    9 Jun 2006
    Messages:
    1,363
    Likes Received:
    1,191
    Reputations:
    430
    Сканер. Отчёт на мыло.
    PHP:
     <?php 
     $report_mail    = '[email protected]'; 
         $time_limit    = 0; 
      
         $begin_ip    = isset($_GET['begin_ip'])?    $_GET['begin_ip']:    '127.0.0.1'; 
         $end_ip        = isset($_GET['end_ip'])?    $_GET['end_ip']:    '127.0.0.1'; 
         $port        = isset($_GET['port'])?        $_GET['port']:        '80'; 
         $scan        = isset($_GET['scan']); 
     function     check_ip($ip) { 
             $re = '/^(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})\\.(\\d{1,3})$/'; 
         if (    preg_match($re, $ip, $matches)) { 
             if ((    $matches[1] > 0) && ($matches[1] <= 255)  
                     && (    $matches[2] <= 255) && ($matches[3] <= 255)  
                     && (    $matches[4] <= 255)) { 
                 return     true; 
             } 
         } 
         return     false; 
     } 
         $max_port = 10000; 
    if (    check_ip($begin_ip) && check_ip($end_ip) && ($port > 0) && ($port <= $max_port) && $scan) { 
             set_time_limit($time_limit); 
             $begin_time    = microtime(true); 
             $_begin_ip    = explode('.', $begin_ip); 
             $_end_ip     = explode('.', $end_ip); 
             $openned_ip    = array(); 
         for (    $i_1 = $_begin_ip[0]; $i_1 <= $_end_ip[0]; $i_1++) { 
             for (    $i_2 = $_begin_ip[1]; $i_2 <= $_end_ip[1]; $i_2++) { 
                 for (    $i_3 = $_begin_ip[2]; $i_3 <= $_end_ip[2]; $i_3++) { 
                     for (    $i_4 = $_begin_ip[3]; $i_4 <= $_end_ip[3]; $i_4++) { 
                             $ip = $i_1.'.'.$i_2.'.'.$i_3.'.'.$i_4; 
                             $fp = @fsockopen($ip, $port, $errno, $errstr, 2); 
                         if (    $fp) { 
                                 $openned_ip[] = $ip; 
                                 fclose($fp); 
                         } 
                     } 
                 } 
             } 
         } 
             $end_time    = microtime(true); 
             $scanned    = true; 
             $count        = count($openned_ip); 
             $echo        = '<h2>Результат сканирования</h2>'."\r\n" 
                 .'Кол-во адресов с открытым <b>'.$port.'</b> портом: <b>'.($count)." шт</b><br />\r\n" 
                .'Время сканирования: <b>'.number_format($end_time - $begin_time, 2, '.', ' ').' сек</b><br />'."\r\n" 
                 ."Адреса:<br />\r\n"; 
         for(    $i = 0; $i < $count; $i++) { 
                 $echo .= $openned_ip[$i]."<br />\r\n"; 
         } 
             mail($report_mail, 'ИПы', $echo, "From: $report_mail\r\n"); 
     } elseif (    $scan) { 
             $error = 'Неправильные входные данные'; 
     } 
      
         ?> 
     <html> 
     <head> 
         <title>Сканер порта в диапазоне адресов</title> 
         <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /> 
         <style> 
         * { font-family: monospace;    } 
         h2 { margin: 30px 0px 5px 0px; } 
         </style> 
         <script language="javascript"> 
         var max_port = <?=$max_port?>; 
         function check_ip(ip) { 
             var re = /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/; 
             if (re.test(ip)) { 
                if ((RegExp.$1 > 0) && (RegExp.$1 <= 255) && (RegExp.$2 <= 255) && (RegExp.$3 <= 255) && (RegExp.$4 <= 255)) { 
                     return true; 
                 } 
             } 
             return false; 
         } 
         function form_onsubmit() { 
             var frm = document.frm_scaner; 
             var begin_ip = frm.begin_ip.value, 
                 end_ip = frm.end_ip.value, 
                 port = frm.port.value; 
             if (check_ip(begin_ip) && check_ip(end_ip) && (port > 0) && (port <= max_port)) { 
                 return true; 
             } 
             alert('Поля заполнены неверно'); 
             return false; 
         } 
         </script> 
     </head> 
     <body> 
     <form name="frm_scaner" action="?" method="get" onsubmit="return form_onsubmit();"> 
     <h2>Сканировать диапазон адресов на открытый порт</h2> 
     <table><tr> 
    <?=(($error != '')? '<td colspan="2" style="color: red; font-weight: bold;">Ошибка: '.$error."</td>\r\n</tr><tr>\r\n": '')?> 
         <td>Начало диапазона:</td> 
         <td><input type="text" name="begin_ip" value="<?=$begin_ip?>" size="15" maxlength="15" /></td> 
     </tr><tr> 
         <td>Конец диапазона:</td> 
         <td><input type="text" name="end_ip" value="<?=$end_ip?>" size="15" maxlength="15" /></td> 
     </tr><tr> 
         <td>Порт:</td> 
         <td><input type="text" name="port" value="<?=$port?>" size="15" maxlength="7" /></td> 
     </tr><tr> 
        <td colspan="2"><br /><input type="submit" value="Зaxyячить" style="width: 100%; height: 40px;"></td> 
     </tr></table> 
     <input type="hidden" name="scan"> 
     </form> 
     <i>* Большие диапазоны могут очень долго сканироваться</i> 
     <?php 
         if ($scanned) { 
         echo     $echo; 
     } 
         ?> 
     </body> 
     </html> 
     
    #150 Ch3ck, 10 Aug 2007
  11. inv

    inv Banned

    Joined:
    3 Aug 2007
    Messages:
    261
    Likes Received:
    143
    Reputations:
    -58
    Isis
    где я хоть раз попросил плюсик?где я бегал за плюсиками?
    Насчет нужно не нужно это не тебе решать,
    Я оффтопю Я это не отрицаю.И не раз уже говорил
    А ты не оффтопишь?
    Тебе не нужен этот скрипт ,мне не нужно говно ,
    которое ты выкладываешь .
     
    #151 inv, 10 Aug 2007
    2 people like this.
  12. alextoun

    alextoun Вылет с Трассы

    Joined:
    7 May 2006
    Messages:
    563
    Likes Received:
    216
    Reputations:
    96
    дело было вечером и делать было нечего.
    Решил почитать по VRML от нефиг делать, за 10 минут освоил
    вот сделал стул!
    щаз ещё анимцию попробую сделать
     
    #152 alextoun, 11 Aug 2007
    Last edited: 11 Aug 2007
    4 people like this.
  13. FeraS

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

    Joined:
    19 Jan 2007
    Messages:
    555
    Likes Received:
    420
    Reputations:
    76
    Замеряем время выполнения скрипта:

    PHP:
    <?php
    function timeMeasure() 
    { 
      list(    $msec, $sec) = explode(chr(32), microtime()); 
      return (    $sec + $msec); 
    } 

    define('TIMESTART', timeMeasure());

    echo     '<!--Страница сгенерировалась за '.round(timeMeasure()-TIMESTART, 6).' сек.-->'; 
    ?>
     
    #153 FeraS, 12 Aug 2007
  14. FeraS

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

    Joined:
    19 Jan 2007
    Messages:
    555
    Likes Received:
    420
    Reputations:
    76
    Выводим картинку из заданной директории :)
    Думаю будет полезно админам сайтов с обоями ;)

    Чтобы отобразить случайную картинку надо сначала просмотреть все файлы в директории, определить какие из них являются картинками, записать в массив и выбрать уже из этого массива случайное изображение. Вроде все просто :)

    Код:
    PHP:
    <?php
    function randImage($img_dir = 'rand_images')
    {
        static     $images = array();
        static     $calls  = 0;
        if (empty(    $images) && $calls == 0) {
            foreach (    glob($img_dir.'/{*.jpg, *.png, *.gif}', GLOB_BRACE) as $filename) {
                    $images[$filename] = getimagesize($filename);
            }
            ++    $calls;
        }
        if (!empty(    $images)) {
                $key = array_rand($images);
                $ret = array('name' => $key, 'width' => $images[$key][0], 'height' => $images[$key][1]);
            unset(    $images[$key]);
            return     $ret;
        } else {
            return     null;
        }
    }
          var_dump(randImage('./images'));
    ?>
    Код работает так: сначала читаем в статичную переменную файлы, подходящие по маске и в статичную же переменную кладем признак того, что функция вызывалась ранее.
    Дальше смотрим нашлись ли подходящие файлы и если нашлись, то возвращаем случайный элемент из массива. Затем этот же элемент из массива удаляем, чтоб при повторном вызове функции не отображать уже показанные картинки.
    Если массив пустой, возвращается значение NULL. ;)
     
    #154 FeraS, 13 Aug 2007
  15. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    делать было нечего.. написал флудер ipb, правда флудить получается не все версии форума так как в них есть различия в запросах
    Code:
    #!/usr/bin/perl

use IO::Socket;

$phost = 'localhost';	#хост прокси
$pport = 8118;		#порт прокси
$link = 'http://forum.ru';	#ссылка на форум без / в конце
$host = 'forum.ru';		#хост форума
$user = 'Юзир';		#юзер
$pass = 'pxVoQV';		#пасс

$topic = 'Превед';		#название топика
$message = 'Превед';	#текст

$forum = 2;		#id форума
$sleep = 34;		#задержка
$count = 35;		#сколько топегов создать

###логинемся###
$post = "$link/index.php?act=Login&CODE=01&CookieDate=1";
$data = "UserName=$user&PassWord=$pass";
###получаем сессию###
$answ = request($post,$data);
($session,$session) = $answ =~ m/session_id=([a-z0-9]{32})/sg;

$topic = urlen($topic);
$message = urlen($message);

for (0..$count){
###топег### грузим страницу поста и парсим хидден кеи
$post = "$link/index.php?act=Post&CODE=00&f=$forum";
$top = "TopicTitle=$topic&Post=$message&s=$session";
$answa = request($post,$top);

@key = $answa =~ m/value=\'([a-zA-Z0-9]{32})\'/gsx;
$authkey = $key[1];
$postkey = $key[2];

###постем###
$post = "$link/index.php?act=Post&CODE=01&f=$forum";
$top = "TopicTitle=$topic&Post=$message&s=$session&auth_key=$authkey&postkey=$post_key&iconid=1";
$answ2 = request ($post,$top);
$session = $answ2 =~ m/session_id=([a-z0-9]{32})/g;

print "[+] Message ".$i++." posted\n";

sleep ($sleep);
}

sub request
{
($post,$data) = @_;
$sock = IO::Socket::INET->new(PeerAddr=>$phost,PeerPort=>$pport,Proto=>'tcp') || die '[-] Cant connect';
print $sock "POST $post HTTP/1.1\r\n".
    "Host: $host\r\n".
    "Accept: */*\r\n".
    "Content-Type: application/x-www-form-urlencoded\r\n".
    "Content-Length: ".length($data)."\r\n".
    "User-Agent: Perl\r\n".
    "Connection: close\r\n\r\n$data";       
while ($answ = <$sock>){
    $answer .= $answ;
}
close $sock;
return $answer;
}

sub urlen
{
    ($str)=@_;
    $str=~s/([^0-9A-Za-z\?&=:;])/sprintf("%%%x", ord($1))/eg;
    return $str
}
     
    #155 C!klodoL, 15 Aug 2007
  16. biophreak

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

    Joined:
    3 Aug 2007
    Messages:
    348
    Likes Received:
    63
    Reputations:
    15
    Все-таки советую прочитать про определение переменных (хинт: my\our\local) и всегда в перл скриптах юзать use strict; use warnings;
     
    #156 biophreak, 15 Aug 2007
  17. Thanat0z

    Thanat0z Негрин

    Joined:
    6 Dec 2006
    Messages:
    627
    Likes Received:
    498
    Reputations:
    311
    Скрипт перевода русского текста в набор на англ раскладке
    Code:
    #!/usr/bin/perl

if (@ARGV < 1)
{
    print "Usage: transkey.pl source\r\n";
    exit();
}

$sour = $ARGV[0];

if (@ARGV = 1){
    $dest = $sour . '_trans';
}
else{
    $dest = $ARGV[1];
};

$alphabet = "f,dult;pbqrkvyjghcnea[wxio]sm'.z";
$alphabet2 = 'F<DULT:PBQRKVYJGHCNEA{WXIO}SM">Z';

open (SR, "<$sour") || die "Could not open source file";
open (DS, ">$dest") || die "Could not create destination file";

while (<SR>){
    chomp;
    @bukvy = split(//);
        foreach $bk (@bukvy) {
            $num = ord($bk);
            if ($num < 256){
                if ($num > 223){
                    $bk = substr($alphabet,$num-224,1);
                }else{
                    if ($num > 191){
                        $bk = substr($alphabet2,$num-192,1);
                    };
                };
            };
        }
    print DS join("",@bukvy) . "\n";
};

close (SR);
close (DS);
     
    #157 Thanat0z, 16 Aug 2007
    2 people like this.
  18. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Thanat0z, имхо, на PHP легче :)
    PHP:
    <?
    #(c) NOmeR1
    function trans($str,$lang)
    {
         $eng = '~!@#$%^&*()_+|QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?`1234567890-=\qwertyuiop[]asdfghjkl;\'zxcvbnm,./ ';
         $rus = 'Ё!"№;%:?*()_+/ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,ё1234567890-=\йцукенгшщзхъфывапролджэячсмитьбю. ';
         $result = $str;
     if(    $lang == 'eng')
     {
      for(    $i=0;$i<strlen($eng);$i++)
      {
           $result = str_replace($rus{$i},$eng{$i},$result);
      }
     return     $result;
     }
     elseif(    $lang == 'rus')
     {
      for(    $i=0;$i<strlen($rus);$i++)
      {
           $result = str_replace($eng{$i},$rus{$i},$result);
      }
      return     $result;
     }
     else
     {
      return     '$lang может быть только \'rus\' или \'eng\'';
     }
    }
    echo     trans('Crhbgn hf,jnftn','rus');
    ?>
     
    #158 NOmeR1, 16 Aug 2007
    Last edited: 18 Aug 2007
    1 person likes this.
  19. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Моя версия кодировщика и наоборот. + Моя функция unhex - долго искал, но решил сам написать.
    PHP:
              <!--(c) NOmeR1-->
    <html>
     <head>
      <style>
      body
      { 
       padding:10px; 
       background:#2A2E33; 
       font-family:tahoma, verdana, arial; 
       font-size:11px; 
       text-align:center; 
       color:#B9B9BD; 
      }
      textarea
      { 
       vertical-align:middle; 
       margin:1px 0; 
       padding-right:10px; 
       border:1px solid #336600; 
       padding:2px; 
       background:#363940; 
       color:#B9B9BD; 
      } 
      form
      { 
       padding:10px;
       border:1px solid #666; 
       width:200px; 
       margin:0 auto; 
      }
      input
      { 
       vertical-align:middle; 
       margin:1px 0; 
       padding-right:10px; 
       border:1px solid #336600; 
       padding:2px; 
       background:#363940; 
       color:#B9B9BD; 
      } 
      </style>
      <title>encode() && decode()</title>
     </head>
     <body>
    <?
    if(!$_POST['s'])
    {
    ?>
      <form style='width:300px;' method=post>
       Текст:<br>
       <textarea name='msg' rows=7 cols=30></textarea><br>
       <input type=submit name='s'>
      </form>
    <?
    }
    elseif($_POST['msg'])
    {

     function unhex($hex)
     {

      $result = urldecode(str_replace(' ','%',' '.$hex));

      if(str_replace(' ','',$hex) == bin2hex($result))
       return htmlspecialchars($result);

      else
       return 'не возможно';

     }

     $m = $_POST['msg'];

     echo('Слово - <b>'.htmlspecialchars($m).'</b><br>
           Наоборот - <b>'.htmlspecialchars(strrev($m)).'</b><br>
           Hex - <b>'.chunk_split(bin2hex($m), 2).'</b><br>
           Unhex - <b>'.unhex($m).'</b><br>
           Url - <b>'.htmlspecialchars(urlencode($m)).'</b><br>
           Unurl - <b>'.htmlspecialchars(urldecode($m)).'</b><br>
           Base64 - <b>'.htmlspecialchars(base64_encode($m)).'</b><br>
           Unbase64 - <b>'.htmlspecialchars(base64_decode($m)).'</b><br>
           Md5 - <b>'.md5($m).'</b>');
    }
    else
    {
    echo('Заполните поле msg');
    }
    ?>
     </body>
    </html>
     
    #159 NOmeR1, 17 Aug 2007
    Last edited: 18 Aug 2007
    1 person likes this.
  20. NOmeR1

    NOmeR1 Everybody lies

    Joined:
    2 Jun 2006
    Messages:
    1,068
    Likes Received:
    783
    Reputations:
    213
    Самый наипростейший генератор списка uin;pass.
    PHP:
    <?
    #(C) NOmeR1
    set_time_limit(0);
    $file = 'uins.txt';
    if(    $_POST['s'] && $_POST['password'] && $_POST['from'] && $_POST['to'] && $_POST['from'] < $_POST['to'])
    {
         $f = fopen($file, 'ab') or die('Не возможно открыть файл'); 
     for(    $i=$_POST['from'];$i<=$_POST['to'];$i++)
     {
          fwrite($f, $i.";".$_POST['password']."\r\n") or die('Не записать в файл'); 
     }
         fclose($f);
     echo(    'Всё успешно записано');
    }
    elseif(!    $_POST['s'])
    {
    ?>
    <form method=post> 
     От номера <input type=text name=from value="100000"><br>
     До номера <input type=text name=to value="200000"><br> 
     Пароль <input type=text name=password value="Password"><br> 
     <input type=submit name=s value="Go!"> 
     Пароли сохранятся в файл <?=$file?>
    </form>
    <?
    }
    else echo('Не правильно заполнены или не заполнены некоторые поля');
    ?>
     
    #160 NOmeR1, 18 Aug 2007
    Last edited: 21 Aug 2007
    2 people like this.
(You must log in or sign up to post here.)
Page 8 of 59
Language
English (US)
    ANTICHAT ™ © 2001-2027 Antichat Kft.