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

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

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

  #421  
Старый 27.08.2008, 13:32
deniska1517
Участник форума
Регистрация: 01.05.2008
Сообщений: 261
Провел на форуме:
1498366

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

определение даты и времени на сервере:

PHP код:
<?php 
$data 
date('Y-m-d [H:i:s]'); 
echo 
"Текущая дата и время на сервере: $data";
?>
 
Ответить с цитированием

  #422  
Старый 27.08.2008, 14:45
Vid0k
Постоянный
Регистрация: 24.12.2007
Сообщений: 574
Провел на форуме:
3186852

Репутация: 316


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

PHP код:
print md5($password); 
???
 
Ответить с цитированием

  #423  
Старый 28.08.2008, 09:15
mff
Познавший АНТИЧАТ
Регистрация: 12.03.2008
Сообщений: 1,379
Провел на форуме:
5866479

Репутация: 1809


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

Пример скипта загрузки файлов на сервер:
PHP код:
<?php
if ($HTTP_POST_VARS['submit'])
{
    if (!
is_uploaded_file($HTTP_POST_FILES['file']['tmp_name']))
    {
    
$error "You did not upload a file!";
    
unlink($HTTP_POST_FILES['file']['tmp_name']);
    
// assign error message, remove uploaded file, redisplay form.
    
}
    else
    {
    
//A file was uploaded
    
$maxfilesize=300000;
        if (
$HTTP_POST_FILES['file']['size'] > $maxfilesize)
        {
            
$error "File is too large.";
            
unlink($HTTP_POST_FILES['file']['tmp_name']);
            
// assign error message, remove uploaded file, redisplay form.
        
}
        else
        {
             
//File has passed all validation, copy it to the final destination and remove the
temporary file:
             
copy($HTTP_POST_FILES['file']['tmp_name'],$HTTP_POST_FILES['file']['name']);
             
unlink($HTTP_POST_FILES['file']['tmp_name']);
         print 
"File has been successfully uploaded!";
             exit;   
            }
      }
}
?>

<html>
<head></head>
<body>
<form action="<?=$PHP_SELF?>" method="post" enctype="multipart/form-data">
<br><br>
Choose a file to upload:<br>
<input type="file" name="file"><br>
<input type="submit" name="submit" value="submit">
</form>
</body>
</html>
 
Ответить с цитированием

  #424  
Старый 28.08.2008, 09:22
mff
Познавший АНТИЧАТ
Регистрация: 12.03.2008
Сообщений: 1,379
Провел на форуме:
5866479

Репутация: 1809


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

FTP Account checker
Код HTML:
<html>
<head>
<style type="text/css">
body {background-color: darkgray}
</style>
</head>
<center>
<form action="check.php" method="post"><br>
Host:<input type="text" name="host"><br>
User:<input type="text" name="user"><br>
Pass:<input type="text" name="pw"><br>
<br><input type="submit" value="Check" /></table><br>
</form>
<center/>
check.php:
PHP код:
<?php
$host 
$_POST["host"]; 
$user $_POST["user"]; 
$pass $_POST["pw"]; 
$con ftp_connect($host) or die("cant connect"); 
if (@
ftp_login($id$user$pass)) {
    echo 
"<font color=blue>Working!</font>";
} else {
    echo 
"<font color=red>Not working</font>";
}

ftp_close($con);  
?>
 
Ответить с цитированием

  #425  
Старый 28.08.2008, 10:17
mff
Познавший АНТИЧАТ
Регистрация: 12.03.2008
Сообщений: 1,379
Провел на форуме:
5866479

Репутация: 1809


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

SOCKS Proxy List Checker

Код:
#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::INET;

# SOCKS Proxy List Checker
# Coded by sToRm
# www.GoNullYourself.org
#
# Accepts proxy list in
# 1.2.3.4:1111 format



if ( @ARGV != 1 ) {
    print "Usage: $0 <file>\n";
    exit(1);
}

open(PROXIES, "<$ARGV[0]") or die($ARGV[0].' wasn\'t found');

open(VALID, '>>valid.txt') or die('valid.txt isn\'t writable');

my ($connectable, $unconnectable, $invalid) = (0, 0, 0);

while(<PROXIES>) {

    chomp($_);
    
    my $line = $_;
    
    if ($line =~ /([0-9]){1,3}\.([0-9]){1,3}\.([0-9]){1,3}\:([0-9]){1,5}/) {
    
        my @proxy = split(/:/, $line);
        
        my $SOCK = IO::Socket::INET->new (
            PeerAddr => $proxy[0],
           PeerPort => $proxy[1],
           Timeout  => 2,
        );
        
        if ( $SOCK ) {
            print "[+] $line\n";
            print VALID $line."\n";
            ++$connectable;
        } else {
            print "[-] $line\n";
            ++$unconnectable;
        }
    } else {
        print "[-] $line is invalid\n";
        ++$invalid;
    }
}

