2013/08/18 3

이진 파일을 읽어서 16진수로 보여주는 HexView 소스 with Scala

Scala 언어 소스: /* * Filename: testHexView_03.scala * * Purpose: Show the hexadecimal values of the given file. * * Compile: scalac -deprecation -d . testHexView_03.scala * Execute: scala testHexView_03 [filename] * * Date: 2013. 8. 18. */ import java.io._ object testHexView_03 { def printUsage() { println("Usage: scala testHexView_03 [filename]") } def toHex(n: Int) : String = { var s = "" var x1 ..

이진 파일을 읽어서 16진수로 보여주는 HexView 소스 with F#

F# 언어 소스: (* Filename: testHexView_02.fs * * Compile: fsc testHexView_02.fs * Execute: testHexView_02 [filename] * * Date: 2013. 8. 18. *) open System open System.IO let Value (c:char) = (int c) - (int 'A') + 1 let toHex n = let mutable s = "" let x1 = (n &&& 0xF0) >>> 4 let x2 = n &&& 0xF if x1 > 24 let x3 = (n &&& 0xF00000) >>> 20 let x4 = (n &&& 0xF0000) >>> 16 let x5 = (n &&& 0x..

프로그래밍/F# 2013.08.18

이진 파일을 읽어서 16진수로 보여주는 HexView 소스 with Octave

Octave 언어 소스: % Filename: testHexView_02.m % % Execute: octave -qf testHexView_02.m [filename] % % Date: 2013. 8. 18. function printUsage() printf("Usage: octave -qf testHexView_02.m [filename]\n"); endfunction function y = getFileSize(fd) n = ftell(fd); fseek(fd, 0, SEEK_END); x = ftell(fd); fseek(fd, n, SEEK_SET); y = x; endfunction function y = toHex(n) s = ""; x1 = bitshift(bitand(n, 0xF0), ..