-
Vis nibh feugait accusata in. Et est menandri scripserit definitiones, viris signiferumque conclusionemque sit an. Mel facete dictas malorum in, ex eam simul tation quodsi, ex esse illum deserunt eos. Ex sed accusam ponderum sapientem, in feugiat erroribus vim. Dicta clita no nec. Duo diam labores ne.Vis nibh feugait accusata in. Et est menandri scripserit definitiones, viris signiferumque conclusionemque sit an. Mel facete dictas malorum in, ex eam simul tation quodsi, ex esse illum deserunt eos. Ex sed accusam ponderum sapientem, in feugiat erroribus vim. Dicta clita no nec. Duo diam labores ne.This is a Testing Style Heading 2:
Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim, porro quidam eum no. Eum convenire conceptam moderatius cu. Vix in hinc praesent torquatos, vix te viris vocent menandri.
-
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. -
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. -
. 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.
الاشتراك في:
الرسائل (Atom)