#!/usr/bin/perl # PROJECT HONEY POT ADDRESS DISTRIBUTION SCRIPT # For more information visit: http://www.projecthoneypot.org/ # Copyright (C) 2004, Unspam, LLC # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA # 02111-1307 USA # # If you choose to modify or redistribute the software, you must # completely disconnect it from the Project Honey Pot Service, as # specified under the Terms of Service Use. These terms are available # here: # # http://www.projecthoneypot.org/terms_of_service_use.php # # The required modification to disconnect the software from the # Project Honey Pot Service is explained in the comments below. To find the # instructions, search for: *** DISCONNECT INSTRUCTIONS *** # # Generated On: Thu, 28 Oct 2004 01:45:32 -0500 # For Domain: www.jeffchan.com # # use strict; use Digest::MD5 qw(md5_hex); # *** DISCONNECT INSTRUCTIONS *** # # You are free to modify or redistribute this software. However, if # you do so you must disconnect it from the Project Honey Pot Service. # To do this, you must delete the lines of code below located between the # *** START CUT HERE *** and *** FINISH CUT HERE *** comments. Under the # Terms of Service Use that you agreed to before downloading this software, # you may not recreate the deleted lines or modify this software to access # or otherwise connect to any Project Honey Pot server. # # *** START CUT HERE *** # my $__REQUEST_HOST = 'hpr5.projecthoneypot.org'; my $__REQUEST_PORT = '80'; my $__REQUEST_SCRIPT = '/cgi/serve.php'; # # *** FINISH CUT HERE *** # my $__HPOT_TAG1 = '40a183ec06f366fd844398484a3daa87'; my $__HPOT_TAG2 = '20ef61c15e73c91afe17798fc7b722f9'; my $__HPOT_TAG3 = '60eff423c208d7fdab40a0dd2d377e0b'; my $__CLASS_STYLE_1 = 'covuswicr'; my $__CLASS_STYLE_2 = 'traslok'; my $__DIV1 = 'u7bram7'; my $__VANITY_L1 = 'MEMBER OF PROJECT HONEY POT'; my $__VANITY_L2 = 'Spam Harvester Protection Network'; my $__VANITY_L3 = 'provided by Unspam'; my $__DOC_TYPE1 = '\n'; my $__HEAD1 = '\n\n'; my $__HEAD2 = 'www.jeffchan.com\n\n'; my $__ROBOT1 = '\n\n'; my $__NOCOLLECT1 = '\n'; my $__TOP1 = '\n
\n'; my $__EMAIL1A = ''; my $__EMAIL1C = ''; my $__EMAIL2A = ''; my $__EMAIL2C = ''; my $__EMAIL3A = ''; my $__EMAIL3C = ''; my $__EMAIL4A = ''; my $__EMAIL4C = ''; my $__EMAIL5A = ''; my $__EMAIL5C = '..'; my $__EMAIL6A = ''; my $__EMAIL6C = ''; my $__EMAIL7A = ''; my $__EMAIL7C = ''; my $__EMAIL8A = ''; my $__EMAIL9A = '
'; my $__EMAIL9C = '

'; my $__EMAIL10A = ''; my $__LEGAL1 = ''; my $__LEGAL2 = '\n'; my $__STYLE1 = '\n'; my $__VANITY1 = '
@'.$__VANITY_L1.'
'.$__VANITY_L2.'
'.$__VANITY_L3.'
\n'; my $__BOTTOM1 = '
\n\n\n'; sub getLegalContent() { return '\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
 
 
Th
to
ot
We
re
ag
th
no
We

 
 
Sp
No
sp
pr
au

Em
It
al
ha
st
va
st
ag

 
 
