Rot13 Perl Script Need Help !

Full Version: Rot13 Perl Script Need Help !

GovernmentSecurity.org > System Security > Beginners Section

xlulux

May 11 2004, 04:47 AM

hey guys, i have made a simple yet fun rot13 script. for those of you that dont know what it is here it goes :

rot13 is an encoding scheme used to encode simple messages over forums or irc in a SUPER fast way. this is because its not really encrypted but encoded. the simplicity of this program allows it to be encoded/decoded with the same algorithm

alright now that we know what it is i want some of you guys to take a look at this script ive made and see if theres a way i could add this in to an irc client to automatically send all my text to the channel then a bot getts the text and decodes it and spits it out so i guess this would be a diagram of it

stdout ---> rot13 encoder ----> inet ------> irc server ------->bot------->rot13decoder-----> irc channel. i dont know if this would be the easiest way to make it work so if you have any ideas shoot them at me.

btw this is going to be used for easy text hiding over a lan so that people have a challenge to work with when i play "king of the box!" tournaments at my apartment everymonth (its like root hack www.roothack.org if you like what you see, then please help me out) ill try to look over the code a little better but as it is im not very experianced with using netmodules in perl and thats why im asking in here

ok heres the code

CODE

#!/usr/bin/perl -wT
#use strict

sub rot13 {
print "enter the string you want to convert: \n";
foreach ('a'..'m', 'A'..'M') {
$q = chr(ord($_)+13);
@p{($_,$q)} = ($q,$_);
}
while (<>) { s#([a-zA-Z])#$p{$1}#g; print; &MAIN; }
}
sub rot13D {
print "Now enter the string you want to decrypt: \n";
foreach ('a'..'m', 'A'..'M') {
$q = chr(ord($_)+13);
@p{($_,$q)} = ($q,$_);
}
while (<>) { s#([a-zA-Z])#$p{$1}#g; print; &MAIN; }
}

sub MAIN {

print "\n\n\n hey how are you doing? this is my rot13 project !
i didnt write the rot13 algorithm so dont give me credit but i did put it
together this little application to write stuff and en/de crypt it :) have fun\n";

print " what would you \nlike to do ? \n 1. encrypt file/decrypt file 2.quit \n";

$input = <STDIN>;

if ($input == '1')
{
print "ok off we go to encrypt \n";
print "what is the file that you would like to encrypt? type in the name here!\n";
&rot13;
}

else {
print "arlight ill die! \n";
die;
}
}

&MAIN;

This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.