Index: BL/Legacy/HADWIZ.cls.xml
===================================================================
diff -u -r71229 -r71317
--- BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 71229)
+++ BL/Legacy/HADWIZ.cls.xml	(.../HADWIZ.cls.xml)	(revision 71317)
@@ -198,6 +198,38 @@
 <FormalSpec>ProductId:%String,Taal:%String="N"</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim AesKey As %String = "wG1wFnu08vM78FzL"
+	
+	#dim ProductAlsUrlInput As %String = ""
+	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	
+	If ProductApi.BestaatProduct(ProductId) {
+		#dim IdentNummer As %String = ProductApi.GeefProduct(ProductId).GeefIdentNr()
+		;write !,"IdentNummer '"_$$$LCVT(IdentNummer)_"' ."
+		;write !," AES enc :"_$System.Encryption.AESCBCEncrypt(IdentNummer,AesKey)
+		;write !," AES CBC enc :"_ $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,AesKey,""))
+		;write !," AES old enc :"_ $System.Encryption.Base64Encode($System.Encryption.AESEncode(IdentNummer,AesKey))
+		;write !!
+		#dim EncryptedValue As %String = $System.Encryption.Base64Encode($System.Encryption.AESCBCEncrypt(IdentNummer,AesKey,""))
+		Set ProductAlsUrlInput = $Translate(EncryptedValue, "/+=", "!_-")
+	}
+	
+	#dim SubFolder As %String = $Case(Taal, 
+			"N" : "/nl/producten", 
+			"F" : "/fr/produits", 
+			"E" : "/en/products", 
+			"D" : "/de/Produkte", 
+			 : "/nl/producten")
+
+	Quit "https://www.vanhoecke.be" _ SubFolder _ "/" _ ProductAlsUrlInput
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductInfoUrlVhisie4xNoEncryption">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductId:%String,Taal:%String="N"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	Set:($$$Trim(Taal)="") Taal = "N"
 	
 	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()