IB Statements/cryptosetkeyinfo - Revision history

Brian at 01:04, 7 June 2010

2010-06-07T01:04:07Z

← Older revision		Revision as of 01:04, 7 June 2010
Line 56:		Line 56:

	! For compatibility in other programs, when done reset algorithm back to old default (RC4)		! For compatibility in other programs, when done reset algorithm back to old default (RC4)
-	CryptoSetKeyInfo("", 0, "", "")	+	ErrResult$ = CryptoSetKeyInfo("", 0, "", "")
	Wait		Wait
	Endif		Endif

	Stop		Stop

Brian at 01:00, 7 June 2010

2010-06-07T01:00:40Z

← Older revision		Revision as of 01:00, 7 June 2010
Line 23:		Line 23:
	'''Example:'''		'''Example:'''

-	Length 24 & Local Key$	+	Set Algorithm$ = "3DES"
-	Length 8 & Local IV$	+	Set KeySize = 192 ! 3DES(168) requires 192 bits (parity bit is dropped)
		+	Set BlockSize = 8 ! 3DES block size is always 8
		+
		+	Length DYNAMIC & Local Key$
		+	Length DYNAMIC & Local IV$
	Length DYNAMIC & Local ErrResult$		Length DYNAMIC & Local ErrResult$
	Length DYNAMIC & Local Encr$, Decr$		Length DYNAMIC & Local Encr$, Decr$
Line 30:		Line 34:

	Print (cs);(et)		Print (cs);(et)
		+	Print "Testing: Algorithm: ";Algorithm$;", Key Size: ";KeySize;", Block Size: ";BlockSize
		+	Print ""
		+
	Print "Enter something to encrypt:"		Print "Enter something to encrypt:"
	Input Data$		Input Data$
	If (Data$ NE "")		If (Data$ NE "")
-	Key$ = CryptoGenerateRandom(24)! Generate a key	+	Key$ = CryptoGenerateRandom(KeySize/8) ! Generate a key
-	IV$ = CryptoGenerateRandom(8) ! Generate a IV	+	IV$ = CryptoGenerateRandom(BlockSize) ! Generate a IV

	! Pass info to crypto sub-system		! Pass info to crypto sub-system
-	ErrResult$ = CryptoSetKeyInfo(~~"3DES"~~, ~~192~~, Key$, IV$)	+	ErrResult$ = CryptoSetKeyInfo(Algorithm$, KeySize, Key$, IV$)
	If (ErrResult$ EQ "+OK")		If (ErrResult$ EQ "+OK")
	Encr$ = Encrypt(Data$, "")		Encr$ = Encrypt(Data$, "")

Brian at 00:54, 7 June 2010

2010-06-07T00:54:02Z

← Older revision		Revision as of 00:54, 7 June 2010
Line 1:		Line 1:
	= CryptoSetKeyInfo =		= CryptoSetKeyInfo =

-	Result$ = CryptoSetKeyInfo(~~Algorith~~$, KeyLength, Key$, IV$)	+	Result$ = CryptoSetKeyInfo(Algorithm$, KeyLength, Key$, IV$)
		+
		+	'''CryptoSetKeyInfo function'''
		+
		+	'''Syntax:''' result-string = CryptoSetKeyInfo(Algorithm$, KeySize, Key$, IV$)
		+
		+	'''Discussion:''' The CryptoSetKeyInfo function is used to specify an algorithm and all of the parameters required for use with the Encrypt/Decrypt functions. The result-string will return "+OK" if the function is successful or if a error occurs, "-ERR" followed by a description of the error.
		+
		+	'''Algorithms:''' The CryptoSetKeyInfo function currently supports 2 algorithms, 3DES and AES. Each of these algorithms has specific requirements as to the supported Key size and IV (Initial Vector) size as follows:
		+
		+	3DES - Triple Data Encryption Standard: [http://en.wikipedia.org/wiki/Triple_DES Wiki]
		+	*Key Size: 24 bytes (192 bits must be supplied although only 168 bits are used - parity bit is discarded).
		+	*IV Size: 8 Bytes
		+
		+	AES - Advanced Encryption Standard: [http://en.wikipedia.org/wiki/Advanced_Encryption_Standard Wiki]
		+	*Key Size: 16, 24, or 32 bytes (128, 192, 256 bits)
		+	*IV Size: 16 Bytes
		+
		+	'''History:''' This function is available in Comet32 only.
		+
		+	'''Example:'''
		+
		+	Length 24 & Local Key$
		+	Length 8 & Local IV$
		+	Length DYNAMIC & Local ErrResult$
		+	Length DYNAMIC & Local Encr$, Decr$
		+	Length DYNAMIC & Local Data$
		+
		+	Print (cs);(et)
		+	Print "Enter something to encrypt:"
		+	Input Data$
		+	If (Data$ NE "")
		+	Key$ = CryptoGenerateRandom(24)! Generate a key
		+	IV$ = CryptoGenerateRandom(8) ! Generate a IV
		+
		+	! Pass info to crypto sub-system
		+	ErrResult$ = CryptoSetKeyInfo("3DES", 192, Key$, IV$)
		+	If (ErrResult$ EQ "+OK")
		+	Encr$ = Encrypt(Data$, "")
		+	Decr$ = Decrypt(Encr$, "")
		+
		+	Print "Before:";Data$
		+	Print "After:";Decr$
		+	Else
		+	Print "CryptoSetKeyInfo failed: ";ErrResult$
		+	EndIf
		+
		+	! For compatibility in other programs, when done reset algorithm back to old default (RC4)
		+	CryptoSetKeyInfo("", 0, "", "")
		+	Wait
		+	Endif
		+
		+	Stop

Brian: New page: = CryptoSetKeyInfo = Result$ = CryptoSetKeyInfo(Algorith$, KeyLength, Key$, IV$)

2010-06-06T23:11:59Z

New page: = CryptoSetKeyInfo = Result$ = CryptoSetKeyInfo(Algorith$, KeyLength, Key$, IV$)

New page

= CryptoSetKeyInfo =

Result$ = CryptoSetKeyInfo(Algorith$, KeyLength, Key$, IV$)