ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #51  
Старый 27.05.2008, 21:01
попугай
Познавший АНТИЧАТ
Регистрация: 15.01.2008
Сообщений: 1,166
Провел на форуме:
2459557

Репутация: 606


По умолчанию

cash$$$


скрипт мегазачотный..... суперско.... прям как интерфейс Aero у висты)))))))

супер.. маладца
 
Ответить с цитированием

  #52  
Старый 28.05.2008, 20:03
NOmeR1
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме:
6023777

Репутация: 2642


Отправить сообщение для NOmeR1 с помощью ICQ
По умолчанию

Код:
<?php
	function what_in_tv($channel) {
		$content = file_get_contents('http://www.allservice.ru/tv-progr.php?channel='.$channel);
		preg_match_all('~<div>([0-9]+:[0-9]+)*([^<]+)</div>~i', $content, $regular);
		foreach($regular[1] as $key => $time) {
			if(strtotime($time) <= time()+32400 && (!$regular[1][$key+1] || strtotime($regular[1][$key+1]) > time()+32400)) {
				return $regular[2][$key];
			}
		}
		return false;
	}
	$channels = array(1 => 'Первый', 'Россия', 'Центр', 'НТВ', 'Культура', 'Спорт', 'ТНТ', 'Домашний', 'Ren TV', 'СТС', 'ТВ3', 'Столица', 'MTV', 'Муз ТВ', 'DTV', '7', '2x2', 'Rambler', 'Школьник');
	echo('Вот что сейчас идёт по телеку:<br>');
	echo('<table width="80%">');
	foreach($channels as $key => $value) {
		$wit = what_in_tv($key);
		echo('<tr><td style="width: 1%;">'.$key.'.</td><td style="width: 30%;">'.$value.'</td><td>'.($wit !== false ? $wit : 'Нет данных').'</td></tr>');
	}
	echo('</table>');
?>
(парсер) Самый нужный и полезный скрипт, который я когда-либо писал =))

Последний раз редактировалось NOmeR1; 28.05.2008 в 20:06..
 
Ответить с цитированием

  #53  
Старый 03.06.2008, 18:32
Exlibris
Постоянный
Регистрация: 26.02.2007
Сообщений: 495
Провел на форуме:
3835614

Репутация: 1386
Отправить сообщение для Exlibris с помощью ICQ
По умолчанию

Почти фрактал =)
Цитата:
<?php
$im = imagecreate(400,400);
//colors
$colorB = imagecolorallocate($im,0,100,0);//background
$colorL = imagecolorallocate($im,80,130,80);//line
$colorP = imagecolorallocate($im,0,255,255);//pic
//line
imageline($im,200,0,200,400,$colorL);
imageline($im,0,200,400,200,$colorL);
//dots array
$point1 = array(200,200,110,200,200,110);//small
$point2 = array(200,200,200,110,290,200);
$point3 = array(200,200,290,200,200,290);
$point4 = array(200,200,110,200,200,290);

$dots3 = array(0,210,210,210,210,0);//big
$dots4 = array(400,210,190,210,190,0);
$dots5 = array(400,190,190,190,190,400);
$dots6 = array(0,190,210,190,210,400);

$dots7 = array(230,230,170,170,290,110);//centar
$dots8 = array(230,230,170,170,110,290);
$dots9 = array(170,230,230,170,110,110);
$dots10 = array(170,230,230,170,290,290);
//pic
imagepolygon($im,$point1,3,$colorP);//small
imagepolygon($im,$point2,3,$colorP);
imagepolygon($im,$point3,3,$colorP);
imagepolygon($im,$point4,3,$colorP);
imagepolygon($im,$dots3,3,$colorP);//big
imagepolygon($im,$dots4,3,$colorP);
imagepolygon($im,$dots5,3,$colorP);
imagepolygon($im,$dots6,3,$colorP);
imagepolygon($im,$dots7,3,$colorP);//center
imagepolygon($im,$dots8,3,$colorP);
imagepolygon($im,$dots9,3,$colorP);
imagepolygon($im,$dots10,3,$colorP);
//image
header("content-type: image/png");
imagepng($im);
imagedestroy($im);
?>
 
Ответить с цитированием

  #54  
Старый 04.06.2008, 00:08
Solide Snake
Moderator - Level 7
Регистрация: 28.04.2007
Сообщений: 547
Провел на форуме:
5516499

Репутация: 3702


Отправить сообщение для Solide Snake с помощью ICQ
По умолчанию

Код:
#!/usr/bin/perl
# Sys - Project

# IPscaner v1.0
# Coded by Solide Snake
# http://forum.antichat.ru/ 


