File Hex viewer

This code has been declared by its author to be Public Domain code.

File Hex viewer by MusicianKool

2010

very very simple viewer. Arrows move down the file, pageup and pagedown do too, and mouse button3 also.

Graphics 800,600,32,2
SetBuffer BackBuffer()
Global Path$ = "C:\Program Files\Blitz3D\bin"
Global FileName$ = "debugger.dll"
filesz = FileSize(Path + "\" + FileName)
Global File1 = ReadFile(Path + "\" + FileName)
fs = filesz
Local LinesPerPage,LPP,TSeek,TMemAddr,MemAddr,LinesPerPageMax,ColumsMax,Colums
LinesPerPageMax = 40
LinesPerPage = LinesPerPageMax
ColumsMax = 16
Colums = 16
LPP = 0

While Not KeyDown(1)
	Locate 0,0
	Cls
	
	MemAddr = TMemAddr
	If TSeek = 0 Then 
		LPP = 0
	Else
		LPP = TLPP
	EndIf
	TMemAddr = MemAddr
	
	If (KeyDown(29) + KeyDown(199)) = 2 Then LPP = 0:TSeek = 0:TMemAddr = 0:LinesPerPage = LinesPerPageMax
	
	If (KeyDown(208)) Then LPP = LPP+Colums:LinesPerPage = LinesPerPage + Colums:TSeek = TSeek + Colums: TMemAddr = TMemAddr+Colums
	If (KeyDown(200)) Then
		If LPP > 0 Then LPP=LPP - Colums
		If LinesPerPage > LinesPerPageMax Then LinesPerPage=LinesPerPage-colums
		If TSeek > 0 Then TSeek=TSeek-colums
		If TMemAddr > 0 Then TMemAddr=TMemAddr-colums
	EndIf
	If (KeyDown(209)) Then 
		LPP = LPP + LinesPerPageMax
		LinesPerPage = LinesPerPage + LinesPerPageMax
		TSeek = TSeek + LinesPerPageMax
		TMemAddr = TMemAddr + LinesPerPageMax
	EndIf
	If (KeyDown(201)) Then
		If LPP- LinesPerPageMax > 0 Then LPP=LPP- LinesPerPageMax
		If LinesPerPage- LinesPerPageMax > LinesPerPageMax Then LinesPerPage=LinesPerPage- LinesPerPageMax
		If TSeek- LinesPerPageMax > 0 Then TSeek=TSeek- LinesPerPageMax
		If TMemAddr- LinesPerPageMax > 0 Then TMemAddr=TMemAddr- LinesPerPageMax
	EndIf
	If MouseDown(3) And md = False Then
		my = MouseY()
		md = True
	EndIf
	If MouseDown(3) And md = True Then
		mys = MouseY()-my
		If LPP+Colums*mys> 0 Then
			If LPP+Colums*mys<fs Then
				LPP = LPP+Colums*mys
			EndIf
		EndIf
		If LinesPerPage + Colums*mys > 0 Then
			If LinesPerPage + Colums*mys <fs Then
				LinesPerPage = LinesPerPage + Colums*mys
			EndIf
		EndIf
		If TSeek + Colums*mys > 0 Then
			If TSeek + Colums*mys <fs Then
				TSeek = TSeek + Colums*mys
			EndIf
		EndIf
		If TMemAddr+Colums*mys > 0 Then
			If TMemAddr+Colums*mys <fs Then
				TMemAddr = TMemAddr+Colums*mys
			EndIf
		EndIf
	EndIf
	If Not MouseDown(3) Then
		md = False
	EndIf
	SeekFile(File1,TSeek)
	TSeek = FilePos(File1)
	TLPP = LPP
	
	Color 255,255,255
	AdrBar$ = ""
	Text 0,1,"Address |"
	mi = 8
	For i = 0 To Colums-1
		Text mi*9,1,Right$(Hex(i),2)+" |":mi = mi + 4
	Next
	Text mi*9,1,"   Text"
	Text 0,13,"----------------------------------------------------------------------------------------"
	
	tl = 2
	While Eof(File1) <> True And LPP <= LinesPerPage
		s_a$ = "":s_c$ = ""
		Color 255,255,255
		mi = 8
		Text 0,13*TL, Hex(MemAddr) + "|"
		For i = 0 To colums-1
			If Not Eof(File1) Then 
				b1 = ReadByte (File1)
				Color 255-b1,b1,0;255-b1
				Text mi*9,13*tl,Right$(Hex(b1),2)
				Color 255,255,255
				mi = mi + 2
				Text mi*9,13*tl," |"
				mi = mi + 2
				s_c$ = s_c$+Chr(b1)
				tb2 = tb1
				tb1 = b1
			EndIf	
		Next
		Text mi*9,13*TL, s_c$
		MemAddr = MemAddr + colums
		LPP = LPP+ 1
		tl = tl + 1
	Wend
	Text 0,13*tl,"File Size: " + fileSz:tl = tl + 1
	Text 0,13*tl,"File Pos: " + (TSeek)
	
	Flip 1
	
Wend

WaitKey()
CloseFile(File1)

...

Comments

Charrua

2010

nice tool
i love the classic debug dump view!

juan

Code Archives Forum