mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 02:04:44 +00:00
22 lines
604 B
QBasic
22 lines
604 B
QBasic
|
$CONSOLE
|
||
|
|
_DEST _CONSOLE
|
||
|
|
|
||
|
|
t$ = "QB64 Phoenix Edition"
|
||
|
|
PRINT " Text: "; t$
|
||
|
|
PRINT "Txt-Len: "; LTRIM$(STR$(LEN(t$)))
|
||
|
|
PRINT "-----------------------------------------"
|
||
|
|
PRINT "Adler32: "; RIGHT$("00000000" + HEX$(_ADLER32(t$)), 8)
|
||
|
|
PRINT " Crc32: "; RIGHT$("00000000" + HEX$(_CRC32(t$)), 8)
|
||
|
|
PRINT " Md5: "; _MD5$(t$)
|
||
|
|
PRINT
|
||
|
|
t$ = ""
|
||
|
|
PRINT " Text: "; t$
|
||
|
|
PRINT "Txt-Len: "; LTRIM$(STR$(LEN(t$)))
|
||
|
|
PRINT "-----------------------------------------"
|
||
|
|
PRINT "Adler32: "; RIGHT$("00000000" + HEX$(_ADLER32(t$)), 8)
|
||
|
|
PRINT " Crc32: "; RIGHT$("00000000" + HEX$(_CRC32(t$)), 8)
|
||
|
|
PRINT " Md5: "; _MD5$(t$)
|
||
|
|
|
||
|
|
SYSTEM
|
||
|
|
|