On Wed, 17 Mar 2010 23:10:34 +0000, Champ <(E-Mail Removed)> wrote:
>On Wed, 17 Mar 2010 15:42:06 GMT, "Jérémy" <(E-Mail Removed)> wrote:
>
>>>>> 01000110011101010110001101101011001000000111100101 10
>>>>> 11110111010100101100001000000111100101101111011101 01
>>>>> 00100000011001100111010101100011011010110110100101 10
>>>>> 11100110011100100000011001100111010101100011011010 11
>>>>
>>>>Oi! No binaries!
>>>
>>> I was rather hoping someone might figure out what it said...
>>
>>I'm working on it. No parity bit, one stop bit, 8-bit EBCDIC, right? I'm
>>going to need another napkin, but so far it looks like it might be in
>>Turkish.
>
>As Ace says - what? EBCDIC? What is this, the 70s?
Fooking cheater. It only takes a few lines of code:
data;
x='01000110011101010110001101101011001000000111100 10110111101110101001011000010000001111001011011110 11101010010000001100110011101010110001101101011011 01001011011100110011100100000011001100111010101100 01101101011'
;
length eights1-eights30 $ 8 ;
length c $ 30 ;
array eights eights1-eights30 ;
do i = 1 to ((length(x)/8)) ;
eights(i)=substr(x,(i*8-7),8) ;
p=input(eights(i),binary8.) ;
substr(c,i,1)=byte(p);
end;
E=put(c,$EBCDIC34.) ;
put c= e= ;
run;
>
>Just google for a binary -> text converter. It's what I did (in
>reverse) to create it in the first place.
|