Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!usr/bin/perl
- #HexNow 0.1
- #Coded By Doddy H
- #Script based in getbytes.py made by hecky neobits
- #Thanks to hecky neobits & explorer(perlenespanol)
- use Getopt::Long;
- use File::Basename;
- use Cwd;
- chdir( getcwd() );
- GetOptions(
- "hex=s" => \$hex,
- "each=s" => \$hexeach,
- "output=i" => \$output,
- "savefile=s" => \$savefile
- );
- head();
- if ($hex) {
- my $code_final;
- if ($hexeach) {
- my $st = unpack "H*", getcontent($hex);
- my $reco;
- for ( my $num = 0 ; $num <= length($st) - 1 ; $num += $hexeach ) {
- my $final = substr $st, $num, $hexeach;
- $reco .= $final . "\n";
- }
- $code_final = $reco;
- }
- else {
- $code_final = unpack "H*", getcontent($hex);
- }
- if ( $output eq "1" ) {
- print "\n\n[+] Encoding ....\n";
- print "\n[Start]\n\n";
- print $code_final;
- print "\n\n[End]\n";
- }
- if ($savefile) {
- savefile( $savefile, $code_final );
- print "\n[+] Result generated in : $savefile\n";
- }
- else {
- my $div = basename($hex);
- if ( $div =~ /(.*)\.(.*)/ ) {
- my $listo = $1 . "_hex.txt";
- savefile( $listo, $code_final );
- print "\n[+] Result generated in : $listo\n";
- }
- }
- copyright();
- }
- sub head {
- print qq(
- _____
- ,----/,--. `.
- / '. `-' \ Program Name : HexNow
- | ____ \ '`|_ Version : 0.1
- \'.--._/` _ \ '. Author : Doddy H
- /'-|/ \|`\|-` \ Script based in getbytes.py made by hecky neobits
- / / \ | Thanks to hecky neobits
- | ; '` | .'
- '. |;; ; /
- \ \ ; / ,' Examples :
- ;--, .,--,
- __||=|=|./|=|=||___ perl hexnow.pl -hex imagen.jpg
- `'-'-' `-'-'` perl hexnow.pl -hex imagen.jpg -each 5
- ______________________ perl hexnow.pl -hex imagen.jpg -output 1
- /'/ / \ \ \ perl hexnow.pl -hex imagen.jpg -savefile test.txt
- / '.'; ; \ ' \
- '-/ | ; | ; \-'
- \_| | | |_/ The End ?
- `-'\_/`-'
- );
- }
- sub copyright {
- print "\n(C) Doddy Hackman 2013\n";
- exit(1);
- }
- sub getcontent {
- open( FILE, $_[0] );
- binmode(FILE);
- my @lines = <FILE>;
- close FILE;
- $code = join "", @lines;
- return $code;
- }
- sub savefile {
- if ( -f $_[0] ) {
- unlink( $_[0] );
- }
- open( SAVE, ">>" . $_[0] );
- print SAVE $_[1];
- close SAVE;
- }
- #The End ?
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement