Homepage : http://drizz.t35.comDescription:
Functions for number of crytographic, hash, and checksum algorithms.
Hashes: md4, md2, rmd128, rmd160, rmd256, rmd320, sha0, sha1, sha256, sha384, sha512, tiger, whirlpool haval, md5
Checksums: crc32, crc16, adler
Ciphers: tea, xtea, rc2, rc4, rc5, rc6, blowfish, 3-Way rijndael, DES
Written in ASM, source code included.
Code: Select all
; HASHES
; ======
#MD5_DIGESTSIZE = (128/8)
#MD4_DIGESTSIZE = (128/8)
#MD2_DIGESTSIZE = (128/8)
#RMD128_DIGESTSIZE = (128/8)
#RMD160_DIGESTSIZE = (160/8)
#RMD256_DIGESTSIZE = (256/8)
#RMD320_DIGESTSIZE = (320/8)
#SHA0_DIGESTSIZE = (160/8)
#SHA1_DIGESTSIZE = (160/8)
#SHA256_DIGESTSIZE = (256/8)
#SHA384_DIGESTSIZE = (384/8)
#SHA512_DIGESTSIZE = (512/8)
#WHIRLPOOL_DIGESTSIZE = (512/8)
#TIGER_DIGESTSIZE = (192/8)
Import "cryptohash.lib"
md5init () As "_MD5Init@0"
md5Update ( text$, len.l ) As "_MD5Update@8"
md5Final () As "_MD5Final@0"
HexEncode ( text$, type.l, Out$) As "_HexEncode@12"
HexDecode ( text$, out$ ) As "_HexDecode@8"
rc6init ( text$, len.l ) As "_RC6Init@8"
rc6encrypt ( in$, out$ ) As "_RC6Encrypt@8"
rc6decrypt ( in$, out$ ) As "_RC6Decrypt@8"
xteainit ( text$, type.l ) As "_XTEAInit@8"
xteaencrypt ( in$, out$ ) As "_XTEAEncrypt@8"
xteadecrypt ( in$, out$ ) As "_XTEADecrypt@8"
blowfishinit ( text$, len.l ) As "_BlowfishInit@8"
blowfishencrypt ( in$, out$ ) As "_BlowfishEncrypt@8"
blowfishdecrypt ( in$, out$ ) As "_BlowfishDecrypt@8"
threewayinit ( text$ ) As "_ThreeWayInit@4"
threewayencrypt ( in$, out$ ) As "_ThreeWayEncrypt@8"
threewaydecrypt ( in$, out$ ) As "_ThreeWayDecrypt@8"
EndImport
;key$ = "KeyUsed To Encrypt _+=)( 2000 Needs To Be Very Very Long &^$#@ Especially Since We Will Not Use *() it All aqnd we will also add some garbage at the end"
key$ = "Key Used To Encrypt the various techniques"
text$ = "the string to be encoded man"
out1$ = Space ( 256 )
out2$ = Space ( 256 )
len.l = Len ( key$ )
Debug "===="
Debug "3Way"
Debug "===="
len = Len ( key$ )
;len = 10
threewayinit ( key$ )
Debug "Key: " + key$
threewayencrypt ( text$, out1$ )
Debug "out1: " + out1$
threewaydecrypt ( out1$, out2$ )
Debug "out2: " + out2$
Debug "========"
Debug "BlowFish"
Debug "========"
len = Len ( key$ )
;len = 10
blowfishinit ( key$, len )
Debug "Key: " + key$
blowfishencrypt ( text$, out1$ )
Debug "out1: " + out1$
blowfishdecrypt ( out1$, out2$ )
Debug "out2: " + out2$
Debug "==============="
Debug "MD5 / HexEncode"
Debug "==============="
md5Init ()
md5Update ( key$, len )
*ptr = MD5Final ()
temp.s = PeekS ( *ptr )
Debug "temp: " + temp
HexEncode ( Key$, len, out1$ )
Debug "out1: " + out1$
Debug "==="
Debug "rc6"
Debug "==="
test.s = "LetsSeeIfThisWorks00"
rc6init ( test, Len (test) )
rc6encrypt ( "My test encryption too", out1$ )
Debug "out1: " + out1$
rc6decrypt ( out1$, out2$ )
Debug "out2: " + out2$
Debug "Key Again: " + key$
Debug "===="
Debug "XTEA"
Debug "===="
len = 8
xteainit ( key$, len )
xteaencrypt ( text$, out1$ )
xteadecrypt ( out1$, out2$ )
Debug "out1: " + out1$
Debug "out2: " + out2$
