libcrash: cryptographic hash functions

git-svn-id: svn://kolibrios.org@3115 a494cfbc-eb01-0410-851d-a64ba20cac60
2012-12-15 17:23:23 +00:00
parent 8f354bd99d
commit 595e11fbff
9 changed files with 1613 additions and 0 deletions
--- a/programs/develop/libraries/libcrash/trunk/crashtest.asm
+++ b/programs/develop/libraries/libcrash/trunk/crashtest.asm
@@ -0,0 +1,147 @@
+use32
+    org 0x0
+    db  'MENUET01'
+    dd  0x01,start,i_end,e_end,e_end,0,0
+
+include '../../../../proc32.inc'
+include '../../../../macros.inc'
+include '../../../../dll.inc'
+;include '../../../../debug.inc'
+include '../../../../develop/libraries/libs-dev/libio/libio.inc'
+include 'libcrash.inc'
+BUFFER_SIZE	= 8192
+
+
+start:
+	mcall	68, 11
+
+	stdcall dll.Load, @IMPORT
+	or	eax, eax
+	jnz	quit
+
+	invoke	file.open, input_file, O_READ
+	or	eax, eax
+	jz	quit
+	mov	[fh], eax
+
+	invoke	file.size, input_file
+	mov	[file_len], ebx
+
+	stdcall mem.Alloc, ebx
+	or	eax, eax
+	jz	quit
+	mov	[file_data], eax
+
+	invoke	file.read, [fh], eax, [file_len]
+	cmp	eax, -1
+	je	quit
+	cmp	eax, [file_len]
+	jne	quit
+
+	invoke	file.close, [fh]
+	inc	eax
+	jz	quit
+	
+	stdcall	mem.Free, [file_data]
+	test	eax, eax
+	jz	quit
+
+
+	invoke	crash.hash, LIBCRASH_SHA512, hash, data_buffer, 0, update_data_buffer, msglen
+	invoke	crash.bin2hex, hash, hex, LIBCRASH_SHA512
+
+
+still:
+	mcall	10
+	dec	eax
+	jz	redraw
+	dec	eax
+	jz	key
+
+button:
+	mcall	17
+	shr	eax, 8
+
+	cmp	eax, 1
+	je	quit
+
+redraw:
+	mcall	12, 1
+	mcall	0, <0,800>, <0,100>, 0x34000000, 0x80000000, window_title
+
+	mcall	4, 0, 0x40ffffff, hex, 128, 0
+
+	mcall	12, 2
+	jmp	still
+
+key:
+	mcall	2
+	jmp	still
+
+
+quit:
+	mcall	-1
+
+
+proc update_data_buffer
+	mcall	70, f70_buf
+	mov	eax, ebx
+	cmp	eax, -1
+	jne	@f
+	inc	eax
+    @@:
+	add	dword[f70_buf + 4], BUFFER_SIZE
+	ret
+endp
+
+
+szZ window_title		,'libcrash example'
+
+sz msg_few_args		, '2 arguments required',0x0a
+sz msg_bad_hash_type	, 'invalid hash type',0x0a
+sz msg_file_not_found	, 'file not found: '
+
+input_file	db '/hd0/1/crashtest',0
+
+f70_buf:
+	funcnum	dd 0
+	src	dd 0
+	res1	dd 0
+	count	dd BUFFER_SIZE
+	dst	dd data_buffer
+	res2	db 0
+	fname	dd input_file
+
+align 4
+@IMPORT:
+
+library				  \
+	libio	, 'libio.obj'	, \
+	libcrash, 'libcrash.obj'
+
+import	libio				, \
+	libio.init     , 'lib_init'	, \
+	file.size      , 'file_size'	, \
+	file.open      , 'file_open'	, \
+	file.read      , 'file_read'	, \
+	file.close     , 'file_close'
+
+import	libcrash			, \
+	libcrash.init  , 'lib_init'	, \
+	crash.hash     , 'crash_hash'	, \
+	crash.bin2hex  , 'crash_bin2hex'
+
+i_end:
+hash		rd 16
+msglen		rd 1
+fd		rd 1
+fh		rd 1
+data_length	rd 1
+hex		rb 1024
+data_buffer	rb BUFFER_SIZE
+file_data	rd 1
+file_len	rd 1
+
+rb 0x400					;stack
+e_end:
+