Ea
ag
("
th
su
an
of
an
Se
th

 
i
Yo
ma
ab
Vi

VI
PA
SU
 

e
 y
he
bs
ad
en
em
n-
bs

 

ec
n-
id
og
to

ai
 i
on
s
or
lu
or
re

p 

ch
ai
Ju
e
ch
d
 f
y
rv
e

 

u
y
us
si

SI
RT
BS
 f

we
ou
r
it
 t
ts
.
tr
it

 

ia
Hu
er
ra
ma

le
s
e.
a
ag
es
in
em

f 

 p
ns
di
re
 l
pe
ed
ac
ic
ab

 

co
ap
e.
to

TO
Y
EQ
 

bs
 s
te
e
he
 o
Th
an
e.

ti

l
ma
s,
ms
ti

ad
re
 Y
va
e,
of
g
en

 

ar
ti
ci
gi
aw
rf
er
ti
e.
ov

 e

ns
pe
kT
rs

RS
OR
UE
 

it
ub
rm
yo
m
f
e
sf


ft

re
n
 b
 d
ca

dr
co
ou
lu
ia
 t
th
t

k 

ty
th
al
st
s
or
al
on
 Y
e

c 

en
ar
he
 a

oA
 S
NT
 

ec
je
sh
u
ca
th
ac
er


 

st
Vi
ot
es
ll

es
gn
 a
e
nd
he
is
an

 f

ka
e
 A
er
ar
me
 a
pb
ou
ag

 

to
 s
 I
gr

GR
EN
 B
 

fr
ct
go
ac
re
e
ce
ab


 

ri
si
s,
ig
y.

se
iz
ck
no
/o
se
 W
d

d 

gr
ot
ct
ed
e
d
nd
ro
 c
re

 d

to
om
de
ee

EE
DI
RE
 

om
 t
ve
ce
fu
in
ss
le


 S

ct
to
 i
ne


s
ed
no
t
r
aa
eb
ex

 

ee
he
io
 A
ap
en
 s
ug
on
em

 

 h
ew
nt
 n

kT
NG
AC
 

 w
o
rn
pt
ll
di
 r
 w


PE

io
rs
nd
d


on
 t
wl
le
di
dd
si
pr

 

s
r
n"
dm
pl
ti
ta
ht
se
en

 

av
he
if
ot

HA
 A
H
c 

hi
th
in
 t
y.
vi
ig
it


CI

ns
.
ex
to


 t
ha
ed
ss
st
re
te
es

 

th
in
)
in
ie
re
te
 a
nt
t.

p 

in
re
ie
 t

T
NY
OF
 

ch
e
g
he
 A
du
ht
ho


AL

 o
No
er
 a


hi
tf
ge
 t
ri
ss
\'s
sl

 g

at
 c
sh
is
d
ly
gc
ga
 t


 

gp
 o
r
o

HA
 M
 T
 

 y
fo
ac
se
ny
al
s
ut


 L

n
n-
s,
cc


s
th
 a
ha
bu
es
oe
y

 

 a
on
al
tr
to
 w
ou
in
o


 s

yo
n
is
us

RV
ES
HE
 c

ou
ll
ce
 t
 N
(s
gr
 t


IC

a
Hu
 r
es


si
es
nd
n
ti
.
ma
pr

 A

ny
ne
l
at
 a
it
rt
st
el


RE

ur
th
 u
e

ES
SA
SE
 T

 a
ow
ss
er
on
)
an
he


EN

vi
ma
ob
s,


te
eg
 a
US
on
In
il
oh

PP

 s
ct
be
iv
gr
hi
s
 h
ec


CO

 I
is
ni
th

TI
GE
 T
ER

cc
in
 t
ms
-H
wh
te
 e


SE

si
n
ot
 r


 a
em
gr
 $
ko
te
 a
ib

LI

ui
io
og
e
ee
n
wi
im
tr


RD

nt
 p
qu
is

NG
(S
ER
MS

es
g
o
 a
um
o
d
xp


 R

to
Vi
s,
ea


re
ai
ee
50
f
nt
dd
it

CA

t,
n
ov
Co
me
th
th
 i
on


S 

er
ag
el
 a

,
)
MS
 A

se
co
th
nd
an
co
to
re


ES

r\'
si
 c
d,


kc
l
 t
.
th
io
re
ed

BL

ta
wi
er
nt
nt
e
in
n
ic


OF

ne
e
y
dd

GA
TO
 O
ND

d
nd
e
 c
 V
nt
py
ss


TR

s
to
ra
 c


on
ad
ha
Yo
es
na
ss
.

E 

ct
th
ne
ac
sf
Ad
 t
co
 s


aV

