[TUTORIAL]How to make you Module undetected

[ibtrippin]

i know this has been said, yet people are too lazy to click the search button. idk if the thread with this info has been deleted or not, but ima post my own version here. Since i saw somebody post a module, ill use his. people shouldnt need to post modules. people should know how to make their own undetected, its very simple. here is the module posted by 1zz23z on this forum:
i will make things the color blue if u need to modify it. common specific functions such as WriteALong will be in a different color and will be defined which color is what function at the bottom.


Public Const LLLLLHHLU = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long
'API Declaration
Public Declare Function LEEUVZYHG Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function EEUVZYHGL Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function EUVZYHGLE Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function UVZYHGLEE Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function VZYHGLEEU Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function ZYHGLEEUV Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function YHGLEEUVZ Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function LEEUVYZGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Long) 'WriteALong
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
EUVZYHGLE LEEUVZHGY, EEEUVZYGH, EEEUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function LEEUZVYGH(LLLLLZYGH As String, EEEUVZYGH As Long, UUUUVZYGH As Long) 'ReadALong
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
YHGLEEUVZ LEEUVZHGY, EEEUVZYGH, UUUUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function LEUEVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, UUUUVZYGH As Single) 'ReadAFloat
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
YHGLEEUVZ LEEUVZHGY, EEEUVZYGH, UUUUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function ELEUVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Single) 'WriteAFloat
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
EUVZYHGLE LEEUVZHGY, EEEUVZYGH, EEEUVZYGH, 4, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function UELUVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Byte) 'WriteAByte
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
EUVZYHGLE LEEUVZHGY, EEEUVZYGH, EEEUVZYGH, 1, 0&
UVZYHGLEE VVVVLVZVU
End Function
Public Function GEEUVZYHL(LLLLLZYGH As String, EEEUVZYGH As Long, UUUUVZYGH As Byte) 'ReadAByte
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function
End If
LEEUVZYHG HGLEEUVZY, LEEUVZYGH
LEEUVZHGY = EEUVZYHGL(LLLLLHHLU, False, LEEUVZYGH)
If (LEEUVZHGY = 0) Then
Exit Function
End If
YHGLEEUVZ LEEUVZHGY, EEEUVZYGH, UUUUVZYGH, 1, 0&
UVZYHGLEE VVVVLVZVU
End Function

specific function colors:
red-WriteALong
green-ReadALong
purple-ReadAFloat
grey-WriteAFloat
dark blue-WriteAByte
yellow-ReadAByte


****Tips to easy module editing:
1) always save an extra copy of your current module before editing it in case you screw up BAD.
2) make sure you know when you edit a variable (the blue ones), that you can make it anything you want, and you must make sure that you dont have the some one twice. BUT- MAKE SURE BEFORE YOU CHANGE ONE THAT YOU MAKE ALL OTHERS WITH THE SAME NAME TO CHANGE IT TO YOUR NEW NAME. EXAMPLE-

Public Function UELUVZYGH(LLLLLZYGH As String, EEEUVZYGH As Long, EEEUVZYGH As Byte) 'WriteAByte
Dim HGLEEUVZY As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
HGLEEUVZY = VZYHGLEEU(vbNullString, LLLLLZYGH)
If (HGLEEUVZY = 0) Then
End
Exit Function

NOTICE HOW THE SAME COLOR VARIABLES HAVE THE SAME NAME. YOU MUST MAKE ALL VARIABLES WITH THE SAME NAME CHANGED TO THE SAME NAME- EXAMPLE

Public Function UELUVZYGH(lolzorz1 As String, EEEUVZYGH As Long, EEEUVZYGH As Byte) 'WriteAByte
Dim lolzorz2 As Long
Dim LEEUVZYGH As Long
Dim LEEUVZHGY As Long
lolzorz2 = VZYHGLEEU(vbNullString, lolzorz1)
If (lolzorz2 = 0) Then
End
Exit Function


unless the variables have the same orgional name, NEVER repeat the name of a variable or else you will have a compile error when making your hack.

3) i know it takes a long time, and that i took the liberal view and told you to modify EVERY variable. if you do, and dont share it, it should stay undetected for 3-5 days.

4) TAKE YOUR TIME! DONT RUSH! ITS A BTCH TO REDO A MODULE, TRUST ME!

5) this module is by no means undetected. it is as of now, but it will probably be detected by tomorow because of its exposure.

6) have fun!

7) DONT FORGET TO THANK!!



sorry about mess ups, please post them below, this is my first tutorial and i tried to be as user-friendly as possible :/

EDIT: link to my addresses if you need them for your hack makin.
[Only registered and activated users can see links. ]

[julian000]

who the noob who will read all these