ads728
‏إظهار الرسائل ذات التسميات Perl. إظهار كافة الرسائل
‏إظهار الرسائل ذات التسميات Perl. إظهار كافة الرسائل
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] Arsenal Project X 0.2

بواسطة:
أضف تعليق
Tag :
+
[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] Example Murcielago Encryption

بواسطة:
2 تعليقات
Tag :
+
[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. 

[Perl] Ejemplo de Cifrado Vigenere

بواسطة:
أضف تعليق
Tag :
+
ads728