Mars

Cras congue malesuada nisl, non rhoncus diam congue vel. Cras vitae dui id nibh pretium blandit. Morbi pharetra diam eget felis mollis in vestibulum tellus cursus. Cras consequat mi gravida nunc adipiscing ac aliquam nisi eleifend. Praesent nec pulvinar orci. Vestibulum placerat sollicitudin nunc, sit amet suscipit nulla hendrerit nec. Donec id massa ut dui feugiat bibendum vulputate non quam. Etiam et eros nec quam porttitor mollis. Nunc cursus velit congue est molestie elementum. Mauris massa lorem, fringilla eget porta fringilla, aliquam at turpis. Maecenas commodo lacinia porta. Pellentesque augue quam, sodales vitae vehicula ut, vulputate at massa. Sed nec tellus sit amet lorem convallis iaculis. Maecenas quis elit a dolor euismod adipiscing vitae ut quam. Mauris odio dolor, convallis in cursus a, aliquet quis tellus. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus.

Vestibulum pulvinar eros lobortis elit elementum ultricies. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Suspendisse vitae justo a mi mattis laoreet. Nulla condimentum, turpis nec tristique faucibus, massa nisl euismod turpis, non ullamcorper libero dui at purus. Quisque sollicitudin euismod lectus sit amet ultrices. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Curabitur vel est eget odio pharetra eleifend. Proin diam neque, sodales at vehicula molestie, dapibus et lacus. Integer varius augue quis ante sagittis sed condimentum nibh suscipit. Vestibulum et elit tortor. Proin vestibulum quam a lorem varius dignissim a vel est. Ut tempus congue diam, malesuada fringilla tellus congue et. Curabitur luctus urna ac leo semper pharetra. Duis nec imperdiet neque.

Nam eget dignissim lorem. Aliquam porttitor dapibus volutpat. Sed volutpat, massa nec pulvinar tempus, dolor dolor aliquam metus, id porta nibh orci quis ante. Sed sollicitudin, libero sit amet convallis mollis, ante erat pulvinar mauris, nec egestas felis turpis id magna. In hac habitasse platea dictumst. Quisque dapibus dolor vitae velit facilisis ultricies porttitor erat facilisis. Nunc leo tortor, euismod quis dapibus et, hendrerit et felis. Donec dui augue, sagittis at fermentum ut, interdum a lectus. In ante ipsum, commodo non elementum ac, aliquam sit amet arcu. Aenean et massa tincidunt lacus cursus laoreet. Sed dapibus arcu at purus aliquet viverra. Cras justo velit, tincidunt sit amet venenatis ac, tincidunt vel libero. Suspendisse potenti. Vivamus odio purus, faucibus vel congue eleifend, varius eu nulla. Pellentesque placerat risus ut tortor tempus a convallis felis fringilla. 

[Perl] Arsenal Project X 0.2

Today I bring you the new version of my Arsenal X written in Perl with the following options: [+] Gmail Inbox [+] Client Whois [+] Table [+] Downloader [+] Get IP [+] Locate IP [+] K0bra SQLI Scanner [+] Crack multiple hashes [+] Search administration panel [+] Port Scanner [+] Multi Cracker with support for FTP, TELNET, POP3 [+] executing commands in the console An image:

A video with examples of use:

If you want to download the program they can do from here: SourceForge GitHub that would be it. 

[Perl] Example Murcielago Encryption

A simple example in Perl on how to perform the encryption Murcielago.




# !usr/bin/perl
# Cifrado Murcielago
# Coded By Doddy Hackman in the year 2014

head();
menu();
copyright();

# Functions

sub head {
    print "\n-- == Cifrado Murcielago == --\n";
}

sub copyright {
    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";
}

sub menu {
    print qq(
===============
= Menu        =
===============
1 - Cifrar    =
2 - Descifrar =
3 - Exit      =
===============
);

    print "\n[+] Option : ";
    chomp( my $op = <stdin> );

    if ( $op eq "3" ) {
        copyright();
        <stdin>;
        exit(1);
    }

    print "\n[+] Enter text : ";
    chomp( my $text = <stdin> );

    print "\n[+] Result ...\n\n";

    if ( $op eq "1" ) {
        print cifrado_murcielago($text);
        <stdin>;
        menu();
    }
    elsif ( $op eq "2" ) {
        print descifrado_murcielago($text);
        <stdin>;
        menu();
    }
    else {
        menu();
    }

}

sub cifrado_murcielago {
    my $texto = shift;
    $texto =~ tr/murcielagoMURCIELAGO/01234567890123456789/;
    return $texto;
}

sub descifrado_murcielago {
    my $texto = shift;
    $texto =~ tr/01234567890123456789/murcielagoMURCIELAGO/;
    return $texto;
}

# The End ?


That's all. 

[Perl] Ejemplo de Cifrado Vigenere

. A simple example of Vigenere encryption made ​​using a module cpan I found in the code:

# !usr/bin/perl# Vigenere Cipher# Coded By Doddy Hackman in the year 2014use Crypt::Vigenere;head();menu();copyright();# Functionssub head {    print "\n-- == Vigenere Cipher == --\n";}sub copyright {    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";}sub menu {    print qq(================ Menu        ================1 - Encode    =2 - Decode    =3 - Exit      ================);    print "\n[+] Option : ";    chomp( my $op = <stdin> );    if ( $op eq "3" ) {        copyright();        <stdin>;        exit(1);    }    print "\n[+] Enter text : ";    chomp( my $text = <stdin> );    print "\n[+] Enter Key : ";    chomp( my $key = <stdin> );    print "\n[+] Result ...\n\n";    $tool = Crypt::Vigenere->new($key);    if ( $op eq "1" ) {        print $tool->encodeMessage($text);        <stdin>;        menu();    }    elsif ( $op eq "2" ) {        print $tool->decodeMessage($text);        <stdin>;        menu();    }    else {        menu();    }}# The End ?

That's all.