WD The Hash functions - Criptografia - Crypt
// External file of Windows constants
EXTERN "WinConst.wl"
// ----------------------------------------------------------------
// --------------------- GLOBAL VARIABLES -----------------------
// ----------------------------------------------------------------
garrAlgo is array dynamic of 0 by 3 strings
COLOR_FUNCTION is int = RGB(49,106,197)
COLOR_Var is int = iDarkGreen
COLOR_STRING is int = iDarkMagenta
// Enables the ability to perform a Drag and Drop from the Windows explorer to
// a WINDEV application
ExplorerAccept(True,"")
Event("GetFiles","*.*",WM_DROPFILES)
// Initialize the table of integers
ArrayAddLine(garrAlgo,"MD5 family","HA_MD5_128",HA_MD5_128)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_160",HA_SHA_160)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_256",HA_SHA_256)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_384",HA_SHA_384)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_512",HA_SHA_512)
ArrayAddLine(garrAlgo,"RIPEMD family","HA_RIPEMD_128",HA_RIPEMD_128)
ArrayAddLine(garrAlgo,"RIPEMD family","HA_RIPEMD_160",HA_RIPEMD_160)
ArrayAddLine(garrAlgo,"TIGER family","HA_SHA_160",HA_SHA_160)
ArrayAddLine(garrAlgo,"TIGER family","HA_TIGER_160",HA_TIGER_160)
ArrayAddLine(garrAlgo,"TIGER family","HA_TIGER_192",HA_TIGER_192)
ArrayAddLine(garrAlgo,"WHIRLPOOL family","HA_WHIRLPOOL",HA_WHIRLPOOL)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_8",HA_CKSUM_8)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_16",HA_CKSUM_16)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_32",HA_CKSUM_32)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_64",HA_CKSUM_64)
---------------------------------------------------------------------------------------------------------------------------------------
// External file of Windows constants
EXTERN "WinConst.wl"
// ----------------------------------------------------------------
// --------------------- GLOBAL VARIABLES -----------------------
// ----------------------------------------------------------------
garrAlgo is array dynamic of 0 by 3 strings
COLOR_FUNCTION is int = RGB(49,106,197)
COLOR_Var is int = iDarkGreen
COLOR_STRING is int = iDarkMagenta
// Enables the ability to perform a Drag and Drop from the Windows explorer to
// a WINDEV application
ExplorerAccept(True,"")
Event("GetFiles","*.*",WM_DROPFILES)
// Initialize the table of integers
ArrayAddLine(garrAlgo,"MD5 family","HA_MD5_128",HA_MD5_128)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_160",HA_SHA_160)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_256",HA_SHA_256)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_384",HA_SHA_384)
ArrayAddLine(garrAlgo,"SHA family","HA_SHA_512",HA_SHA_512)
ArrayAddLine(garrAlgo,"RIPEMD family","HA_RIPEMD_128",HA_RIPEMD_128)
ArrayAddLine(garrAlgo,"RIPEMD family","HA_RIPEMD_160",HA_RIPEMD_160)
ArrayAddLine(garrAlgo,"TIGER family","HA_SHA_160",HA_SHA_160)
ArrayAddLine(garrAlgo,"TIGER family","HA_TIGER_160",HA_TIGER_160)
ArrayAddLine(garrAlgo,"TIGER family","HA_TIGER_192",HA_TIGER_192)
ArrayAddLine(garrAlgo,"WHIRLPOOL family","HA_WHIRLPOOL",HA_WHIRLPOOL)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_8",HA_CKSUM_8)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_16",HA_CKSUM_16)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_32",HA_CKSUM_32)
ArrayAddLine(garrAlgo,"CKSUM family","HA_CKSUM_64",HA_CKSUM_64)