[TOOL] WriteBin - Convert Hex Dump to Binary

The following security advisory is sent to the securiteam mailing list, and can 
be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion

The SecuriTeam alerts list - Free, Accurate, Independent.

Get your security news from a reliable source.
http://www.securiteam.com/mailinglist.html 

- - - - - - - - -



  WriteBin - Convert Hex Dump to Binary
------------------------------------------------------------------------


SUMMARY



DETAILS

WriteBin is a tool that converts an hex dump file into its a binary form 
and save it as a file.

Tool:
#
# WriteBin v1.0 | Reed Arvin reedarvin[at]gmail[dot]com
#
# Usage:
# WriteBin.pl <file name>
# WriteBin.pl MyBin.exe.txt
#
############################

use strict;

my($strInputFile) = $ARGV[0];
my($intByteCount) = "";
my($strBytes)     = "";

if ($#ARGV ne "0")
{
 print "WriteBin v1.0 | Reed Arvin reedarvin[at]gmail[dot]com\n";
 print "\n";
 print "Usage:\n";
 print "WriteBin.pl <file name>\n";
 print "WriteBin.pl MyBin.exe.txt\n";

 exit;
}

if (open(INPUTFILE, "< $strInputFile"))
{
 open(OUTPUTFILE, "> new_" . substr($strInputFile, 0, 
(length($strInputFile) - 4)));

 binmode(OUTPUTFILE);

 $intByteCount = 0;

 while (<INPUTFILE>)
 {
  $strBytes = $_;

  chop($strBytes);

  print (OUTPUTFILE pack("H" . length($strBytes), $strBytes));
 }

 close(INPUTFILE);
 close(OUTPUTFILE);
}
else
{
 print "ERROR! Cannot open file $strInputFile\n";
}

# Written by Reed Arvin reedarvin[at]gmail[dot]com


ADDITIONAL INFORMATION

The information has been provided by  <mailto:reedarvin@gmail.com> Reed 
Arvin.
To keep updated with the tool visit the project's homepage at:  
<http://reedarvin.thearvins.com/tools.html> 
http://reedarvin.thearvins.com/tools.html



======================================== 


This bulletin is sent to members of the SecuriTeam mailing list. 
To unsubscribe from the list, send mail with an empty subject line and body to: 
list-unsubscribe@securiteam.com 
In order to subscribe to the mailing list, simply forward this email to: 
list-subscribe@securiteam.com 


==================== 
==================== 

DISCLAIMER: 
The information in this bulletin is provided "AS IS" without warranty of any 
kind. 
In no event shall we be liable for any damages whatsoever including direct, 
indirect, incidental, consequential, loss of business profits or special 
damages.