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

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

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

  #371  
Старый 03.06.2008, 21:09
-Hormold-
Постоянный
Регистрация: 29.09.2007
Сообщений: 617
Провел на форуме:
3250478

Репутация: 999


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

Irc фулд бот...
PHP код:
<? 
set_time_limit
(0); 
$botname="Boot2Flood"//ниг бота 
$channel="#123"//chanell 
$address="localhost"//irc server 
$port="6667"//port 
$pass=""//пасс но он тут врятле пригодиццо 
$hellomsg="ВЫПЕЙ иаДУ :\\"//флудо месага 
$baduser="#123"//это нехароший канал или юзверь 
$s=fsockopen($address$port) or die("FATAL: Cannot connect to $address:$port"); 
fputs($s"USER bot no no :$botname\r\n"); 
fputs($s"NICK :$botname\r\n"); 
fputs($s"IDENTIFY :$pass\r\n"); 
fputs($s"JOIN $channel\r\n"); 
fputs($s"PRIVMSG $channel :".chr(1)."ACTION педоратор $baduser детектед преступаю к флудерастенгу!".chr(1)."\r\n"); 
while(
true){ 
fputs($s"PRIVMSG $baduser :".chr(1)."ACTION $hellomsg".chr(1)."\r\n"); //цикл с флудом =) 
sleep(1);


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

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

Репутация: 4589


По умолчанию

Цитата:
Irc фулд бот...
Без проксей и под 1м ником будет забанен через пару секунд автоматом ..
 
Ответить с цитированием

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

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

PHP-Getting
Что нового:
1. Сделаны галки в менеджере.
2. Возможность добавления комментариеви сохранение ссылок.
3. Переименовывание в файл-менеджере
4. Добалены getfile.biz, webfile.ru, slil.ru / zalil.ru.
5. Заново исправлена почтовая функция ;-) Надеюсь в последний раз...

Описание:
Скрипт умеет сливать файлы с rapidshare.de, www.megaupload.com, www.upload2.net, www.mytempdir.com, getfile.biz, webfile.ru, slil.ru или zalil.ru, по прямым ссылкам, включая ftp (с возможностью авторизации), плюс умеет разбивать файлы на части и отправлять их на почтовый ящик. И ещё имеет удобный менеджер скаченных файлов для проведения операций над ними.

НАСТРОЙКА:
1). Создайте папку на сервере, выставьте на неё права (chmod) 777.
2). Залейте в папку скрипт и используйте по назначению
Ссылки:
http://slil.ru/25867346
http://dump.ru/file_catalog/442257
 
Ответить с цитированием

  #374  
Старый 14.06.2008, 13:13
Talisman
Постоянный
Регистрация: 22.04.2006
Сообщений: 566
Провел на форуме:
1325772

Репутация: 517


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

Описание:
Скрипт для генерации последовательности печати "книжкой"
PHP код:
<?
$sheets
=14// число листов в буклете
$l=1;
$r=$sheets*4;
for(
$k=1;$k<=$sheets;$k++)
{
//  echo "Sheet ".$k." :<br>";
//  echo "side 1: ". $l ." & ". $r ."<br>";
echo $r.','.$l.','// для печати 1 стороны
$l++;
$r--;
//  echo "side 2: ". $l ." & ". $r ."<br>";
//echo $r.','.$l.','; // для печати 2 стороны // расскоментить по очереди
$l++;
$r--;
}
либо генерирует последовательность, либо системными вызовами переименовывает странички, чтобы из них собрать единый пдф для печати.

ИМХО: шпоры хорошо печатает ))
 
Ответить с цитированием

  #375  
Старый 16.06.2008, 20:08
otmorozok428
Banned
Регистрация: 19.10.2007
Сообщений: 152
Провел на форуме:
557623

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

114 Power Scripts - набор из 114 CGI-скриптов. На некотором сайте продаётся за 9,99$ Для тех кто занимается сайтостроением и SEO подборочка будет однозначно незаменима...

Льём отсюда .

В архиве есть подробное описание на все скрипты, здесь пишу только названия:

