Posted to tcl by rhobart at Thu Aug 28 16:58:43 GMT 2025view pretty

set keybase64 "5PsuDIkvDUcI/z84TOdX3ulp/ePeYHklciGHnB33apo=" ; # from java secretkey
	set keyj [base64::decode $keybase64]
	puts "keyj length [string length $keyj]"
	
	set data64 "+PE2fqjbnXgFDgaxiiU6uA==" ; # encrypted by java secretkey
	set datad [base64::decode $data64]
	
	# method1
	set decryptdata [aes::aes -mode cbc -dir decrypt -key $keyj -iv $iv $datad]
	puts "decrypteddata: $decryptdata"
	
	# method2
	set keytcl [aes::Init cbc $keyj $iv]
	set msg [aes::Decrypt $keytcl $datad]
	aes::Final $keytcl
	puts "msg: $msg"