encryptionextensionattribute.vb

This is a book about vb.you could learn this from this book

Imports System
Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Security.Cryptography

<AttributeUsage(AttributeTargets.Method)> _
Public Class EncryptionExtensionAttribute
		Inherits SoapExtensionAttribute
		
    Private _priority As Integer
	Private encryptionMode As EncryptMode = EncryptMode.None
	Private decryptionMode As DecryptMode = DecryptMode.None
    Private _target As Target = Target.Method

	Public Overrides ReadOnly Property ExtensionType As Type
		Get
		  Return GetType(EncryptionExtension)
		End Get
	End Property

	Public Overrides Property Priority As Integer
		Get
            Return _priority
		End Get
		Set
            _priority = Value
		End Set
	End Property

	Public Property Encrypt As EncryptMode
		Get
			Return encryptionMode
		End Get
		Set
			encryptionMode = value
		End Set
	End Property

	Public Property Decrypt As DecryptMode 
		Get
			Return decryptionMode
		End Get
		Set
			decryptionMode = value
		End Set
	End Property

	Public Property Target As Target
		Get
            Return _target
		End Get
		Set
            _target = Value
		End Set
	End Property

End Class

Public Enum DecryptMode
    None
    Response
	Request
End Enum

Public Enum EncryptMode
    None
    Response
	Request
End Enum

Public Enum Target
    Envelope
    Body
	Method
End Enum