[script] hex_to_file

Sujet: [script] hex_to_file Sam 18 Sep 2010 - 21:28

hex_to_file(str_hex, filename)

Code:: file_text_close( file_text_open_write(argument1) )
f = file_bin_open(argument1, 1)
str = string_upper(argument0)
for(i=0 ; i<string_length(str) ; i+=2)
{
c1 = string_copy(str, i+1, 1)
c2 = string_copy(str, i+2, 1)
if( ord(c1) >= ord('0') && ord(c1) <= ord('9') )
byte = (ord(c1)-ord('0'))*16
else
byte = (ord(c1)-ord('A')+10)*16
if( ord(c2) >= ord('0') && ord(c2) <= ord('9') )
byte += ord(c2)-ord('0')
else
byte += ord(c2)-ord('A')+10

file_bin_write_byte(f, byte)
}
file_bin_close(f)

Converti une chaine hexa en fichier

Exemple :

Code:: hex_to_file("89504E470D0A1A0A0000000D494844520000002800000028080600000"+
"08CFEB86D0000000473424954080808087C0864880000001874455874536F66747761"+
"726500746573747069786275662D73617665D81442A3000001CC494441545885ED982"+
"14C02511C873F998E69A0389B23E96630182C069AB3502814828948339028148A896A"+
"D660A1101CD1602118288EC60C6C8E821B0E657206FF6F9CBBE3EEDEBD83638EDFF6D"+
"B6D77EF7DEFDBEEF6F676B0CE3AFF2B47D295CD83742593052C6936661747B6802E33"+
"C1AEDC5B995C319353BD8AD5C8963D6088537028CF62CF0D4E39D59B18BD003801BE9"+
"92FF82D6362C906F0E821A7FA2863979E7C0039D5FCB2E5B6819E86604FE62C2D150D"+
"39D5CAB2E4F6815108C191CC5D786E43C8A9DE2E5AEE0C981A084E85B1902480B6819"+
"C6A5B5891E712388D80732AAC489302FAC013669BEE8630FAC28C2C3566AFA860C029"+
"D838B508BC003800C636F02BB01382B3237315672C6CE334707EE8D5109CAA0BA7612"+
"A77EE02B5800F20ADC149CB1C37D67958B94DA033076A01F71AAC7B0F4E47D6D24EC9"+
"03AA36DD4C004E06FFCDBDA42BB70B0C7CA016F08CF7A69B90317E9C81AC1938F5005"+
"0D5A207A7A8C1A907953B06261AE037DC37DD943C0BCA99C8DABE69694055AF5D38D7"+
"21382D3FB95C08A8057C018736CEA1DC0BC3CACD934BF2F7EF806E9B3656D380D3151"+
"747CA0650D50BA929A7ACA4D4C92409DC617EC27891ABE92FB8777E0F169F869C75D6"+
"31CE0FAD649571FBA3768E0000000049454E44AE426082", "file.png")

_________________

Invité

nice, on pourra même faire un éditeur hexadécimale avec super