Comparison error
Posted: Thu Jun 05, 2025 6:26 pm
Code: Select all
UseCRC32Fingerprint()
x = $09E2A088
s.s = Fingerprint(@x, SizeOf(x), #PB_Cipher_CRC32)
CRC32.l = Val("$"+s)
If CRC32 = Val("$"+s)
Debug "OK"
Else
Debug "Bug"
EndIfhttp://www.purebasic.com
https://www.purebasic.fr/english/
Code: Select all
UseCRC32Fingerprint()
x = $09E2A088
s.s = Fingerprint(@x, SizeOf(x), #PB_Cipher_CRC32)
CRC32.l = Val("$"+s)
If CRC32 = Val("$"+s)
Debug "OK"
Else
Debug "Bug"
EndIfCode: Select all
CRC32 = Val("$"+s) ; --> OK
CRC32.q = Val("$"+s) ; --> OKPB-Help wrote:Val() converts a string into a quad numeric value.
Code: Select all
UseCRC32Fingerprint()
Macro ULongToSInt(x)
($FFFFFFFF & x)
EndMacro
x = $09E2A088
s.s = Fingerprint(@x, SizeOf(x), #PB_Cipher_CRC32)
CRC32.l = Val("$"+s)
If ULongToSInt(CRC32) = Val("$"+s)
Debug "OK"
Else
Debug "Bug"
EndIf