Option Explicit

Dim userkey
Dim data

userkey = "1234567890123456"
data = "This is a test."
Test userkey, data


Function Test(userkey, data)
	Dim oSeed
	Dim encdata, decdata

	WScript.Echo "Key        : " & userkey
	WScript.Echo "Plaintext  : " & data

	Set oSeed = CreateObject("ECPlaza.Seed")
	encdata = oSeed.Encrypt(data, userkey)

	WScript.Echo vbCrLf & "Encryption...."
	WScript.Echo "Ciphertext : " & encdata
	
	WScript.Echo vbCrLf & "Decryption...."
	decdata = oSeed.Decrypt(encdata, userkey)
	WScript.Echo "Plaintext  : " & decdata

	
	WScript.Echo
	WScript.Echo
End Function