use IO::Socket;

my $host = $ARGV[0];
my $inip = $ARGV[1];
my $fip = $ARGV[2];

print "\n\t", '-' x 24,"\n";
print "\t[    IPscanner v1.0    ]\n";
print "\t[coded by Solide Snake ]\n";
print "\t",'-' x 24,"\n\n";

die &usage unless $ARGV[2];

if ($inip>$fip) {
   die "Port error!\n";
}

@ips = split(/\./,$host);
if ($ips[0]>255 || $ips[1]>255 || $ips[2]>255 || $ips[3]>255){
   die "[!] IP > 255\n";
}

for ($port = $inip; $port <= $fip; $port++){

   $conn_in = inet_aton($host) || die "[-] error connect.";
   $sock_addr = sockaddr_in($port, $conn_in);
   socket(SOCK, AF_INET, SOCK_STREAM, 'tcp');

if (connect(SOCK, $sock_addr)) {
   $service = getservbyport($port, 'tcp');
   print "$host:$port / $service\n";
   close(SOCK);
 }
}

sub usage{
print "usage: perl $0 <host/ip> <port-begin> <port-end>\n";
print "example: perl $0 127.0.0.1 3 355\n";
exit;
}

__END__
Простенький IP сканер
 
Ответить с цитированием

  #55  
Старый 04.06.2008, 00:18
BlackSun
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345

Репутация: 4589


По умолчанию

Код:
function gen_rnd($len) {
        $rnd_text=null;
        for ($i=0;$i<$len;$i++){
                $temp=rand(1,3);
                if ($i==0){
                        $temp2=rand(1,2);
                        if ($temp2==1) {
                                $rnd_text.=chr(rand(65,90));
                        } else {
                                $rnd_text.=chr(rand(97,122));
                        }
                } else {
                        if ($temp==1) {
                                $rnd_text.=chr(rand(65,90));
                        } elseif ($temp==2) {
                                $rnd_text.=chr(rand(97,122));
                        } else {
                                $rnd_text.=chr(rand(48,57));
                        }
                }
        }
        return $rnd_text;
}

function crupt_php_code($code)
{
  $start_pos = strpos($code, "<?php");
  if ($start_pos === false)
  {
	$start_pos = strpos($code, "<?");
	if ($start_pos !== false)
	{ $code = substr($code, $start_pos + 2, strlen($code)); }
  } else
  { $code = substr($code, $start_pos + 5, strlen($code)); }
  $start_pos = strrpos($code, "?>");
  if (is_int($start_pos)) { $code = substr($code, 0, $start_pos); }
  $code = base64_encode(gzdeflate($code));
  $code = "eval(gzinflate(base64_decode('".$code."')));";
  $key_name = '$'.gen_rnd(8);
  $key = rand(0, 99);
  $code_name = '$'.gen_rnd(8);
  $decoded_name = '$'.gen_rnd(8);
  $cycle_name = '$'.gen_rnd(4);
  $crupted_code = '';
  for ($i=0;$i<strlen($code);$i++)
  { $crupted_code .= chr(ord($code[$i]) ^ $key); }
  $crupted_code = base64_encode($crupted_code);
  $unpacker = $code_name.'=base64_decode('.$code_name.'); for ('.$cycle_name.'=0;'.$cycle_name.'<strlen('.$code_name.');'.$cycle_name.'++) { '.$decoded_name.' .= chr(ord('.$code_name.'['.$cycle_name.']) ^ '.$key_name.'); } eval('.$decoded_name.');';
  $xcode = "<? \r\n".$key_name.'='.$key.';'."\r\n".$code_name.'="'.$crupted_code.'";'."\r\n".$unpacker.' ?>';
  return $xcode;
}
 
Ответить с цитированием

  #56  
Старый 23.06.2008, 11:03
Shadow_p1raT
Участник форума
Регистрация: 09.03.2008
Сообщений: 193
Провел на форуме:
2140897

Репутация: 267
Отправить сообщение для Shadow_p1raT с помощью ICQ
Lightbulb

Сегодня от неренаделанья написал(в рамках изучения gd):
Аntichat Informer.
Скрипт показывает:
  • Сколько всего пользователей на античате
  • Сколько гостей
  • Сколько пользователей
  • Приветствие новенького