t
(t
ma
re

TH
hT
F
eC

th
it
We
on
is
ro
ou
 w


IC

li
rs
wl
om


si
dr
t
u
e
l
es


LA

io
 o
d
t
be
mi
he
nn
er


IS

Pr
he
tc
ss

ER
HE
SE
ON

is
io
bs
di
it
ls
 u
ri


TI

ce
 i
er
pi


de
es
ea
fu
ad
co
 i


W 

n
rk
by
(t
tw
n
 A
ec
vi


IT

ot
g"
he
 f

IN
 I
RV
DI

 a
ns
it
ti
or
,s
nd
tt


ON

ns
nc
s,
le


re
se
ch
rt
dr
ll
s


AN

or
ar
pt
he
ee
St
dm
ti
ce


OR

oc
Id
d
or

G,
DE
IC
TI

gr
.
e.
on
s
au
er
en


S 

e
lu
 h
 o


d
s
 e
he
es
ec
re


D 

 p
is
he
 "
n
at
in
on
 o


 U

ol
en
to
 a

 S
NT
E.
ON

ee
Th
 B
s
to
th
 t
 p


FO

to
de
ar
r


pr
ar
ma
r
se
ti
co


JU

ro
in
gl
Ad
Ad
e.
 S
kw
f


SE

 a
ti
 y
ny

TO
IF

S 

me
es
y
(t
 t
or
he
er


R 

oa
,
ve
ga


op
e
il
ag
s
on
gn


RI

ce
g
aw
mi
mi
 Y
ta
it
pr


kA

dd
fi
ou
 r

RI
IE

OF

nt
e
vi
he
he
s
 T
mi


NO

cc
bu
st
th


ri
pr
 a
re
su
,
iz


SD

ed
fr
 o
n
n
ou
te
h
oc


ND

re
er
r
ea

NG
R

 U

 (
te
si
 "
 W
or
er
ss


N-

es
to
er
er


et
ov
dd
e
bs
ha
ed


IC

in
om
fo
St
St
 c
.
br
es


 A

ss
")
In
so

,
CO

SE

"t
rm
ti
Te
eb
 o
ms
io


HU

s
ar
s,
 c


ar
id
re
th
ta
rv
 a


TI

g
 t
th
at
at
on
Yo
ea
s


BU

 r
 i
te
n.

TR
NS

 

he
s
ng
rm
si
th
 o
n


MA

th
e
 o
on


y
ed
ss
at
nt
es
s


ON

br
he
e
e"
e
se
u
ch
re


SE

ec
f
rn


AN
TI



 W
ar
 (
se
te
er
f
of


N 

e
no
rg
te


in
 f
 t
 t
ia
ti
a


 

ou
 T
st
)
re
nt
co
es
ga


 

or
we
et


SF
TU



eb
eg
in
of
 s
wi
Se
 t


VI

We
t
an
nt


te
or
he
he
ll
ng
vi




gh
er
at
fo
si
ct
ns
io
rd




de
 s
 P


ER
TE



si
in
fa
 S
ha
se
rv
he


SI

bs
li
y
of


ll
ah
 W
 c
y
,
ol




t
ms
e
r
de
o
en
fs
in




d.
us
ro


RI
Sk



te
 a
ny
er
ll
 m
ic
 o


TO

it
mi
ot
ro


ec
um
eb
om
di
ga
at




by
fo
of
th
nt
th
te
th
g




 A
pe
to


NG
AN



")
dd
 m
vi
 b
ak
e
wn


RS

e
te
he
m


tu
an
si
pi
mi
th
io




 s
f
 r
e
s
e
to
es
ac




n
ct
co


 T
 A



 i
it
an
ce
e
es
ar
er


 

ap
d
r
th


al
sv
te
la
ni
er
n




uc
Se
es
We
en
ju
 t
e
ti




em
 p
l


O
CC



s
io
ne
")
co
 u
e
 o




pl
to
co
e


 p
is
hc
ti
sh
in
of




h
rv
id
bs
te
ri
he
Te
on




ai
ot
ad


A
EP



pr
n
r)
.
ns
se

f




y
,
mp
We


ro
it
on
on
es
g,
dt




pa
ic
en
it
re
sd
 v
rm
sg




l
en
dr


TH
TA



ov
to
 t
Pl
id
eo

th




to
we
ut
bs


pe
or
ta
,
 t
 a
hi




rt
e
ce
ef
d
ic
en
s
un




ad
ti
es


IR
NC



id
 a
he
ea
er
f

e





b
er
it


rt
s
in

he
nd
s




y

 o
as
in
ti
ue
of
de




dr
al
s.


D
E



ed
ny

se
ed










e


y.

s


/o







f

to
on
 i

r




es





AN


























r











n






s





D

\n
'; } sub formatHTML { my $s = $_[0]; $s =~ s/\\n/\n/g; return $s; } sub getDocType { return formatHTML($__DOC_TYPE1); } sub getHeadHTML { return formatHTML($__HEAD1); } sub getRobotHTML { return formatHTML($__ROBOT1); } sub getNoCollectHTML { return formatHTML($__NOCOLLECT1); } sub getHeadHTML2 { return formatHTML($__HEAD2); } sub getTopHTML { return formatHTML($__TOP1); } sub getEmailHTML { my $method=$_[0]; my $m=$_[1]; if ($method eq "0" || !$method) { return ""; } elsif ($method eq "1") { return formatHTML($__EMAIL1A.$m.$__EMAIL1B.$m.$__EMAIL1C); } elsif ($method eq "2") { return formatHTML($__EMAIL2A.$m.$__EMAIL2B.$m.$__EMAIL2C); } elsif ($method eq "3") { return formatHTML($__EMAIL3A.$m.$__EMAIL3B.$m.$__EMAIL3C); } elsif ($method eq "4") { return formatHTML($__EMAIL4A.$m.$__EMAIL4B.$m.$__EMAIL4C); } elsif ($method eq "5") { return formatHTML($__EMAIL5A.$m.$__EMAIL5B); } elsif ($method eq "6") { return formatHTML($__EMAIL6A.$m.$__EMAIL6B.$m.$__EMAIL6C); } elsif ($method eq "7") { return formatHTML($__EMAIL7A.$m.$__EMAIL7B.$m.$__EMAIL7C); } elsif ($method eq "8") { return formatHTML($__EMAIL8A.$m.$__EMAIL8B.$m.$__EMAIL8C); } elsif ($method eq "9") { return formatHTML($__EMAIL9A.$m.$__EMAIL9B.$m.$__EMAIL9C); } return formatHTML($__EMAIL9A.$m.$__EMAIL9B.$m.$__EMAIL9C); } sub getLegalHTML { my $legal_text = &getLegalContent; return formatHTML($__LEGAL1.($legal_text).$__LEGAL2); } sub getStyleHTML { return formatHTML($__STYLE1); } sub getVanityHTML { return formatHTML($__VANITY1); } sub getBottomHTML { return formatHTML($__BOTTOM1); } sub performRequest { my $request = $_[0]; my $response = ""; my $head = ""; $head = "POST ".$__REQUEST_SCRIPT." HTTP/1.1\r\n"; $head .= "Host: ".$__REQUEST_HOST."\r\n"; $head .= "User-Agent: PHPot ".$__HPOT_TAG2."\r\n"; $head .= "Content-Type: application/x-www-form-urlencoded\r\n"; $head .= "Content-Length: ".length($request)."\r\n"; $head .= "Connection: close\r\n\r\n"; use Socket; socket(SH, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die $!; my $sin = sockaddr_in($__REQUEST_PORT,inet_aton($__REQUEST_HOST)); connect(SH,$sin) || die "\n
Unable to contact the server...
\n"; syswrite(SH, $head, length($head)); syswrite(SH, $request, length($request)); my $line; while ($line = ) { $response .= $line; } close(SH); return $response; } sub prepareRequest { my %postvars = (); $postvars{"tag1"} = $__HPOT_TAG1; $postvars{"tag2"} = $__HPOT_TAG2; $postvars{"tag3"} = $__HPOT_TAG3; $postvars{"tag4"} = md5_hex(&file_get_contents(&basename($ENV{"SCRIPT_FILENAME"}))); $postvars{"ip"} = $ENV{"REMOTE_ADDR"}; $postvars{"svrn"} = $ENV{"SERVER_NAME"}; $postvars{"svp"} = $ENV{"SERVER_PORT"}; $postvars{"svip"} = $ENV{"SERVER_ADDR"}; $postvars{"rquri"} = $ENV{"REQUEST_URI"}; $postvars{"sn"} = $ENV{"SCRIPT_NAME"}; $postvars{"sn"} =~ s/ /%20/g; $postvars{"ref"} = $ENV{"HTTP_REFERER"}; $postvars{"uagnt"} = $ENV{"HTTP_USER_AGENT"}; return %postvars; } sub transcribeResponse { my $response = $_[0]; my %settings = (); my @directives = (); my @arr = split("\n",$response); my $isParam = 0; my $i = 0; foreach my $v (@arr) { if ($v eq "") { $isParam = 0; } if ($isParam) { my @pieces = split("=",$v,2); $settings{$pieces[0]} = &urldecode($pieces[1]); } if ($v eq "") { $isParam = 1; } } if ($settings{"directives"}) { @directives = split(",",$settings{"directives"}); } return \(@directives,%settings); } print "Content-Type: text/html\n\n"; my $response = ""; my $request = ""; my %post = prepareRequest(); foreach my $k (keys %post) { $request .= "&$k=".&urlencode(&stripslashes($post{$k})); } $request = substr($request,1); $response = performRequest($request); if ($response == "-1") { exit(); } my ($directives_ref,$settings_ref) = transcribeResponse($response); my @directives = @$directives_ref; my %settings = %$settings_ref; my $email = $settings{"email"}; my $emailmethod = $settings{"emailmethod"}; if ($directives[0] eq "1") { print getDocType(); } if ($settings{"injDocType"}) { print $settings{"injDocTypeMsg"}; } if ($directives[1] eq "1") { print getHeadHTML(); } if ($settings{"injHead1HTML"}) { print $settings{"injHead1HTMLMsg"}; } if ($directives[8] eq "1") { print getRobotHTML(); } if ($settings{"injRobotHTML"}) { print $settings{"injRobotHTMLMsg"}; } if ($directives[9] eq "1") { print getNoCollectHTML(); } if ($settings{"injNoCollectHTML"}) { print $settings{"injNoCollectHTMLMsg"}; } if ($directives[1] eq "1") { print $settings{"injHead2HTMLMsg"}; } if ($settings{"injHead2HTML"}) { print $settings{"injHead2HTMLMsg"}; } if ($directives[2] eq "1") { print getTopHTML(); } if ($settings{"injTopHTML"}) { print $settings{"injTopHTMLMsg"}; } if ($settings{"actMsgOn"}) { print $settings{"actMsg"}; } if ($settings{"errMsgOn"}) { print $settings{"errMsg"}; } if ($settings{"customMsgOn"}) { print $settings{"customMsg"}; } if ($directives[3] eq "1") { print getLegalHTML(); } if ($settings{"injLegalHTML"}) { print $settings{"injLegalHTMLMsg"}; } if ($settings{"altLegalOn"}) { print $settings{"altLegalMsg"}; } if ($directives[4] eq "1") { print getEmailHTML($emailmethod,$email); } if ($settings{"injEmailHTML"}) { print $settings{"injEmailHTMLMsg"}; } if ($directives[5] eq "1") { print getStyleHTML(); } if ($settings{"injStyleHTML"}) { print $settings{"injStyleHTMLMsg"}; } if ($directives[6] eq "1") { print getVanityHTML(); } if ($settings{"injVanityHTML"}) { print $settings{"injVanityHTMLMsg"}; } if ($settings{"altVanityOn"}) { print $settings{"altVanityMsg"}; } if ($directives[7] eq "1") { print getBottomHTML(); } if ($settings{"injBottomHTML"}) { print $settings{"injBottomHTMLMsg"}; } #################### PERL <-> PHP functions ################ sub file_get_contents { open(FILE, "< $_[0]") or die "can't open $_[0]: $!"; undef $/; my $whole_file = ; # 'slurp' mode $whole_file =~ s/^#![a-zA-Z0-9\/\\\:\.\-\_\~ ]*[\n\r;]//; close(FILE); return $whole_file; } sub basename { return $_[0]; } sub urldecode { my $theURL = $_[0]; $theURL =~ tr/+/ /; $theURL =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg; $theURL =~ s///g; return $theURL; } sub urlencode { my $theURL = $_[0]; $theURL =~ s/([\W])/"%" . uc(sprintf("%2.2x",ord($1)))/eg; return $theURL; } sub stripslashes { return $_[0]; }