Viewing file: 
view.cgi (9.61 KB) -rwxr-xr-xSelect action/file-type:
(
+) |
(
+) |
(
+) |
Code (
+) |
Session (
+) |
(
+) |
SDB (
+) |
(
+) |
(
+) |
(
+) |
(
+) |
(
+) |
#!/usr/bin/perl
use DBI();
use CGI qw(:standard);
use IO::Socket;
use MIME::Base64();
use MIME::QuotedPrint();
use Encode;
use Encode qw/from_to/;
use CGI::Cookie;
print "Content-type: text/html\n\n";
my $auth = cookie('mn.mail.auth');
($user, $pass) = split (" ", $auth);
$id = param("id");
open(patt,"<./patt_n1.html")||die "Pattern file 1 not found";
while(<patt>)
{
print;
}
close(patt);
$serv = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "localhost",
#PeerAddr => "pop.mail.ru",
PeerPort => "110",
);
$stat="0";
$stat1="0";
$stat2="0";
$crlf = sprintf ("\n");
while ( <$serv> ) {
$line = $_;
($q, $p) = split (" ", $line);
if ($stat eq "0" and $q eq "+OK")
{
print $serv "USER $user\n";
$stat = "101";
}
if ($stat eq "1" and $q eq "+OK")
{
print $serv "PASS $pass\n";
$stat = "102";
}
if ($stat eq "2" and $q eq "+OK")
{
print $serv "RETR $id\n";
$stat = "103";
}
if ($stat eq "3" and $q eq "+OK")
{
$stat="104";
}
if ($stat eq "4" and $q eq ".")
{
print $serv "QUIT\n";
$stat="105";
}
if ($stat eq "4")
{
$q = length($line);
# get From
if ($stat1 eq "0" and $from eq "")
{
($nl, $from) = split("From:", $line);
($from1, $from2) = split("<",$from);
$fr = sprintf("(%s", $from2);
($from1, $from2) = split(">",$fr);
$fr = sprintf("%s)%s", $from1, $from2);
if (index ($from,"\=\?")<0) {from_to($from, "cp1251", "koi8-r") foreach $from;}
else {$from = autodec($from);}
# $from = sprintf("%s %s", $from, $fr);
}
# get Subject
if ($stat1 eq "0" and $subj eq "")
{
($nl, $subj) = split("Subject:", $line);
if (index ($subj,"\=\?")<0) {from_to($subj, "cp1251", "koi8-r") foreach $subj;}
else {$subj = autodec($subj);}
}
# get Date
if ($stat1 eq "0" and $date eq "") { ($nl, $date) = split("Date:", $line); }
# get Content-Type
if ($stat1 eq "0" and $type eq "")
{
($nl, $type) = split("Content-Type:", $line);
}
if ($stat1 eq "0" and $type eq "")
{
($nl, $type) = split("Content-type:", $line);
}
# get Charset
if ($stat1 eq "0" and $char eq "")
{
($nl, $char) = split("charset=", $line);
($nl, $tc, $nl) = split("\"", $char);
if ($tc ne "") {$char = $tc;}
($char,$nl) = split(" ", $char);
}
# get Boundary
if ($stat1 eq "0" and $boun eq "")
{
($nl, $boun) = split("boundary=", $line);
($nl, $tb, $nl) = split("\"", $boun);
if ($tb ne "") {$boun = $tb;}
}
# get Encoding
if ($stat1 eq "0" and $enc eq "")
{
($nl, $enc) = split("Content-Transfer-Encoding:", $line);
$fenc = $enc;
$qw1 = index($enc, "quoted-printable");
$qw2 = index($enc, "base64");
if ($qw1 > 0) {$enc = "Q";}
if ($qw2 > 0) {$enc = "B";}
if ($enc ne "Q" and $enc ne "B" and $fenc ne "") {$enc = " ";}
}
if ($q eq "2" and $stat1 eq "0" ) {$stat1 = "102";}
# if ($q eq "2" and $stat1 eq "1" ) {$stat1 = "102";}
if ($stat1 eq "2" )
{
$date = autodec($date);
$stat1 = "3";
print "<font face=\"arial\"><table width=100%, border=0, bgcolor=#005090><tr><td><table border=0>";
print "<tr><td><b><font color=#ffff00>οΤ:</font></b></td><td> </td><td><b><font color=#ffffff>$from</font></b></td></tr>";
print "<tr><td><b><font color=#ffff00>τΕΝΑ:</font></b></td><td> </td><td><b><font color=#ffffff>$subj</font></b></td></tr>";
print "<tr><td><b><font color=#ffff00>δΑΤΑ:</font></b></td><td> </td><td><b><font color=#ffffff>$date</font></b></td></tr>";
# if ($type ne "") {print "<tr><td><b>Content-Type:</b></td><td> </td><td><b>$type</b></td></tr>";}
# if ($char ne "") {print "<tr><td><b>Charset:</b></td><td> </td><td><b>$char</b></td></tr>";}
# if ($enc ne "") {print "<tr><td><b>Encoding:</b></td><td> </td><td><b>$enc</b></td></tr>";}
print "</table></td></tr></table><br>";
}
if ($stat1 eq "3")
{
# Body ----------------------------------------------------------------------------------
if (index($type,";")>0) {($type,$nl) = split(";",$type);}
if (index ($type,"multipart/alternative") > 0) { $stop = "------";}
if (index ($type,"multipart/related") > 0) { $stop = "------";}
if ($boun eq "" and $stat2 eq "0") { $stat2="4"; print "<pre>"; $flg = "1"; if ($ntype eq "") {$ntype = $type;}}
if ($boun ne "" and $stat2 eq "0") { $fl = index ($line, $boun);}
if ($fl > "0" and $stat2 eq "0")
{
if (index ($type,"multipart/alternative") > 0) { $stat2="103"; $stop = "------";}
if (index ($type,"multipart/related") > 0) { $stat2="101"; $stop = "------";}
}
# if ($q eq "2" and $stat2 eq "0") {$stat2 = "103";}
if ($stat2 eq "11")
{
$fl = index ($line, $boun);
if ($fl > "0") { $stat2 = "102";}
}
if ($stat2 eq "1")
{
($nl, $boun) = split("boundary=", $line);
($nl, $tb, $nl) = split("\"", $boun);
if ($tb ne "") {$boun = $tb; $stat2 = "110";}
# print "$line<br>$boun<br>";
}
if ($stat2 eq "10")
{
$fl = index ($line, $boun);
if ($fl >= "0") { $stat2 = "103";}
}
if ($boun ne "" and $stat2 eq "2") { $fl = index ($line, $boun);}
if ($fl > "0" and $stat2 eq "2") { $stat2 = "103"; }
if (index($line,"Type: image/")>0)
{
($nl,$ntype) = split("Content-Type: ", $line);
# ($ntype,$nl) = split(";", $ntype);
$type1 = $ntype;
$type = $ntype;
# print "--$ntype--";
$stat2="103";
}
if ($stat2 eq "3")
{
$q = length($line);
($nl, $nnm) = split("name=", $line);
if ($nnm ne "") {($nl,$name,$nl) = split("\"", $nnm);}
if ($char eq "")
{
($nl, $char) = split("charset=", $line);
($nl, $tc, $nl) = split("\"", $char);
if ($tc ne "") {$char = $tc;}
($char,$nl) = split(" ", $char);
}
if ($ntype eq "")
{
($nl, $ntype) = split("Content-Type:", $line);
}
if ($ntype eq "")
{
($nl, $ntype) = split("Content-type:", $line);
}
if ($ext eq "")
{
($type1,$nl) = split(";", $type1);
($nl,$ext) = split("/", $type1);
}
# get Content-Type
if ($type1 eq "")
{
($nl, $type1) = split("Content-Type:", $line);
}
if ($type1 eq "")
{
($nl, $type1) = split("Content-type:", $line);
}
if ($enc eq "")
{
($nl, $enc) = split("Content-Transfer-Encoding:", $line);
$fenc = $enc;
$qw1 = index($enc, "quoted-printable");
$qw2 = index($enc, "base64");
if ($qw1 > 0) {$enc = "Q";}
if ($qw2 > 0) {$enc = "B";}
if ($enc ne "Q" and $enc ne "B" and $fenc ne "") {$enc = " ";}
}
if ($char ne "")
{
($nl, $tc, $nl) = split("\"", $char);
if ($tc ne "") {$char = $tc;}
}
if ($q < "3")
{
$stat2="104";
print "<table border=0 width=100%><tr><td bgcolor=#004080><font color=#ffffff face=\"arial\"><b> $type1</font></td></tr>";
if (index($type1,"text/html")>0) { print "<tr><td bgcolor=#ffeedd><font color=#000000>"; $html="1";} else {print "</table>";}
if ($ntype eq "") {$ntype = $type;}
($ntype, $nl) = split(";", $ntype);
if (index($ntype, "text/plain")>0) {if ($flg eq "") {print "<pre>"; $flg = "1";}}
}
}
# Print Body
if ($stat2 eq "4" and $stop ne "" and index($line, $stop) eq "0")
{
$stat2 = "11";
if (index($type1, "text/html")>0 or $html ne "") {print "</font></table>"; $html="";}
}
if ($stat2 eq "5" and $stop ne "" and index($line, $stop) eq "0"){ $stat2 = "11"; close(FILE); print "<img src=\"./images/$name\"><br>";}
# print "-= $stat2 -- " . index($type1, "image") . "=-";
if ($stat2 eq "4" and index($type1, "image") ne "-1")
{
$stat2="5";
# my @table=('A'..'Z','1'..'9','a'..'z');$name="";for($ii=0;$ii<8;$ii++){$name.=$table[int(rand(scalar@table))]}
open(FILE,">./images/$name");
}
if ($stat2 eq "5")
{
$enc = "B"; $char="koi8-r";
$line = sprintf("=?%s?%s?%s", $char, $enc, $line);
$line = autodec($line);
print (FILE "$line");
}
if ($stat2 eq "4")
{
if (index ($enc, "7bit") > 0 or index ($enc, "8bit") > 0) {$enc = " ";}
if ($enc eq "") {$enc = " ";}
if (index($char,";")>0) {($char,$nl) = split(";", $char);}
if ($enc eq " " and $char ne "") { from_to($line, $char, "koi8-r") foreach $line ;}
if ($enc ne " ")
{
$line = sprintf("=?%s?%s?%s", $char, $enc, $line);
$line = autodec($line);
if (index($line, chr(10)) > 0 and index($ntype, "text/plain")<0)
{
($l1, $l2) = split (chr(10), $line, 1);
$line = sprintf("%s<br>%s",$l1, $l2);
}
}
if (index($line,"http://--") ne "-1")
{
($l1, $l2) = split("http://", $line);
($l3, $l4) = split(" ", $l2, 1);
$line = sprintf("%s<a href=\"http://%s\">http://%s</a>%s", $l1, $l3, $l3, $l4);
}
if ($enc eq " " and index($ntype, "text/plain") < 0) {print "$line<br>";} else {print "$line";}
}
if ($stat2 eq "11")
{
$fl = index ($line, $boun);
if ($fl >= "0") { $stat2 = "103";}
$type1 = ""; $ext = "";
}
# inc stats --------------------------------------------------------------
if ($stat2 > "100") {$stat2 = $stat2 - 100;}
}
if ($stat1 > "100") {$stat1 = $stat1 - 100;}
}
if ($stat > 100) {$stat = $stat - 100;}
}
print "</pre></font>";
open(patt,"<./patt_n2.html")||die "Pattern file 2 not found";
while(<patt>)
{
print;
}
close(patt);
sub autodec {
my $dt2 = shift;
($edt1, $edt2) = split("=", $dt2);
($is, $cp, $t, $dat, $ie) = split (/\?/, $edt2);
if ( $t eq "B" or $t eq "b")
{
$t = "B";
$dt2 = MIME::Base64::decode($dat);
if ($cp ne "") {from_to($dt2, $cp, "koi8-r") foreach ($dt2);}
}
if ( $t eq "Q" or $t eq "q")
{
$t = "Q";
($nl, $nl, $nl, $dat, $nl) = split (/\?/, $dt2);
$dt2 = MIME::QuotedPrint::decode($dat);
if ($cp ne "") {from_to($dt2, $cp, "koi8-r") foreach ($dt2);}
}
if ( $t ne "B" and $t ne "Q" and $cp ne "") {from_to($dt2, $cp, "koi8-r") foreach ($dt2);}
return $dt2;
}
