'------------------------------------------------------------------------------
'
' 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