Título: [Perl] Codificator 0.2
Publicado por: BigBear en 7 Julio 2012, 16:06 pm
Nueva version de este script para codificar y decodificar en : - Hex
- SHA1
- MD5 (solo encode)
- Base64
- ASCII
- URL
El codigo #!usr/bin/perl #Codificator 0.2 #Coded By Doddy H #This tool encode in : # #Hex #MD5 #Base64 #ASCII #URL # # use Digest::MD5; use Digest::SHA1; use MIME::Base64; use URI::Escape; sub head { clean(); @@@ @ @ @ @ @ @ @ @ @ @ @ @@@ @@ @ @ @@@ @ @@@ @@@ @@@ @@@ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @@ @ @ @ @ @@@ @@@ @@ @ @ @ @ @@@ @@ @ @@ @@@ @ ); } head(); print "\n[+] Options\n\n"; 1 - MD5 encode 2 - Base64 encode 3 - Base64 decode 4 - Ascii encode 5 - Ascii decode 6 - Hex encode 7 - Hex decode 8 - URL encode 9 - URL decode 10 - Exit ); while (true) { print "\n\n[+] Option : "; chomp( my $op = <stdin> ); if ( $op eq 1 ) { chomp( my $string = <stdin> ); print "\n\n[+] MD5 : " . Digest ::MD5->md5_hex($string) . "\n\n"; } elsif ( $op eq 2 ) { chomp( my $string = <stdin> ); print "\n\n[+] Base64 : " . encode_base64 ($string); } elsif ( $op eq 3 ) { chomp( my $string = <stdin> ); print "\n\n[+] Base64 Decode : " . decode_base64 ($string) . "\n"; } elsif ( $op eq 4 ) { chomp( my $string = <stdin> ); } elsif ( $op eq 5 ) { chomp( my $string = <stdin> ); $string . "\n"; } elsif ( $op eq 6 ) { chomp( my $string = <stdin> ); $hex = "0x"; for ( split //, $string ) { } print "\n\n[+] Hex : " . $hex . "\n"; } elsif ( $op eq 7 ) { chomp( my $string = <stdin> ); $string =~ s/^0x//; print "\n\n[+] Hex decode : " . $encode . "\n"; } elsif ( $op eq 8 ) { chomp( my $string = <stdin> ); print "\n\n[+] URL Encode : " . uri_escape ($string) . "\n"; } elsif ( $op eq 9 ) { chomp( my $string = <stdin> ); print "\n\n[+] URL Decode : " . uri_unescape ($string) . "\n"; } elsif ( $op eq 10 ) { copyright(); } else { print "[+] Write good stupid !\n"; } } sub clean { my $os = $^O; if ( $os =~ /Win32/ig ) { } else { } } sub copyright { print "\n-- == Doddy Hackman 2012 == --\n\n"; <stdin>; } # The End ?
Título: Re: [Perl] Codificator 0.2
Publicado por: ganondolf en 18 Julio 2012, 16:32 pm
hola doddy , podrias dejar la descarga del codificador por favor.
Título: Re: [Perl] Codificator 0.2
Publicado por: BigBear en 19 Julio 2012, 16:48 pm
no hace falta descargar nada solo es el codigo.
|