'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Namespace My.Resources 'This class was auto-generated by the StronglyTypedResourceBuilder 'class via a tool like ResGen or Visual Studio. 'To add or remove a member, edit your .ResX file then rerun ResGen 'with the /str option, or rebuild your VS project. ''' ''' A strongly-typed resource class, for looking up localized strings, etc. ''' _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo ''' ''' Returns the cached ResourceManager instance used by this class. ''' _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Algorithm_Encrypt_By_Mohmaed.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property ''' ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. ''' _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set resourceCulture = value End Set End Property ''' ''' Looks up a localized string similar to Public Function HAZZ15_Decode(ByVal input As String) As String '''Dim key As String = "HNO4klm6ij9n+J2hyf0gzA8uvwDEq3X1Q7ZKeFrWcVTts/MRGYbdxSo=ILaUpPBC5" '''Dim out As New System.Text.StringBuilder '''Dim i As Integer '''Do '''Dim enc(3) As Integer '''Dim chrs() As Integer = {0, 0, 0} '''For b As Integer = 0 To 3 '''enc(b) = key.IndexOf(input(i)) '''i = i + 1 '''Next '''chrs(0) = (enc(0) << 2) Or (enc(1) >> 4) '''chrs(1) = (enc(1) And 15) << 4 Or (enc(2) >> 2) '''chrs(2) = (enc(2) And 3) << 6 Or enc(3) '''out.Append(Chr(chrs(0))) '''If [rest of string was truncated]";. ''' Friend ReadOnly Property HAZZ15_Decode() As String Get Return ResourceManager.GetString("HAZZ15_Decode", resourceCulture) End Get End Property ''' ''' Looks up a localized string similar to Public Function RSA_Decrypt(ByVal Input As String) As String ''' Dim cp As New Security.Cryptography.CspParameters ''' cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore ''' cp.KeyContainerName = "Keys" ''' Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp) ''' Dim buffer As Byte() = Convert.FromBase64String(Input) ''' Dim decrypted As Byte() = RSA.Decrypt(buffer, True) ''' Return System.Text.Encoding.UTF8.GetString(decrypted) ''' End Function. ''' Friend ReadOnly Property RSA_Decrypt() As String Get Return ResourceManager.GetString("RSA_Decrypt", resourceCulture) End Get End Property ''' ''' Looks up a localized string similar to . ''' Friend ReadOnly Property ZufallVar() As String Get Return ResourceManager.GetString("ZufallVar", resourceCulture) End Get End Property End Module End Namespace