ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|

27.05.2008, 21:01
|
|
Познавший АНТИЧАТ
Регистрация: 15.01.2008
Сообщений: 1,166
Провел на форуме: 2459557
Репутация:
606
|
|
cash$$$
скрипт мегазачотный..... суперско.... прям как интерфейс Aero у висты)))))))
супер.. маладца
|
|
|

28.05.2008, 20:03
|
|
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме: 6023777
Репутация:
2642
|
|
Код:
<?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..
|
|
|

03.06.2008, 18:32
|
|
Постоянный
Регистрация: 26.02.2007
Сообщений: 495
Провел на форуме: 3835614
Репутация:
1386
|
|
Почти фрактал =)
<?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);
?>
|
|
|

04.06.2008, 00:08
|
|
Moderator - Level 7
Регистрация: 28.04.2007
Сообщений: 547
Провел на форуме: 5516499
Репутация:
3702
|
|
Код:
#!/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 сканер 
|
|
|

04.06.2008, 00:18
|
|
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;
}
|
|
|

23.06.2008, 11:03
|
|
Участник форума
Регистрация: 09.03.2008
Сообщений: 193
Провел на форуме: 2140897
Репутация:
267
|
|
Сегодня от неренаделанья написал(в рамках изучения 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($image, 0, 0, 0x2B2F34);
Header("Content-type: image/png");
imagettftext($image, 12,0, 60, 15, 0xB9B9B9, $img['FONT_NAME_2'],$antichat);
imagettftext($image, $img['FONT_SIZE'],0, 10, 50, 0xB9B9B9, $img['FONT_NAME'],$img['TEXT']);
imagettftext($image, $img['FONT_SIZE'],0, 10, 80, 0xB9B9B9, $img['FONT_NAME'],$img['TEXT1']);
imagettftext($image, $img['FONT_SIZE'],0, 10, 110, 0xB9B9B9, $img['FONT_NAME'],$img['TEXT2']);
imagettftext($image, $img['FONT_SIZE'],0, 10, 140, 0xB9B9B9, $img['FONT_NAME'],$img['TEXT3']);
imagettftext($image, 9,0, 195, 165, 0xB9B9B9, $img['FONT_NAME_2'],"by Shadow_p1raT");
imagePng($image);
?>
Для нормальной работы нужны два шрифта:CALIBRI.TTF и visitor1.ttf.
Cкачать:
Скритп+шрифты:
http://slil.ru/25921572
|
|
|

27.06.2008, 14:34
|
|
Участник форума
Регистрация: 09.03.2008
Сообщений: 193
Провел на форуме: 2140897
Репутация:
267
|
|
Ещё одна не дописаная мега хрень от меня.
Кодировщик слов.Вы вводете слово,а заменяет каждую букву на следующею по алфовиту.
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 "Это не русские буквы";
}
}
?>
ЗЫ:Работает только с русскими буквами.
|
|
|

27.06.2008, 16:10
|
|
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме: 6023777
Репутация:
2642
|
|
Рэндомную цитату с баша - в подпись! Была уже тема, но там ничего не работало =)
Код:
<?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..
|
|
|

29.06.2008, 14:30
|
|
Участник форума
Регистрация: 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;
}
|
|
|

29.06.2008, 14:58
|
|
Участник форума
Регистрация: 09.03.2008
Сообщений: 193
Провел на форуме: 2140897
Репутация:
267
|
|
Простоя сначала начал писать алфовит и в голову пришла идея,решеил нах стирать алфовит допишу пару строк и всё.
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|