-
Notifications
You must be signed in to change notification settings - Fork 1
/
unobfuscated.pl
42 lines (39 loc) · 1.27 KB
/
unobfuscated.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$qstring = param('i');
$prod = param('p');
$browser = $ENV{'HTTP_USER_AGENT'};
if ($qstring eq "") { print "Location: $scripturl/redir.cgi?p=$prod\n\n"; exit;}
$cursor = $dbh->prepare("SELECT username,clicks FROM users where username='$qstring'");
$cursor->execute();
($username,$clicks) = $cursor->fetchrow_array;
if ($forceaff eq "Y"){
if ($username ne $qstring) {&error("Affiliate <b>$qstring</b> is not registered with our website.");
}
}
$recipe = "$username|$prod";
$query = new CGI;
if ($browser =~ /MSIE/i) {
$cookie = $query->cookie(-name=>'CBM_COOKIE',
-value=>$recipe,
-expires=>'+3M',
-domain=>$domain,
-path=>'/');
}
else {
$cookie = $query->cookie(-name=>'CBM_COOKIE',
-value=>$recipe,
-expires=>'+3M',
-path=>'/');
}
print "Set-cookie: $cookie\n";
$newclicks = ++$clicks;
$cursor=$dbh->prepare("update users set clicks='$newclicks' where username='$qstring'");
$cursor->execute;
$cursor->finish;
$dbh->disconnect;
print $query->redirect(-url=>"http://hop.clickbank.net/?$username/$mynick");
exit;
# end of script