my $total = $connectable + $unconnectable + $invalid;

print "\nProxy list exhausted\n";
print "Connectable:   $connectable\n";
print "Unconnectable: $unconnectable\n";
print "Invalid Lines: $invalid\n";
print "Total Checked: $total\n";
print "Working proxies saved to valid.txt\n";
 
Ответить с цитированием

  #426  
Старый 28.08.2008, 13:14
.:EnoT:.
Постоянный
Регистрация: 29.05.2007
Сообщений: 852
Провел на форуме:
4832771

Репутация: 1916


По умолчанию

Цитата:
Сообщение от miff  
Пример скипта загрузки файлов на сервер:
омг, $HTTP_POST_VARS давно не рулит.
Вот мой пример:

PHP код:
<?php
/*
  Пример загрузки файлов на сервер
*/
#Дира для загруженных файлов
$uploaddir '';
#Разрешённые типы файлов (через запятую)
$types 'jpeg,gif,png,rar,zip';
#Максимальный размер файла (в килобайтах)
$maxsize 100;

if(!empty(
$_FILES)){
    
$maytypes explode(','str_replace(' '''$types));
    foreach(
$maytypes as $maytype){
        if(
stristr($_FILES['filename']['type'], $maytype)){
           
$may 1;
           break;
        }else{
           
$may 0;
        }
    }
    if(
$may){
        if(
$_FILES['filename']['size'] <= $maxsize*1024){
            
$dir './'.$uploaddir.'/'.basename($_FILES['filename']['name']);
            if(
copy($_FILES['filename']['tmp_name'], $dir)){
                echo 
'Файл успешно загружен.<br/>
                Ссылка на файл: <a href="'
.$uploaddir.'/'.$_FILES['filename']['name'].'">'.$_FILES['filename']['name'].'</a>';
            }else{
                echo 
'Возникли ошибки при загрузке файла';
            }
        }else{
            echo 
'Размер файла превышает '.$maxsize.' килобайт';
        }
    }else{
        echo 
'Тип файла не входит в состав разрешённых<br/>Разрешённые типы файлов: '.$types;
    }
}
?>
<form action="<?=$_SERVER['PHP_SELF']?>" method="post" enctype="multipart/form-data">
<input name="filename" type="file" /><br />
<input type="submit" value="Загрузить" />
</form>
 
Ответить с цитированием

  #427  
Старый 28.08.2008, 13:48
heretic1990
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999

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

Название скрипта: SubsribleMaxGal
Назначение: организация подписки на новости вашего сайта, вашу другую информацию. Теперь нет необходимости пользоваться бесплатными сервисами подписок, типа www.subscrible.ru и другие.
Файлы :
subscrible.html - это форма для регистрации нового подписчика
subscrible.php - основной скрипт системы подписки
usersnot.txt - файл с электронными адресами подписчиков не прошедших до конца регистрацию
users.txt - подписчики, прошедшие регистрацию
Использование:
после того, как новый подписчик введет свой электронный адрес, ему будет отправлено письмо, в котором будет указана ссылка, по которой необходимо пройти, чтобы завершить регистрацию.
Для входа в административную панель, необходимо в браузере загрузить subscrible.php
Если это первый вход, вам будет предложено создать файл с паролем и логином, пароль шифруется внутренним алгоритмом php md5, что исключает возможность расшифровки.
Далее думаю разберетесь.

subscrible.html

Код HTML:
<html>
<body>
<form action=subscrible.php method=post>
<b><center>Пожалуйста, введите Ваш e-mail:<input type=text size=15 name=email>
<input type=submit value="Подписаться">
</form>
</body>
</html>
subscrible.php

PHP код:
<?php

if ( isset ($id) )
{
$data File ("users.txt");

for (
$i=0;$i<count($data);$i++) {
$dat explode (":"$data[$i]);
echo 
"<center><table border=1 bgcolor=lightblue>";
echo 
"<tr><td><center>Email<td><center>Дата регистрации</tr>";
echo 
"<tr><td><center>$dat[0]<td><center>$dat[1]</tr></table><br>";
}
echo 
"<a href=\"subscrible.php\">Назад</a>";
exit;
}

