'________________________________________________________________________________
'
' Copyright Gemalto, unpublished work, created 2007. This computer program
' includes Confidential, Proprietary Information and is a Trade Secret of
' Gemalto. All use, disclosure, and/or reproduction is prohibited unless
' authorised in writing by an officer of Gemalto. All Rights Reserved.
'________________________________________________________________________________
'
' MODULE TITLE    : STUB_SERVICE
'
' DOMAIN          : MyCompany.Server
'
'________________________________________________________________________________
'
' DESCRIPTION     : Stub automatically generated by converter
'               
'
' DEPENDENCIES    : None
'                   
'________________________________________________________________________________
'

Class STUB_COMMON_SERVICE

	Dim oMarshaller As BAS_COMMON_MARSHALLER

	Public Sub New(ByVal p_sServicePort As String)
		oMarshaller = New BAS_COMMON_MARSHALLER(p_sServicePort, "Service", "00E38E8F", "BAC2")
	End Sub
	Public Sub ChangeServicePort(ByVal p_sServicePort As String)
		oMarshaller.ChangeServicePort(p_sServicePort)
	End Sub
	Public Function GetNamespaceHivecode()As Integer
		Return &H00E38E8F
	End Function
	Public Function GetHivecodeType()As Short
		Return &HBAC2
	End Function

	Public Function DES_NovyIV() As Byte()
		return CType(oMarshaller.invoke("DES_NovyIV", 0, "2EB6", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function DES_NovyKlic(ByVal KeySize As Integer) As Byte()
		return CType(oMarshaller.invoke("DES_NovyKlic", 1, "80D5", MARSHALLER_TYPE_IN_S4, KeySize, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function AES_NovyIV() As Byte()
		return CType(oMarshaller.invoke("AES_NovyIV", 0, "9986", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function AES_NovyKlic(ByVal KeySize As Integer) As Byte()
		return CType(oMarshaller.invoke("AES_NovyKlic", 1, "10AF", MARSHALLER_TYPE_IN_S4, KeySize, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Enc_DES(ByVal baze As Byte(), ByVal exponent As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("Enc_DES", 3, "F49F", MARSHALLER_TYPE_IN_U1ARRAY, baze, MARSHALLER_TYPE_IN_U1ARRAY, exponent, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Dec_DES(ByVal baze As Byte(), ByVal exponent As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("Dec_DES", 3, "7D4C", MARSHALLER_TYPE_IN_U1ARRAY, baze, MARSHALLER_TYPE_IN_U1ARRAY, exponent, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Enc_AES(ByVal baze As Byte(), ByVal exponent As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("Enc_AES", 3, "B6D8", MARSHALLER_TYPE_IN_U1ARRAY, baze, MARSHALLER_TYPE_IN_U1ARRAY, exponent, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Dec_AES(ByVal baze As Byte(), ByVal exponent As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("Dec_AES", 3, "BCC9", MARSHALLER_TYPE_IN_U1ARRAY, baze, MARSHALLER_TYPE_IN_U1ARRAY, exponent, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function getMemory() As Integer
		return CType(oMarshaller.invoke("getMemory", 0, "40FB", MARSHALLER_TYPE_RET_S4),Integer)
	End Function


	Public Function Power(ByVal baze As Byte(), ByVal exponent As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("Power", 3, "EFDB", MARSHALLER_TYPE_IN_U1ARRAY, baze, MARSHALLER_TYPE_IN_U1ARRAY, exponent, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function DePower(ByVal baze As Byte(), ByVal exponent As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("DePower", 3, "4348", MARSHALLER_TYPE_IN_U1ARRAY, baze, MARSHALLER_TYPE_IN_U1ARRAY, exponent, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Sub SetRSAsize(ByVal size As Integer)
		oMarshaller.invoke("SetRSAsize", 1, "5F95", MARSHALLER_TYPE_IN_S4, size, MARSHALLER_TYPE_RET_VOID)
	End Sub


	Public Function Multiply(ByVal a_byte As Byte(), ByVal b_byte As Byte(), ByVal mod_byte As Byte()) As Byte()
		return CType(oMarshaller.invoke("Multiply", 3, "29F5", MARSHALLER_TYPE_IN_U1ARRAY, a_byte, MARSHALLER_TYPE_IN_U1ARRAY, b_byte, MARSHALLER_TYPE_IN_U1ARRAY, mod_byte, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function ArrAddSimple(ByVal a As Byte(), ByVal b As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("ArrAddSimple", 3, "669E", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_IN_U1ARRAY, b, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function ArrSubSimple(ByVal a As Byte(), ByVal b As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("ArrSubSimple", 3, "DDCC", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_IN_U1ARRAY, b, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function ArrHalfSimple(ByVal input As Byte(), ByVal modulus As Byte()) As Byte()
		return CType(oMarshaller.invoke("ArrHalfSimple", 2, "FC3C", MARSHALLER_TYPE_IN_U1ARRAY, input, MARSHALLER_TYPE_IN_U1ARRAY, modulus, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function RandomGen(ByVal input As Byte(), ByVal ofset As Integer, ByVal length As Integer) As Byte()
		return CType(oMarshaller.invoke("RandomGen", 3, "F703", MARSHALLER_TYPE_IN_U1ARRAY, input, MARSHALLER_TYPE_IN_S4, ofset, MARSHALLER_TYPE_IN_S4, length, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getc11() As Byte()
		return CType(oMarshaller.invoke("Getc11", 0, "657A", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getc22() As Byte()
		return CType(oMarshaller.invoke("Getc22", 0, "7C13", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getc33() As Byte()
		return CType(oMarshaller.invoke("Getc33", 0, "2C00", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getz1i() As Byte()
		return CType(oMarshaller.invoke("Getz1i", 0, "214C", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getz2() As Byte()
		return CType(oMarshaller.invoke("Getz2", 0, "F51A", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getz2i() As Byte()
		return CType(oMarshaller.invoke("Getz2i", 0, "FAC1", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getc3() As Byte()
		return CType(oMarshaller.invoke("Getc3", 0, "76A2", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Getz1() As Byte()
		return CType(oMarshaller.invoke("Getz1", 0, "24AF", MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function ArrMultiObecneOpt2(ByVal a As Byte(), ByVal b As Byte()) As Byte()
		return CType(oMarshaller.invoke("ArrMultiObecneOpt2", 2, "874B", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_IN_U1ARRAY, b, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function CombaOpt(ByVal a As Byte(), ByVal b As Byte(), ByVal size As Integer) As Byte()
		return CType(oMarshaller.invoke("CombaOpt", 3, "0CDB", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_IN_U1ARRAY, b, MARSHALLER_TYPE_IN_S4, size, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function ArrMultiMontgomeryREV(ByVal x As Byte(), ByVal y As Byte(), ByVal m As Byte(), ByVal N As Integer, ByVal mQ As Integer) As Byte()
		return CType(oMarshaller.invoke("ArrMultiMontgomeryREV", 5, "0531", MARSHALLER_TYPE_IN_U1ARRAY, x, MARSHALLER_TYPE_IN_U1ARRAY, y, MARSHALLER_TYPE_IN_U1ARRAY, m, MARSHALLER_TYPE_IN_S4, N, MARSHALLER_TYPE_IN_S4, mQ, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function UrciVetsiInt(ByVal a As Byte(), ByVal b As Byte()) As Boolean
		return CType(oMarshaller.invoke("UrciVetsiInt", 2, "FA7C", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_IN_U1ARRAY, b, MARSHALLER_TYPE_RET_BOOL),Boolean)
	End Function


	Public Function RedukceByteArr(ByVal a As Byte()) As Byte()
		return CType(oMarshaller.invoke("RedukceByteArr", 1, "BF06", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function ArrAddEqual(ByVal a As Byte(), ByVal b As Byte()) As Byte()
		return CType(oMarshaller.invoke("ArrAddEqual", 2, "9964", MARSHALLER_TYPE_IN_U1ARRAY, a, MARSHALLER_TYPE_IN_U1ARRAY, b, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


End Class


' This STUB has been automatically generated by the converter !
' it can be used in EVA workspace directly