PHP код:
<?php
session_start
();
set_time_limit(0);
function 
win2uni($s

 
$s convert_cyr_string($s,'w','i'); 
 for (
$result=''$i=0$i<strlen($s); $i++) { 
  
$charcode ord($s[$i]); 
  
$result .= ($charcode>175)?"&#".(1040+($charcode-176)).";":$s[$i]; 
 } 
 return 
$result
}
$admini=array("Algol","Егорыч++++","Че Гевара","Elekt");
$file=file_get_contents("http://forum.antichat.ru/");
$vsego=preg_match("~Сейчас посетителей</a>: [0-9]{0,4}~",$file,$reg);
$vsego=$reg[0];
$vsego=str_replace("</a>","",$vsego);
$reg=preg_match("~[0-9]{0,3} пользователей~",$file,$reg1);
$reg=$reg1[0];
$reg=str_replace("пользователей","",$reg);
$guest=preg_match("~[0-9]{0,4} гостей~",$file,$reg2);
$quest=$reg2[0];
$guest=str_replace("гостей","",$quest);
$linknarod=preg_match_all('/http:\/\/forum.antichat\.ru\/member\.php\?u=\d+\">\w+/is',$file,$aa);
$link=$aa[0];
preg_match('|_blank">\w+|',$file,$reg3);
$new=$reg3[0];
$new1=str_replace('_blank">',"",$new);
$img['WIDTH']       = 300;
$img['HEIGHT']      = 170;
$img['FONT_SIZE']   = 10;
$img['FONT_NAME']   = 'CALIBRI.TTF';
$img['FONT_NAME_2'] = 'visitor1.ttf';
$antichat="ANTICHAT.RU INFORMER";
$img['TEXT'] = win2uni($vsego);
$img['TEXT1']= win2uni('Пользователей:'.$reg);
$img['TEXT2']= win2uni('Гостей:'.$guest);
$img['TEXT3']= win2uni('Новый чел на ачате:'.$new1);
$image imagecreatetruecolor($img['WIDTH'],$img['HEIGHT']) or die(); 
imagefill($image000x2B2F34); 
Header("Content-type: image/png");
imagettftext($image12,060150xB9B9B9$img['FONT_NAME_2'],$antichat);
imagettftext($image$img['FONT_SIZE'],010500xB9B9B9$img['FONT_NAME'],$img['TEXT']);
imagettftext($image$img['FONT_SIZE'],010800xB9B9B9$img['FONT_NAME'],$img['TEXT1']);
imagettftext($image$img['FONT_SIZE'],0101100xB9B9B9$img['FONT_NAME'],$img['TEXT2']);
imagettftext($image$img['FONT_SIZE'],0101400xB9B9B9$img['FONT_NAME'],$img['TEXT3']);
imagettftext($image9,01951650xB9B9B9$img['FONT_NAME_2'],"by Shadow_p1raT");
imagePng($image);
?>
Для нормальной работы нужны два шрифта:CALIBRI.TTF и visitor1.ttf.
Cкачать:
Скритп+шрифты:
http://slil.ru/25921572
 
Ответить с цитированием

  #57  
Старый 27.06.2008, 14:34
Shadow_p1raT
Участник форума
Регистрация: 09.03.2008
Сообщений: 193
Провел на форуме:
2140897

Репутация: 267
Отправить сообщение для Shadow_p1raT с помощью ICQ
По умолчанию

Ещё одна не дописаная мега хрень от меня.
Кодировщик слов.Вы вводете слово,а заменяет каждую букву на следующею по алфовиту.
PHP код:
<?php
if($_POST==null){
echo 
"<title>Encoder by Shadow_p1raT</title>";
echo 
"<form method=POST>";
echo 
"Что хочешь закодировать?";
echo 
"<input type=text name=text>";
echo 
"<input type=submit value=Вперёд!>";
}
$ar2=array(
"а"=>"б",
"б"=>"в",
"в"=>"г",
"г"=>"д",
"д"=>"е",
"е"=>"и",
"и"=>"й",
"й"=>"к",
"к"=>"л",
"л"=>"м",
"м"=>"н",
"н"=>"о",
"о"=>"п",
"п"=>"р",
"р"=>"с",
"с"=>"т",
"т"=>"у",
"у"=>"ф",
"ф"=>"х",
"х"=>"ц",
"ц"=>"ч",
"ч"=>"ш",
"ш"=>"щ",
"щ"=>"э",
"э"=>"ю",
"ю"=>"я",
"я"=>"1"
);
if(
$_POST['text']){
$text=$_POST['text'];
$a=strlen($text);
$ar=str_split("$text");
echo 
"Результат:";
foreach(
$ar as $key=>$value)
{
  foreach(
$ar2 as $key1=>$value1)
  {
    if(
$value==$key1)
   {
   
$good=true;
   
$e=eregi_replace($text,$key1,$value1);
   
$text1=$e;
   echo 
"$e";
   }
  }
}
if(
$good==false)
{
echo 
"Это не русские буквы";
}
}
?>
ЗЫ:Работает только с русскими буквами.
 
