AES-128 Encryption

[mumfie]

Re: AES-128 Encryption

Hi Colin,

Thanks for the link. As this is all in VB and we are using Xbasic, could you please help with a little translation.



Please let me know if you require any further info.

Dont worry about the test page to Sage, we have that set up.

Hi Keith,
the link I provided indicates you can probably use the SagePay .net dll to do the encryption etc using xBasic .net integration.

If you download the .NET developer kit from SagePay it includes a dll SagePay.IntegrationKit.DotNet.dll
This DLL provides methods to encrypt and decrypt.
The ASP.NET sample website provided by SagePay with the .net developers kit has a c# class SagePayFormIntegration.cs
this calls the encrypt and decrypt methods using

   formPayment.Crypt = Cryptography.EncryptAndEncode(RequestQueryString, SagePaySettings.EncryptionPassword);

   string cryptDecoded = Cryptography.DecodeAndDecrypt(crypt, SagePaySettings.EncryptionPassword);

I have not tested it but I suspect you could easily convert this to call these same methods from xbasic following the alpha help documentation and related forum posts.
e.g
http://wiki.alphasoftware.com/.NET+F...+in+Version+11
http://www.alphasoftware.com/alphafo...=assy.filename
http://www.alphasoftware.com/blog/al...t-web-service/

I will take a look if I get time later.

[Terrymorgan]

Re: AES-128 Encryption

Hi Ken
There are many node js example codes available on the web and I have watched the videos, but I have been unable to figure out if the node js need some change or how to pass the encrypt or decrypt, the input string & the key into the node and also how to get back the result string.
I have been able to write some working node js myself but very simple & cannot combine my limited capabilities with the codes available on the web.
A number of us need someone to crack this bit for us.
Btw I have also contacted Alpha success hours mentoring and am waiting a response.
Thanks to all that have given responses so far on this.
Terry

[mumfie]

Re: AES-128 Encryption

Here is a very simple xBasic desktop demo example which appears to work but has not been tested extensively and use is at own risk.
This uses the .NET dll you can download from SagePay.

FUNCTION SagePayDemo AS C ( )
	'SagePay test encryption
	'
	Dim Sv as DotNet::Services
	Dim Assy as DotNet::AssemblyReference
	Dim Namespace as C = "SagePayNamespace"
	Assy.FileName = "E:\SagePay\SagePay.IntegrationKit.DotNet.dll"
	if .not. file.exists(assy.filename) then
		ui_msg_box("","File not there.")
		END
	end if
	rs = sv.RegisterAssembly(NameSpace,Assy)
	if .not. rs then
		UI_Msg_Box("Error registering assembly " + Assy.fileName, sv.CallResult.Text)
		End
	End if
	
	dim SagePayCrypto as SagePayNamespace::SagePay::IntegrationKit::Cryptography
	dim strPassword as c="8JQc4w5MUsZ47Z8z"
	dim strDecodedResult as c="This is a very very secret piece of data!"
	dim strEncryptedResult as c=""
	showvar(strDecodedResult,"Original value")
	strEncryptedResult =SagePayCrypto.EncryptAndEncode(strDecodedResult,strPassword)
	showvar(strEncryptedResult,"Encrypted value")
	strDecodedResult="any old value"
	strDecodedResult=SagePayCrypto.DecodeAndDecrypt(strEncryptedResult,strPassword)
	showvar(strDecodedResult,"Decoded value")
END FUNCTION

[Terrymorgan]

Re: AES-128 Encryption

Thank you Colin, all up & testing.
Terry