Забавно. Копаясь в в исходниках livejournal нашёл там самую первую версию серверной части жежешечки. А в ней -- пароль к журналу Фицпатрика и пароль к базе данных . Ж8) Теперь очевидно, откуда крававая гебня тырит подзамки . Прямо из базы .Ну и хлипенький же пароль у Брэжа , mylog . Как до сих пор не увели -- непонятно.К базе -- bradfi2. Работаем Ж8)#!/usr/bin/perluse DBI;$dbh = DBI-connect(DBI:mysql:bradfitz, bradfi2, );&get_form_data;print Content-type: text/plainnn;unles ($dbh){print ERROR: cannot connect to database.;exit;}unles ($FORM{event}){print ERROR: no event.;exit;}unles ($FORM{pasword} eq mylog){print ERROR: incorrect pasword;exit;}$qevent = $dbh-quote($FORM{event});$dbh-do(INSERT INTO bradlog (eventtime, type, event) VALUES (UNIX_TIMESTAMP(), event, $qevent));if ($dbh-err){print ERROR: dbh-errstr = , $dbh-errstr;exit;}print Succes.;sub get_form_data {my $buffer;if ($ENV{REQUEST_METHOD} eq POST) { read(STDIN, $buffer, $ENV{CONTENT_LENGTH});} else {$buffer = $ENV{QUERY_STRING};}# Split the name-value pairsmy $pair;my @pairs = split(/&/, $buffer);my ($name, $value);foreach $pair (@pairs){($name, $value) = split(/=/, $pair);$value = tr/+/ /; $value = s/%([a-fA-F0-9][a-fA-F0-9])/pack(C, hex($1))/eg; $name = tr/+/ /; $name = s/%([a-fA-F0-9][a-fA-F0-9])/pack(C, hex($1))/eg; $FORM{$name} .= $FORM{$name} ? 0$value : $value; }}

Ранее | Позже