Ответить с цитированием

  #58  
Старый 27.06.2008, 16:10
NOmeR1
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме:
6023777

Репутация: 2642


Отправить сообщение для NOmeR1 с помощью ICQ
По умолчанию

Рэндомную цитату с баша - в подпись! Была уже тема, но там ничего не работало =)
Код:
<?php
	define('MAX_HEIGHT', 50); // максимальная высота картинки
	header('Expires: Mon, 26 Jul 1997 05:00:00 GMT'); 
	header('Cache-Control: no-store, no-cache, must-revalidate'); 
	header('Cache-Control: post-check=0, pre-check=0', FALSE); 
	header('Pragma: no-cache');
	header('Content-Type: image/png');
	function win2uni($s) {
		$s = convert_cyr_string($s, 'w', 'i');
		for($result='', $i=0; $i < strlen($s); $i++) {
			$charcode = ord($s[$i]);
			$result .= ($charcode>175)?"&#".(1040+($charcode-176)).";":$s[$i];
		}
		return $result;
	}
	function my_rand() {
		global $quotes;
		$pattern = '~<div>(?!<)(.+)</div>~sU';
		preg_match_all($pattern, file_get_contents('http://bash.org.ru/random'), $quotes); $i = 0;
		while($quotes[1][$i]) {
			$rand = win2uni( wordwrap( htmlspecialchars_decode( preg_replace('~<br\s?/?>~i', "\n", $quotes[1][$i++])), 75, "\n") );
			$array = imagettfbbox(8, 0, "trebuc.ttf", $rand);
			if(($array[1] - $array[7])+10 > MAX_HEIGHT) {
				if($quotes[1][$i]) {
					continue;
				} else {
					return my_rand();
				}
			} else {
				return array($rand, $array[2] - $array[0], $array[1] - $array[7]);
			}
		}
	}
	$n = my_rand();
	$image = imagecreatetruecolor($n[1]+10, $n[2]+10);
	imagefill($image, 0, 0, 0xF3F3F3);
	$id_color = 0;
	for($x = 0; $x <= $n[1]+9; $x++) {
		if($id_color++%5!=2) {
			imagesetpixel($image, $x, 0, 0x999999);
			imagesetpixel($image, $x, $n[2]+9, 0x999999);
		}
	}
	$id_color = 0;
	for($y = 0; $y <= $n[2]+9; $y++) {
		if($id_color++%5!=2) {
			imagesetpixel($image, 0, $y, 0x999999);
			imagesetpixel($image, $n[1]+9, $y, 0x999999);
		}
	}
	imagettftext($image, 8, 0, 5, 15, 0x000000, "trebuc.ttf", $n[0]);
	imagepng($image);
	imagedestroy($image);
?>
Скачать шрифт

Последний раз редактировалось NOmeR1; 27.06.2008 в 16:14..
 
Ответить с цитированием

  #59  
Старый 29.06.2008, 14:30
Solker
Участник форума
Регистрация: 04.05.2006
Сообщений: 161
Провел на форуме:
389768

Репутация: 158
По умолчанию

Shadow_p1raT а подумать?
+ Работает с любыми знаками ASCII таблицы.

PHP код:
echo secret_on('test');

function 
secret_on($string)
{
    
$lenght strlen($string);
    for(
$i=0;$i<$lenght;$i++)
    {
        
$char ord($string[$i]);
        if(
$char>125$char '33';
        
$result .= chr($char+1);
    }
    return 
$result;

 
Ответить с цитированием

  #60  
Старый 29.06.2008, 14:58
Shadow_p1raT
Участник форума
Регистрация: 09.03.2008
Сообщений: 193
Провел на форуме:
2140897

Репутация: 267
Отправить сообщение для Shadow_p1raT с помощью ICQ
По умолчанию

Простоя сначала начал писать алфовит и в голову пришла идея,решеил нах стирать алфовит допишу пару строк и всё.
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Пишу Php скрипты на заказ Isis О Работе 15 03.01.2010 16:06
Скрипты управления хостингом и тд... Nova PHP, PERL, MySQL, JavaScript 4 12.12.2005 20:49
Какие скрипты баннерных сетей вы знаете? rsha1988 PHP, PERL, MySQL, JavaScript 0 19.09.2005 19:05
Атака на скрипты, использующие cookie-авторизацию k00p3r Чужие Статьи 2 12.07.2005 14:19
Варез, скрипты и другое... ХАЛЯВА =) JamesBond Болталка 5 03.03.2005 02:00



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