#!/usr/bin/perl
print "Content-type: TEXT/HTML\n\n";
$cr=chr(0x0D).chr(0x0A);
$cl=chr(0x0A);
$cs=$ENV{'QUERY_STRING'};
$CONTENT_LENGTH=$ENV{'CONTENT_LENGTH'};
if(length$cs<=0){read STDIN,$cs,$CONTENT_LENGTH;}
$cs=~s/\+/ /g;$cs=~s/\|\|/\/\//g;
@a=split(/&/,$cs);
for(@a){replacx($_)};
for$i(0..$#a)
{ ($a1,$a2)=split(/=/,$a[$i],2);
if($a1 eq 'registration'){$reg=$a2}
if($a1 eq 'admin'){$admin=$a2}
if($a1 eq 'pass'){$pass=$a2}
if($a1 eq 'submit'){$submit=$a2}
if($a1 eq 'text'){$text=$a2}
if($a1 eq 'info'){$info=$a2}
if($a1 eq 'uname'){$uname=$a2}
if($a1 eq 'fid'){$fid=$a2}
}
if(length$submit){goto SUBMIT}
if(length$admin){goto ADMIN}
if(!length$cs)
{ print "RegistrationRegistrations of White Tiger WWW Board
Введите имя для регистрации и идентификатор форума. Если идентификатор не
указан, считается равным 0. Поле «Другая информация» можно оставить
пустым. Одному форуму (fid) соответствует только один регистрационный ключ.
Полученный регистрационный ключ именно в том виде, как он будет выдан,
поместите в качестве значения параметра registration или укажите через
администрацию: Администрирование/Основные настройки/Регистрационный ключ.
";
exit;
}
if(!length$reg){$str='This forum works on unregistered copy of White Tiger WWW Board.';$noreg='nr'}
else
{ ($a,$b)=split(/\/\//,$reg);
$name=$a;
$a=$fid.$a;
$a=join('x',reverse(split(/[ a]/,$a)));
$a=join('a',reverse(split(/i/,$a)));
$a=join('z',reverse(split(/e/,$a)));
$a=crypt($a,'WT');
$a=~s/[\/\.]//g;
for(split(//,$a)){$number+=((ord$_)**2)}
open NAM,"../data/wtbregsts.txt";@b=;close NAM;chomp @b;
$noreg='nr';
$ste=0;$str='This forum works on unregistered copy of White Tiger WWW Board.';
for(@b)
{ @c=split(/;;/);
if($c[0] eq $name){$str="This forum works on White Tiger WWW Board registered by $name but not licensed.";$noreg='nl';$ste=1;}
if($c[0] eq $name && $b eq $a && ($fid eq $c[2] or $c[2] eq 'x')){$str="This forum works on White Tiger WWW Board registered by $name, forum license $c[3]$c[4].";$ste=2;$noreg='re';last}
}
}
print " $str $ste";
if($noreg ne 're')
{ open NAM,'../data/wtbreglog.txt';@b=;close NAM;chomp@b;
for(@b){if($_ eq "$noreg=$fid,$ENV{'HTTP_REFERER'}"){$exist=1;last}}
if(!$exist){open NAM,"+>>../data/wtbreglog.txt";print NAM "$noreg=$fid,$ENV{'HTTP_REFERER'}\n";close NAM}
}
exit;
ADMIN:
if($admin ne 'admin' xor $pass ne 'Richard'){print "Error authorizationAuthorization error!";exit}
open NAM,"../data/wtbregsts.txt";@ini=;close NAM;chomp@ini;
$a=join($cl,@ini);
$a=~s/&/&/g;$a=~s//>/g;$a=~s/\"/"/g;
undef @ini;
print "RRegistrations of White Tiger WWW Board
";
exit;
SUBMIT:
if($submit eq 'Send'){
if($admin ne 'admin' xor $pass ne 'Richard'){print "
Error authorizationAuthorization error!";exit}
rename "../data/wtbregsts.txt","../data/wtbregsts.txt.old";
if(length $text>0)
{ $text=~s/$cr/\n/g;
open NAM,"+>../data/wtbregsts.txt";
print NAM $text;close NAM;
}
print "ok";
if(-z "../data/wtbregsts.txt"==1){rename "../data/wtbregsts.txt.old","../data/wtbregsts.txt";}
exit;
}
if($submit eq 'Add')
{
open NAM,"../data/wtbregsts.txt";@ini=;close NAM;chomp@ini;
for(@ini)
{ @a=split(/;;/);
if($a[0] eq $uname && $a[2] eq $fid){print "Error registrationThis license ($uname, fid=$fid) already exists, try another.";exit}
}
$a=$uname;
$a=$fid.$a;
$a=join('x',reverse(split(/[ a]/,$a)));
$a=join('a',reverse(split(/i/,$a)));
$a=join('z',reverse(split(/e/,$a)));
$a=crypt($a,'WT');
$a=~s/[\/\.]//g;
for(split(//,$a)){$number+=((ord$_)**2)}
if($info){$info=' ('.$info.')'}
open NAM,"+>>../data/wtbregsts.txt";
print NAM "$uname;;$a;;$fid;;$number;;$info;;\n";
close NAM;
print "RegisteredThanks to registering new forum. Your registration information:
Name=$uname
FID=$fid
Key=$a
RegNumber=$number
Other info=$info.
Set this registration string in Administration/Status of forum/RegInfo:
$uname//$a";
exit;
}
sub replacx
{$_[0]=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;}