LAZY HACK - VB Code Generator - v2.4

[KnightZach_RPoS]

I have the same problem as Abrupt... So if I do not access how will I download this... Can someone please assist me here!

[HARD_ON]

I hope this is a joke, LCS.

[KnightZach_RPoS]

I am serious is it not possible too access that page??

[gamepin126]

You only need the fixed EXE's if you intend on copying and pasting the code. Cmon, use your brains.

The code generated still works.

(btw, if you don't have access, that means you're not cool enough so stfu you don't need it)

[Po-aWARz)]

I'm noob at this...

But does this create some DLL files?

I mean would it be possible to make an auto-mine at start/game within a DLL? with this program.....:P

I would make some few good hacks..but well, never coded before :/

[Titan]

No Po-aWARz), this will give you code to put into an EXE VB project. You could technically write auto-mine in code caves and use this to inject, but trust me... you don't want to do that!!! Only use this for simple projects like offline mineral hack, host hack, null timer, and whatnot.

If you're just beginning to learn, and you aren't going to release any of it, use TSearch's EasyWrite; it's a great tool I still use for quick patches. However, if you ever want to make something like auto-mine, you will need assembly knowledge plus either MASM or C programming experience.

[Po-aWARz)]

Damnit, thanks for the reply Titan!

So TSearch's EasyWrite is for making some few DLL?
I'd like to learn things like that..i know i have no big time to deal with but well..

I didn't think that Auto-Mine was pretty hard to make? Oh well.. I'm lost than! i'l have to wait that new V of APRON! hehe.

[Titan]

Tsearch's EasyWrite won't make DLLs, it's just an easy way to patch a process. You can use code caves to make some decent stuff with it. You could then use this(VB code generator) or TMK to make your hack into an EXE. But, if you want to make DLLs, you will have to learn a programming lanuage. I suggest MASM, but C will also do.

"Hard" is dependent on experience. To a beginner, yes, auto-mine will be difficult. To someone with some hacking experience & knowledge of SC, no, it isn't difficult.

[Logos]

To make it work on 1.15+ without "StarCraft with Security Removed (by LCSBSSRHXXX) and CRWA - CheckRevision Work Around (by Palomino)"

Add the option to add this code to the header (just make sure OpenProcess and CloseHandle don't overlap ofc):

Private Const TOKEN_ADJUST_PRIVILEGES = &H20
Private Const TOKEN_QUERY = &H8
Private Const ANYSIZE_ARRAY = 1
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const SE_DEBUG_NAME = "SeDebugPrivilege"
Private Const SE_PRIVILEGE_ENABLED = &H2

Private Type LUID
   lowpart As Long
   highpart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
   pLuid As LUID
   Attributes As Long
End Type

Private Type TOKEN_PRIVILEGES
   PrivilegeCount As Long
   Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, BufferLength As Any, PreviousState As Any, ReturnLength As Any) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

And these functions

Private Function getProcessHandle(pID As Long) As Long
   EnableDebugPrivilege (True)
   getProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, 0, pID)
   EnableDebugPrivilege (False)
End Function

Private Function EnableDebugPrivilege(bOnOff As Boolean) As Boolean
   Dim tp As TOKEN_PRIVILEGES
   Dim tpPrev As TOKEN_PRIVILEGES
   Dim lid As LUID
   Dim tpSize As Long
   Dim lRet As Long
   Dim hCurProc As Long
   Dim hToken As Long
   
   
   tpSize = Len(tp)
   
   hCurProc = GetCurrentProcess()
   
   lRet = OpenProcessToken(hCurProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken)
   lRet = LookupPrivilegeValue("", SE_DEBUG_NAME, lid)
   
   tp.PrivilegeCount = 1
   tp.Privileges(0).pLuid = lid
   tp.Privileges(0).Attributes = 0
   
   '//Get Attributes
   lRet = AdjustTokenPrivileges(hToken, 0, tp, tpSize, tpPrev, tpSize)

   tpPrev.PrivilegeCount = 1
   tpPrev.Privileges(0).pLuid = lid
   
   If bOnOff = True Then
      tpPrev.Privileges(0).Attributes = tpPrev.Privileges(0).Attributes Or (SE_PRIVILEGE_ENABLED)
   Else
      tpPrev.Privileges(0).Attributes = tpPrev.Privileges(0).Attributes Xor _
                                         (SE_PRIVILEGE_ENABLED And tpPrev.Privileges(0).Attributes)
   End If

   '//Set Attributes
   lRet = AdjustTokenPrivileges(hToken, 0, tpPrev, tpSize, ByVal CLng(0), ByVal CLng(0))
   
   CloseHandle (hToken)
   EnableDebugPrivilege = CBool(lRet)
End Function

Now, in your generated code just replace

pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)

With

pHandle = getProcessHandle(pid)

Works for me. Thanks to hure for pointing out this workaround here.

[Rufus]

this made me super horny +rep!!!

[kds]

please don't bring up old threads
LCS open the thread if oyu have further development on it.