HMAC SHA256 Encryption

[mind1]

Hallo,

ich suche schon seit ein paar Tagen nach einem Ansatz zur Verschlüsselung per Lotus Script. Es geht dabei um eine HMAC SHA256- Verschlüsselung, von der es z.B. in Javascript und PHP Librories gibt. Bei LS habe ich noch nichts finden können.
Die base64.lss habe ich bereits für andere Dinge eingebunden. Geht es evtl damit? Habe leider keine ausführliche Beschreibung dafür.

Wer weiss was?

Vielen Dank!

Gruss, Bernd

[pram]

Schau dir mal die "advapi32.dll" an.
http://www.activevb.de/cgi-bin/forenarchive/forenarchive.pl?a=0&b=b&d=94102&e=1
hab damit mal eine MD5 Verschlüsselung gemacht, sollte sich aber auch einfach auf andere Algos umstellen lassen.
http://msdn.microsoft.com/en-us/library/aa380252%28VS.85%29.aspx
http://www.activevb.de/cgi-bin/apiwiki/CryptCreateHash

Gruß
Roland

Edit: habs letztendlich doch ein bisschen anders gemacht.

Code

Option Public
 
Option Declare
Private Const MD5_BUF_SIZE = 16384
 
Private Type MD5_CTX
	i		(1 To 2) As Long
	buf		(1 To 4) As Long
	inp		(1 To 64) As Byte
	digest	(1 To 16) As Byte
End Type
 
Private Type MD5_BUFFER
	buffer	(1 To MD5_BUF_SIZE) As Byte
End Type
 
Declare Private Function w32_CreateFile 	Lib "kernel32.dll" Alias "CreateFileA" ( _
Byval lpFileName As Lmbcs String,		_
Byval dwDesiredAccess As Long,		_
Byval dwShareMode As Long,			_
Byval lpSecurityAttributes As Long,	_
Byval dwCreationDisposition As Long,	_
Byval dwFlagsAndAttributes As Long,	_
Byval hTemplateFile) As Long
 
Declare Private Function w32_ReadFile 		Lib "kernel32.dll" Alias "ReadFile" 	(Byval hFile As Long,  buffer As MD5_BUFFER, Byval toRead As Long, readBytes As Long, Byval overlap As Long) As Long
Declare Private Function w32_CloseHandle 	Lib "kernel32.dll" Alias "CloseHandle"	(Byval hFile As Long) As Integer
 
Declare Private Sub 	w32_MD5Init 		Lib "advapi32.dll" Alias "MD5Init" 	(Context As MD5_CTX)
Declare Private Sub 	w32_MD5Update 		Lib "advapi32.dll" Alias "MD5Update"	(Context As MD5_CTX, buffer As MD5_BUFFER, Byval lLen As Long)
Declare Private Sub 	w32_MD5Final 		Lib "advapi32.dll" Alias "MD5Final"	(Context As MD5_CTX)
 
Public Function MD5ofFile(fileName As String) As String
	Dim hFile 	As Long			' file handle
	Dim buffer 	As MD5_BUFFER
	Dim readBytes 	As Long
	Dim ctx 		As MD5_CTX
	' open the file handle
	hFile = w32_CreateFile(fileName, _
	&H80000000,	_ ' GENERIC_READ
	1,			_ ' FILE_SHARE_READ
	0,			_
	3,			_ ' OPEN_EXISTING
	&H80,		_ ' FILE_ATTRIBUTE_NORMAL
	0)
	
	If hFile = -1 Then
		Error 10, "Unable to open " + fileName
	End If
	
	Call w32_MD5init(ctx)
	Do While w32_readFile(hFile, buffer, MD5_BUF_SIZE, readBytes, 0)
		If readBytes = 0 Then Exit Do
		Call w32_MD5update(ctx, buffer, readBytes)		
	Loop
	Call w32_MD5final(ctx)
	w32_CloseHandle(hFile)
	Dim i%, ret$
	For i = 1 To 16
		ret = ret + Right("0" + Hex(ctx.digest(i)),2)
	Next
	MD5ofFile = Lcase(ret)
	
End Function 

Es gibt in der DLL auch eine A_SHAinit/update/final. Ich denke das könnte das sein was du suchst