Цитата:
401 Neutralizer Password Hurler Blocker
Affiliate Ad Rotator
Agents of Fortune
Agents Unlimited
Agents of Fortune Professional
All Whois
Anypage - Documentation inside tarball
Automark
Autonic
Automatic Useradd
Automatic MYSQL Backup
Autopopper Secure Email Attatchment System
Autoresponder System
Autothumb
Adult Verification System
Nightly Backup
Superfast Banner Rotator
Bannergate
Batch Credit Card Processor
Blackwidow Spider
IBILL Broker
CGI Spammer Jammer
Chameleon
Clicktraders Link Exchange
Clickblaster
Cyberstash
Database
Data Extractor
Dbay Auction Software
DNS Research Tool
Domain Name Popularity Scanner - Dox inside tarball
Domain Stalker
Free For All Link Network
Remote FTP Server
Form Mail Replicator
Password Hurler
Fake Crontab - Documentation inside Tarball
HTML Parser
HTMLOCK
HTML Rotator
IBILL Processor
Installment Plan
Keyword Harvester
Landmine Data Mining Blocker
Linksorter
Magic 8 Ball
Mailman
Mail Jacker
Mastergate
Matchmasters
Matchmasters Professional
Microcities
Micro Email Extractor
Microsearch
MIMEMailer
MimeMailer II
Multiple Domain Host
Password Nazi
Newswire
Newsbot
On Hold Domain Scanner
Opt In Pro
PC Authorize Gateway
Perl Script Decrypter
Portal Analyzer
Regular Expression Filter
Replicating Guestbook
Revshare Toolkit
Revshare Professional
Sales Lead Affiliates
Sales Lead Generator
Simple Safelist
Site Search Pro
Slot Machine
Spam Killer
Super Spider
Stealth Server
Supercart
Superchat
Supercloaker
Superclix
Superclix Professional
Superfetch
Supergate
Supermall
Super Sorter
Superstats DONT BUY WEB TRENDS!
Super Whois
Topsites Professional
Form Mail 2000
Bandwidth Valve
Usenet Autoresponder (documentation included in download file)
Virtual Telnet
Vterm Credit Card Processor
Wahoo Search Engine Promoter
Whois Data Parser
Wormburner (documentation included in download file)
Xtractor PRO
 
Ответить с цитированием

небольшой php-скрипт, который записывает все посещения страницы в лог файл
  #376  
Старый 18.06.2008, 12:43
real_kas
Познающий
Регистрация: 22.03.2007
Сообщений: 45
Провел на форуме:
110666

Репутация: 9
Arrow небольшой php-скрипт, который записывает все посещения страницы в лог файл

PHP код:
<?
/**
небольшой php-скрипт, который записывает все посещения страницы в лог файл
автор не я, но честно не помню кто..
*/

$query = @$_SERVER['QUERY_STRING'];
if (
$query == "" or !ereg("^loged=1"$query))
{
$get_time date("d.m.Y (H:i:s)"time());
$get_ip getenv("REMOTE_ADDR");
$get_browser getenv("HTTP_USER_AGENT");
$get_port getenv("REMOTE_PORT");
$get_connect $_SERVER['HTTP_CONNECTION'];
$get_host gethostbyaddr(getenv("REMOTE_ADDR"));
$get_referer = @$_SERVER['HTTP_REFERER'];
$fopen fopen ("log.txt""a+");
fputs ($fopen"\n---------- Detected at $get_time--------------\n");
fputs ($fopen"IP: $get_ip\n");
fputs ($fopen"Browser: $get_browser\n");
fputs ($fopen"Port: $get_port\n");
fputs ($fopen"Host: $get_host\n");
fputs ($fopen"Connection: $get_connect\n");
fputs ($fopen"Referer: $get_referer\n");
fclose ($fopen);
die(
"");
}
else if (
ereg("^loged=1"$query))
{
$fopen fopen ("log.txt""a+");
foreach (
$_GET as $key => $value)
fputs ($fopen"$key $value");

fclose ($fopen);
header ('Content-type: image/jpeg');
die (
readfile("real_photo.jpg"));
}
?>
 
Ответить с цитированием

  #377  
Старый 19.06.2008, 15:22
Fluxoid
Новичок
Регистрация: 12.06.2008
Сообщений: 8
Провел на форуме:
119585

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