if ( isset (
$text) && isset ($subject) )
{
if (
$text == "" OR $subject == "")
{
echo 
"<b><center>Не указана тема или текст подписки !";
echo 
"<p><a href=\"subscrible.php\">Назад</a>";
exit;
}

$data File ("users.txt");
for (
$i=0;$i<count($data);$i++) {
$dt explode (":"$data[$i]);
$to $dt[0];
$text $text."\r\n\r\n\r\n --";
mail ($to$subject$text);
echo 
"<center>$to -> отправлено<br>";
}
echo 
"Рассылка успешно отправлена, спасибо за использование системы";
exit;
}

if ( isset (
$login) && isset ($password))
{

if ( ! 
file_exists ("passwordad.txt") )
{
$password md5 ($password);
$fp fopen ("passwordad.txt""w");
fputs ($fp"$login:$password");
fclose ($fp);
echo 
"<b><center><i>Вход для администратора подписок<p></i>";
echo 
"Файл с паролем создан успешно !<p>";
echo 
"<form action=subscrible.php method=post>";
echo 
"<table border=0 bgcolor=lightblue>";
echo 
"<tr><td>Login<td><input type=text size=15 name=login></tr>";
echo 
"<tr><td>Password<td><input type=text size=15 name=password></tr>";
echo 
"<tr><td colspan=2><center><input type=submit value=\"ВХОД\"></tr>";
echo 
"</table>";
exit;
}

$data File ("passwordad.txt");
$dat explode (":"$data[0]);
$password md5 ("$password");
if (
$dat[0] == "$login&& $dat[1] == "$password")
{
$data File ("users.txt");
echo 
"<b><center><h2>Административная панель</h2><p>";
echo 
"Всего зарегистрировано подписчиков: ".count($data)."<p>";
echo 
"<br><a href=\"subscrible.php?id=1\">Посмотреть всех подписчиков</a><br>";
if (
count($data) == 0)
{
echo 
"<b><center>Не кому делать рассылку !";
exit;
}
echo 
"<form action=subscrible.php method=post>";
echo 
"<input type=submit value=\"Разослать подписчикам\"<p>";
echo 
"<p>Укажите тему, которая будет подставляться в письмо при отправке информации подписчикам<br>";
echo 
"<p><input type=text size=20 name=subject>";
echo 
"<p>Введите в текстовое поле текст Вашей рассылки (можно указывать html-теги)<br>";
echo 
"<textarea name=text cols=85 rows=10></textarea>";
echo 
"</form>";
exit;
}

}

if ( ! isset (
$email) && ! isset ($number) )
{
echo 
"<b><center><i>Вход для администратора подписок<p></i>";
  if ( ! 
file_exists ("passwordad.txt") )
  { echo 
"Вы входите первый раз, сейчас будет создан файл с Вашим логином и паролем"; }
echo 
"<form action=subscrible.php method=post>";
echo 
"<table border=0 bgcolor=lightblue>";
echo 
"<tr><td>Login<td><input type=text size=15 name=login></tr>";
echo 
"<tr><td>Password<td><input type=text size=15 name=password></tr>";
echo 
"<tr><td colspan=2><center><input type=submit value=\"ВХОД\"></tr>";
echo 
"</table>";
exit;
}

$data File ("usersnot.txt");

if ( isset (
$number) && isset ($email) )
{

for (
$i=0;$i<count($data);$i++) {
$dat explode (":"$data[$i]);
if ( 
$dat[0] == "$email&& $dat[1] == "$number\r\n")
{
$datemom date ("d F"time());
$fp fopen ("users.txt""a");
fputs ($fp"$email:$datemom\r\n");
fclose ($fp);
$fp fopen ("usersnot.txt","w");
for (
$f=0;$f<count($data);$f++) {
$da explode (":"$data[$f]);
if (
$da[0] == $email)
$data[$f] = trim (""); }
fputs ($fp$data[$f]."\r\n"); 
}
fclose ($fp);

echo 
"<b><center>Спасибо за регистрацию !";
exit;
}
}
echo 
"Не могу найти запись !";
exit;
}

if ( isset (
$email) )
{

$email substr ($email050);
if ( ! 
stristr ($email"@") )
{
echo 
"<b><center>Указан неверный e-mail !";
exit;
}
$data File ("users.txt");
for (
$i=0;$i<count($data);$i++) {
$dat explode (":"$data[$i]);
if (
$dat[0] == "$email")
{
echo 
"На этот адрес уже произведена подписка !";
exit;
}
}

$randomess rand(9999999910000);
$site "127.0.0.1/subscrible/subscrible.php";
$to $email;
$subject "Подтверждение подписки !";
$message "Здравствуйте\r\nНа Ваш электронный адрес $email была произведена подписка с сайта $site\r\nДля подтверждения подписки пройдите по следующей ссылке: http://$site?email=$email&number=$randomess";
mail ($to$subject$message) or print ("Не могу отправить письмо !");
$fp fopen ("usersnot.txt""a");
fputs ($fp"$email:$randomess\r\n");
fclose ($fp);
}

?>
usersnot.txt , users.txt - пустые файлы
 
Ответить с цитированием

  #428  
Старый 28.08.2008, 14:25
MONARH
Новичок
Регистрация: 13.08.2008
Сообщений: 24
Провел на форуме:
243752

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

Может у кого есть рабочий скрипт, с вот такими функциями как тут ??? Все что выкладывалось ранее уже не работает.
 
Ответить с цитированием

  #429  
Старый 31.08.2008, 18:45
rushter
Reservists Of Antichat - Level 6
Регистрация: 23.05.2008
Сообщений: 756
Провел на форуме:
9257858

Репутация: 979


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

JavaScript Source Code 3000. With almost 800 ready-to-use Java Scripts that you can cut & paste into your own web pages

Код:
* Ad Management 
* Affiliate Programs 
* Blog 
* Bookmark Management 
* Calculators... 
* Calendars 
* Chat Scripts 
* Classified Ads 
* Click Tracking 
* Communication Tools 
* Content Management 
* Contests and Awards 
* Countdowns 
* Counters 
* Customer Support 
* Database Tools 
* Date and Time 
* Development Tools 
* Discussion Boards 
* Documents 
* E-Commerce 
* Education 
* Email Systems 
* Error Handling 
* Exchanges 
* FAQ and Knowledgebase 
* File Manipulation 
* Financial Tools 
* Flash and PHP 
* Form Processors 
* Games and Entertainment 
* Graphs and Charts 
* Groupware Tools 
* Guestbooks 
* Healthcare 
* Image Galleries 
* Image Handling 
* Interactive Stories 
* Link Checking 
* Link Indexing 
* Mailing List Managers 
* Multimedia 
* Music Libraries 
* Networking Tools 
* News Publishing 
* Organizers 
* Polls and Voting 
* Portal Systems 
* Postcards 
* Quote Display 
* Randomizing 
* Redirection 
* Reviews and Ratings 
* Search Engines 
* Security Systems 
* Server Management 
* Site Mapping 
* Site Navigation 
* Site Recommendation 
* Software Repository 
* Tests and Quiz 
* Top Sites 
* Unsorted 
* URL Submitters 
* Usenet Gateway 
* User Authentication 
* User Management 
* Vertical Markets 
* WAP and WML 
* Web Fetching 
* Web Hosting Tools 
* Web Rings 
* Web Search 
* Web Traffic Analysis 
* XML and PHP
http://rapidshare.com/files/13542877...Javascript.rar
 
Ответить с цитированием

[PERL]Simple IRC Bot
  #430  
Старый 02.09.2008, 15:22
mff
Познавший АНТИЧАТ
Регистрация: 12.03.2008
Сообщений: 1,379
Провел на форуме:
5866479

Репутация: 1809


Отправить сообщение для mff с помощью ICQ
По умолчанию [PERL]Simple IRC Bot

[PERL]Simple IRC Bot
Код:
use IO::Socket;

 = "irc.not-a-bot.net";
 = 1337;
 = "#test";
 = "perlbot";

 = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "", PeerPort => "") || die "Failed to connect to :\n";
print  "NICK \r\n"; 
print  "USER    \r\n";
print  "JOIN \r\n";
print  "PRIVMSG  :Hello\r\n";
while(<>) {
	print ;
	if(/PING/) {
		 = ;
		 =~ s/PING/PONG/;
		print  ;
	} elsif(/PRIVMSG/) {
		 = ;
		 =~ s/\r\n//; # Remove \r\n
		@tokens = split /:/, ; # Split line into tokens
		@command = split / /, @tokens[1]; # Split second token (first is just blank in this case)
		@message = split / /, @tokens[2]; # Split third token
		@user = split /!/, @command[0]; # Split first command token, which is USERNAME!USERHOST
		if( =~ m/.exit/) {
			print  "PRIVMSG  :Exit command sent by  ()\r\n";
			print  "QUIT :\r\n";
			close ;
		}
		if( =~ m/.join/) {
			print  "PRIVMSG  :Join command sent by  ()\r\n";
			print  "JOIN \r\n";
		}
		if( =~ m/.msg/) {
			print  "PRIVMSG  :Message command sent by  ()\r\n";
			print  "PRIVMSG  :\r\n";
		}
	}
}
 
Ответить с цитированием
Ответ





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


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




ANTICHAT.XYZ