PowerShellでファイルダンプコマンドを作る(その2)

続きです。
前回ダンプしたファイルはサイズが小さかったので、もう少し大きいサイズのファイルを作ります。40 Byteです。

PS C:\Users\takk\tmp> [byte[]]$a = 1..40
PS C:\Users\takk\tmp> sc -value $a -encoding byte a.bin
PS C:\Users\takk\tmp>

このファイルを、前回の手順で16進ダンプするなら、

PS C:\Users\takk\tmp> $c=(gc -encoding byte a.bin | % { '{0:x2}' -f $_ })
PS C:\Users\takk\tmp> for($i=0;$i -le $c.length;$i+=16){
>> $b=$c[$i..($i+15)]
>> $b -join " "
>> }
>>
01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10
11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20
21 22 23 24 25 26 27 28
PS C:\Users\takk\tmp>

こうですね。
まあ、あとはこれを関数化すれば良いのですが、どうにもすっきりしません。
なんだか配列の取得が下手です。取得したい要素を指定して分割なんてことはできないのでしょうか。

PowerShellではできなさそうなので、foreachを使って回すことにしました。
関数化もしてしまいましょう。

PS C:\Users\takk\tmp> function dump($dat){
>> foreach($m in $dat){
>> [byte[]]$arr += $m
>> if($arr.count -eq 16){$arr -join " "; $arr=@()}
>> }
>> $arr -join " "
>> }
>>
PS C:\Users\takk\tmp> 

これはこれで$arrをjoinして表示している箇所が2箇所あるので気にいらないのですが、まだこちらの方がきれいに見えます。好みでしょう。

適当に配列を作って、ダンプ関数を実行してみます。

PS C:\Users\takk\tmp> [byte[]]$bin=1..30
PS C:\Users\takk\tmp> dump $bin
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24 25 26 27 28 29 30
PS C:\Users\takk\tmp> $bin=1..100
PS C:\Users\takk\tmp> dump $bin
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96
97 98 99 100
PS C:\Users\takk\tmp>

なかなかいいですね。

表示する時に、16進への変換もしてしまいましょう。

PS C:\Users\takk\tmp> function dump($dat){
>> $arr=@()
>> foreach($m in $dat){
>> $arr += "{0:x2}" -f $m
>> if($arr.count -eq 16){$arr -join " "; $arr=@()}
>> }
>> $arr -join " "
>> }
>>
PS C:\Users\takk\tmp> dump $bin
01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10
11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20
21 22 23 24 25 26 27 28 29 2a 2b 2c 2d 2e 2f 30
31 32 33 34 35 36 37 38 39 3a 3b 3c 3d 3e 3f 40
41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50
51 52 53 54 55 56 57 58 59 5a 5b 5c 5d 5e 5f 60
61 62 63 64
PS C:\Users\takk\tmp>

16進変換できました。

ファイルダンプするためdump関数に与える引数はファイル名にします。

PS C:\Users\takk\tmp> function dump($fname){
>> $arr=@()
>> foreach($m in (gc -encoding byte $fname)){
>> $arr += "{0:x2}" -f $m
>> if($arr.count -eq 16){$arr -join " "; $arr=@()}
>> }
>> $arr -join " "
>> }
>>
PS C:\Users\takk\tmp> dump a.bin
01 02 03 04 05 06 07 08 09 0a 0b 0c 0d 0e 0f 10
11 12 13 14 15 16 17 18 19 1a 1b 1c 1d 1e 1f 20
21 22 23 24 25 26 27 28
PS C:\Users\takk\tmp>

出来上がりです。

コメント

タイトルとURLをコピーしました