очень простой Proxy Judge (судья, типа) начинающему
PHP код:
<?php
echo "<b>ProxyJudge V1.0.0</b><br>";
echo 
"<pre>\n";
echo 
"HTTP_ACCEPT = ".$_SERVER['HTTP_ACCEPT']."\n";
echo 
"HTTP_ACCEPT_CHARSET = ".$_SERVER['HTTP_ACCEPT_CHARSET']."\n";
echo 
"HTTP_ACCEPT_LANGUAGE = ".$_SERVER['HTTP_ACCEPT_LANGUAGE']."\n";
echo 
"HTTP_CONNECTION = ".$_SERVER['HTTP_CONNECTION']."\n";
echo 
"HTTP_HOST = ".$_SERVER['HTTP_HOST']."\n";
echo 
"HTTP_USER_AGENT = ".$_SERVER['HTTP_USER_AGENT']."\n";
if(isset(
$_SERVER['HTTP_X_FORWARDED_FOR'])){
    echo 
"HTTP_X_FORWARDED_FOR = ".$_SERVER['HTTP_X_FORWARDED_FOR']."\n";
}
if(isset(
$_SERVER['HTTP_VIA'])){
    echo 
"HTTP_VIA = ".$_SERVER['HTTP_VIA']."\n";
}
echo 
"REMOTE_ADDR = ".$_SERVER['REMOTE_ADDR']."\n";
echo 
"REMOTE_PORT = ".$_SERVER['REMOTE_PORT']."\n";
echo 
"REQUEST_METHOD = ".$_SERVER['REQUEST_METHOD']."\n";
echo 
"REQUEST_URI = ".$_SERVER['REQUEST_URI']."\n";
echo 
"\n</pre>";
?>
геолокейшн на perl (может кому пригодится,
сам использую для различного таргетинга, лукапа прокси и пр., скрин работы - http://caco-daemon.ueuo.com/a.html)
перл-модуль лежит здесь:
http://ppm4.activestate.com/MSWin32-...P2Location.ppd
база-данных здесь:
http://www.ip2location.com/developers.aspx
ограничение бесплатной базы:
IP от 0.0.0.0 до 99.255.255.255
PHP код:
use bytes;
use 
Net::hostent;
use 
Geo::IP2Location;

sub get_geoloc(){
    
my $host="";
    if(
defined($_[0])){
        
$host=$_[0];
    }else{
        return 
0;
    }    
    
my $ip=0;    
    if(
$host !~ /^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])$/i){
        print 
"resolving $host: ";
        
unless($h=gethost($host)){
            
warn "no such host: $host\n";
            return 
0;
        }
        
$ip=inet_ntoa($h->addr);
        print 
"$ip\n";
    }else{
        
$ip=$host;
    }    
#    путь к базе данных
#    сменить, естественно
    
my $geodb="c:\\strawberry\\perl\\site\\lib\\auto\\Geo\\IP2Location\\IP-COUNTRY-REGION-CITY-LATITUDE-LONGITUDE-ZIPCODE-TIMEZONE-ISP-DOMAIN-NETSPEED-SAMPLE.BIN";
    
my $obj=Geo::IP2Location->open($geodb) or print "geolocation disabled\n";
    
unless($obj != 0){ return 0; }
    
my @info=$obj->get_all("$ip"); my $n=0;
    print 
"*--------------------*\n";
    foreach 
$dt (@info){
        if(
$dt =~ "INVALID"){
            print 
"got wrong IPv4 address\n";
            return 
0;
        }
        if(
$dt eq "??"){
            print 
"no information about $ip\nfree database limitations :(\n";
            return 
0;
        }
        if(
$dt !~ "unavailable" and $n ne 0 and length($dt) > 0){
#    печатаем всё, кроме шорт-кода страны
            
print "$dt";
        }
        
$n++;
    }
    print 
"\n";
    print 
"*--------------------*\n";
    return @
info;

если видел кто полную версию геоип базы (от ip2location) по торрентам/рапидам - сообщите
писал как-то геолок на php (maxmind) + автоген google карты, если кому надо - поищу, скину.
 
Ответить с цитированием

  #378  
Старый 24.06.2008, 15:59
inlanger
Познавший АНТИЧАТ
Регистрация: 07.01.2007
Сообщений: 1,263
Провел на форуме:
3326855

Репутация: 702


По умолчанию

А на пыхе забацаешь такой? Появилась необходимость фильтровать несколько стран...

Уже нашёл...
Если кому надо: ТЫЦ

Последний раз редактировалось inlanger; 24.06.2008 в 16:17..
 
Ответить с цитированием

  #379  
Старый 25.06.2008, 13:20
Дикс
Познавший АНТИЧАТ
Регистрация: 16.04.2006
Сообщений: 1,488
Провел на форуме:
2209675

Репутация: 537


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

раз есть тема "полезные скрипты", значит быть ему здесь.
а если удалят - то знач Исис таки превышает полномочия

вот тут, собственно бесплатный javascript mp3grabber для vkontakte.ru
http://3453620.livejournal.com/15421.html

добавив его в свой браузер, вы сможете видеть прямые ссылки на музыку, выложенную вконтакте, на той же самой странице, под левым меню.
всё очень просто.

по ссылке дано подробное описание установки и использования.
 
Ответить с цитированием

  #380  
Старый 26.06.2008, 14:38
AdReNa1!Ne
Участник форума
Регистрация: 24.05.2007
Сообщений: 229
Провел на форуме:
2308963

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

Недавно возникла необходимость для себя написать скрипт, удаляющий дупликаты. Кому надо - забирайте.
PHP код:
<?
$file_in 
file("file_in.txt");
$a count($file_in);
$strings array_unique(File("file_in.txt"));
$file_out fopen("file_out.txt""w");
fwrite ($file_out,implode("",$strings));
$file file("file_out.txt");
$b count($file);
fclose($file_out);
$c $a $b;
echo (
"После удаления дупликатов осталось $b строк. Дупликатов - $c")
?>
 
Ответить с цитированием
Ответ





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


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




ANTICHAT.XYZ