wqweto’s gists

wqweto / mdArgon2.bas

Last active November 18, 2022 19:34

[VB6/VBA] Argon2 KDF implementation for password hashing

	'--- mdArgon2.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)
	#Const DebugMode = False

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

wqweto / mdBlake2b.bas

Last active November 18, 2022 08:57

[VB6/VBA] BLAKE2 and BLAKE3 hash functions and MAC

	'--- mdBlake2b.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	Private Declare PtrSafe Sub FillMemory Lib "kernel32" Alias "RtlFillMemory" (Destination As Any, ByVal Length As LongPtr, ByVal Fill As Byte)

wqweto / mdRipeMd160.bas

Created November 1, 2022 20:01

[VB6/VBA] Pure VB6 implementation of RIPEMD-160 hash

	'--- mdRipeMd160.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

wqweto / mdScryptKdf.bas

Last active November 18, 2022 08:55

[VB6/VBA] Scrypt KDF implementation of RFC 7914

	'--- mdScryptKdf.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

wqweto / mdSha1.bas

Last active October 31, 2022 16:51

[VB6/VBA] Pure VB6 implementation or SHA-1 hash

	'--- mdSha1.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

wqweto / mdBase64.bas

Last active November 18, 2022 08:52

[VB6/VBA] Simple base64 encoding and decoding by API functions

	'--- mdBase64.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0) Or (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Function CryptBinaryToString Lib "crypt32" Alias "CryptBinaryToStringW" (ByVal pbBinary As LongPtr, ByVal cbBinary As Long, ByVal dwFlags As Long, ByVal pszString As LongPtr, pcchString As Long) As Long
	Private Declare PtrSafe Function CryptStringToBinary Lib "crypt32" Alias "CryptStringToBinaryW" (ByVal pszString As LongPtr, ByVal cchString As Long, ByVal dwFlags As Long, ByVal pbBinary As LongPtr, pcbBinary As Long, Optional ByVal pdwSkip As Long, Optional ByVal pdwFlags As Long) As Long
	#Else

wqweto / md5.bas

Last active January 20, 2025 03:26

[VB6/VBA] Pure VB6 implementation of MD5 hash for the grins :-))

	'--- md5.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

wqweto / mdChaCha20Poly1305.bas

Last active February 20, 2023 09:44

[VB6/VBA] Pure VB6 implementation of ChaCha20-Poly1305 authenticated encryption

	'--- mdChaCha20Poly1305.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	#Else

wqweto / mdCurve25519.bas

Last active February 14, 2025 14:51

[VB6/VBA] X25519 for ECDH key exchange and Ed25519 for EdDSA signatures

	'--- mdCurve25519.bas
	Option Explicit
	DefObj A-Z

	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasSha512 = (CRYPT_HAS_SHA512 <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
	Private Declare PtrSafe Function RtlGenRandom Lib "advapi32" Alias "SystemFunction036" (RandomBuffer As Any, ByVal RandomBufferLength As Long) As Long

wqweto / mdSha2.bas

Last active April 17, 2023 07:22

[VB6/VBA] Pure VB6 implementation of SHA-224, SHA-256, SHA-384, SHA-512, SHA-512/256 and SHA-512/224 incl. HMAC

	'--- mdSha2.bas
	Option Explicit
	DefObj A-Z

	#Const HasSha512 = (CRYPT_HAS_SHA512 <> 0)
	#Const HasPtrSafe = (VBA7 <> 0)
	#Const HasOperators = (TWINBASIC <> 0)

	#If HasPtrSafe Then
	Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

Vladimir Vissoultchev wqweto