decoding problem?

[lokeshrajoria]

Hello Everyone,
can anybody tell me how to encode/decode this data mention below

Input file sample.s37
S00F000053424C5F352E30352E3000008A
S315FFFFB800541A63FF090063E7050063EF0100400772
S315FFFFB81025B640070CB6400704B60162406790B6EF

output file sample.kbf
ÿÿ¸ „Tcÿ cç cï
@%¶@¶@¶
b@g�¶@ ·@‘¶@g ¶€^ÿÿ`_ˆ¶ ^�õË F‘õˆ?
€fÿÿ 6¨aH? `7–õ`g˜õË? V.ñÊ7

i've already applied some UTF-8/16/32/EBCD/ASCII, UCS Technique

use Encode;
use strict;
{
open (INPUT, "sample.s37");
open (OUTPUT, ">sample.kbf");
binmode(INPUT);
binmode(OUTPUT);
my ($n, $data, $buf);
while ($data=<INPUT>)
{
 read (INPUT, $data, 2 );
  $data = encode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 8 );
  $data = encode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 2 );
  $data = encode('UTF-16', $data);
  print OUTPUT "$data ";
  read (INPUT, $data, 32 );
 $data = encode('UTF-16', $data);
 print OUTPUT ": $data ";
 read (INPUT, $data, 2 );
 $data = encode('UTF-16', $data);
 print OUTPUT "$data \n";
}
close(INPUT);
close(OUTPUT);
}
 
open (OUTPUT, "sample.kbf");
binmode(OUTPUT);
while ($data=<OUTPUT>)
{
 read (INPUT, $data, 2 );
  $data = decode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 8 );
  $data = decode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 2 );
  $data = decode('UTF-16', $data);
  print OUTPUT "$data ";
  read (INPUT, $data, 32 );
 $data = decode('UTF-16', $data);
 print OUTPUT ": $data ";
 read (INPUT, $data, 2 );
 $data = decode('UTF-16', $data);
 print "$data\n";
}
close(OUTPUT);
}
 
 

Thanks & Regard.
Lokiiii

[numberwhun]

Hello Everyone,
can anybody tell me how to encode/decode this data mention below

Input file sample.s37
S00F000053424C5F352E30352E3000008A
S315FFFFB800541A63FF090063E7050063EF0100400772
S315FFFFB81025B640070CB6400704B60162406790B6EF

output file sample.kbf
ÿÿ¸ „Tcÿ cç cï
@%¶@¶@¶
b@g�¶@ ·@‘¶@g ¶€^ÿÿ`_ˆ¶ ^�õË F‘õˆ?
€fÿÿ 6¨aH? `7–õ`g˜õË? V.ñÊ7

i've already applied some UTF-8/16/32/EBCD/ASCII, UCS Technique

use Encode;
use strict;
{
open (INPUT, "sample.s37");
open (OUTPUT, ">sample.kbf");
binmode(INPUT);
binmode(OUTPUT);
my ($n, $data, $buf);
while ($data=<INPUT>)
{
 read (INPUT, $data, 2 );
  $data = encode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 8 );
  $data = encode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 2 );
  $data = encode('UTF-16', $data);
  print OUTPUT "$data ";
  read (INPUT, $data, 32 );
 $data = encode('UTF-16', $data);
 print OUTPUT ": $data ";
 read (INPUT, $data, 2 );
 $data = encode('UTF-16', $data);
 print OUTPUT "$data \n";
}
close(INPUT);
close(OUTPUT);
}
 
open (OUTPUT, "sample.kbf");
binmode(OUTPUT);
while ($data=<OUTPUT>)
{
 read (INPUT, $data, 2 );
  $data = decode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 8 );
  $data = decode('UTF-16', $data);
 print OUTPUT "$data ";
 read (INPUT, $data, 2 );
  $data = decode('UTF-16', $data);
  print OUTPUT "$data ";
  read (INPUT, $data, 32 );
 $data = decode('UTF-16', $data);
 print OUTPUT ": $data ";
 read (INPUT, $data, 2 );
 $data = decode('UTF-16', $data);
 print "$data\n";
}
close(OUTPUT);
}
 
 

Thanks & Regard.
Lokiiii

Lokiiii,

Changing the subject of your posting, but including the same information, does not mean you are going to get a different answer.

As I mentioned in your last thread, you are going to have to examine the code of the other program you mentioned and find out exactly what it is doing to the data in order to duplicate it. Without that knowledge nobody will probably be able to assist you.

Regards,

Jeff

[lokeshrajoria]

Lokiiii,

Changing the subject of your posting, but including the same information, does not mean you are going to get a different answer.

As I mentioned in your last thread, you are going to have to examine the code of the other program you mentioned and find out exactly what it is doing to the data in order to duplicate it. Without that knowledge nobody will probably be able to assist you.

Regards,

Jeff

hello jeff,
hey this is not same quetion. before that i had asked about binary file. and i'd asked not making binary file because data coming same but here i made it binary file and data is not coming in binary by encoding technique but data not decoding... and earlier you don't about this and not now. if you know encoding/decoding so please give me answer except giving...perl.org encode


thanks & regards
Lokiiii