'________________________________________________________________________________
'
' 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 Registration(ByVal Hash As String, ByVal Ri As String) As String
		return CType(oMarshaller.invoke("Registration", 2, "0CAB", MARSHALLER_TYPE_IN_STRING, Hash, MARSHALLER_TYPE_IN_STRING, Ri, MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function Login(ByVal PWD As String, ByVal timestamp As String) As Byte()
		return CType(oMarshaller.invoke("Login", 2, "7374", MARSHALLER_TYPE_IN_STRING, PWD, MARSHALLER_TYPE_IN_STRING, timestamp, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Verification(ByVal timestamp As String) As Byte()
		return CType(oMarshaller.invoke("Verification", 1, "9E37", MARSHALLER_TYPE_IN_STRING, timestamp, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function GetRi() As String
		return CType(oMarshaller.invoke("GetRi", 0, "BB6D", MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function Registration_Hsiang(ByVal V As String, ByVal R As String, ByVal hash As String) As String
		return CType(oMarshaller.invoke("Registration_Hsiang", 3, "0E88", MARSHALLER_TYPE_IN_STRING, V, MARSHALLER_TYPE_IN_STRING, R, MARSHALLER_TYPE_IN_STRING, hash, MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function Login_Hsiang(ByVal pwdhash As Byte(), ByVal timestamp As String) As String()
		return CType(oMarshaller.invoke("Login_Hsiang", 2, "AA33", MARSHALLER_TYPE_IN_U1ARRAY, pwdhash, MARSHALLER_TYPE_IN_STRING, timestamp, MARSHALLER_TYPE_RET_STRINGARRAY),String())
	End Function


	Public Function Verification_Hsiang(ByVal pwdhash As Byte()) As Byte()
		return CType(oMarshaller.invoke("Verification_Hsiang", 1, "CDE5", MARSHALLER_TYPE_IN_U1ARRAY, pwdhash, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function GetRi_Hsiang() As String
		return CType(oMarshaller.invoke("GetRi_Hsiang", 0, "18DD", MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function Registration_Improved(ByVal ID As String, ByVal A As String, ByVal B As String, ByVal p As String, ByVal g As String) As String
		return CType(oMarshaller.invoke("Registration_Improved", 5, "B1BE", MARSHALLER_TYPE_IN_STRING, ID, MARSHALLER_TYPE_IN_STRING, A, MARSHALLER_TYPE_IN_STRING, B, MARSHALLER_TYPE_IN_STRING, p, MARSHALLER_TYPE_IN_STRING, g, MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function Login_Improved() As String()
		return CType(oMarshaller.invoke("Login_Improved", 0, "A8EE", MARSHALLER_TYPE_RET_STRINGARRAY),String())
	End Function


	Public Function Verification_Nonce(ByVal pwdhash As Byte()) As Byte()
		return CType(oMarshaller.invoke("Verification_Nonce", 1, "F99E", MARSHALLER_TYPE_IN_U1ARRAY, pwdhash, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Registration_nova(ByVal V As String, ByVal R As String, ByVal hash As String) As String
		return CType(oMarshaller.invoke("Registration_nova", 3, "CE08", MARSHALLER_TYPE_IN_STRING, V, MARSHALLER_TYPE_IN_STRING, R, MARSHALLER_TYPE_IN_STRING, hash, MARSHALLER_TYPE_RET_STRING),String)
	End Function


	Public Function GetR_nova(ByVal timestamp As String) As Byte()
		return CType(oMarshaller.invoke("GetR_nova", 1, "5450", MARSHALLER_TYPE_IN_STRING, timestamp, MARSHALLER_TYPE_RET_U1ARRAY),Byte())
	End Function


	Public Function Login_nova(ByVal pwdhash As Byte(), ByVal timestamp As String) As String()
		return CType(oMarshaller.invoke("Login_nova", 2, "6EA6", MARSHALLER_TYPE_IN_U1ARRAY, pwdhash, MARSHALLER_TYPE_IN_STRING, timestamp, MARSHALLER_TYPE_RET_STRINGARRAY),String())
	End Function


	Public Function Verification_nova(ByVal pwdhash As Byte()) As Byte()
		return CType(oMarshaller.invoke("Verification_nova", 1, "D005", MARSHALLER_TYPE_IN_U1ARRAY, pwdhash, 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


End Class


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