TUT - undetected invisible - TUT

In this tutorial i will show you how to make an invisible hack in VB6.

First Create two command buttons.
Label button one Invisible
Label button two Off

First Create two command buttons.
Label button one Invisible
Label button two Off

In button one insert this code

Call CctuyMd1zZcVPyhhmFsPDR7UoWWUNNamOqklECJPYkRz3gYAP( "WarRock", &H505CF8, &H1C)


In button two insert this code


Call CctuyMd1zZcVPyhhmFsPDR7UoWWUNNamOqklECJPYkRz3gYAP( "WarRock", &H505CF8, &H2C)


Now add a module and insert this code. Make sure you set it all.

Public Const u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD0 = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function SeJdPmhJ6ofYGwcukzBNEGUHAhohzFLqcWJr5gFuYceMUFkK5G 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 XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function U3uFnsAaYR9xrZtRWa6HoVGLEa7he8NXYRfIg7i4obqDureJNU Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function oDguxU8xp42ZH7xrYBKKfZGRn0eL3XUvNbO2lXY1k5gU1QQLVA 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 p1FhZEbreZ69kgmFLRBJaiiwCZDTlgkU4vjatKDPv6VqxCxdMl (PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKf V As String, aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW As Long, Q8jgI3BxsP6csYOlicovEJGDh7OV3dO0EI7zz9Opm8aD2KPlWg As Long) 'WriteALong
Dim m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX As Long
Dim KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM As Long
Dim y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf As Long
m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX = ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu (vbNullString, PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV )
If (m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevz X = 0) Then
End
Exit Function
End If
khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX , KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM
y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf = PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY (u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD 0, False, KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM )
If (y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQ f = 0) Then
Exit Function
End If
SeJdPmhJ6ofYGwcukzBNEGUHAhohzFLqcWJr5gFuYceMUFkK5G y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf , aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW , Q8jgI3BxsP6csYOlicovEJGDh7OV3dO0EI7zz9Opm8aD2KPlWg , 4, 0&
XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V DJTba1D3ODwCIpQ0NOfmlG6XVC3eZ5PiCydhXJtNNUatHbzjvS
End Function

Public Function v6oAp7A7ESkyCDiTZftbTEZjvjoyZxsqtLvEP6yNLO5PPspvvT (PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKf V As String, aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW As Long, vh7vZujbCCWZWnLaJ8RDxsPw18Qc45f2jayt3Jvp4zwwdtjKTd As Long) 'ReadALong
Dim m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX As Long
Dim KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM As Long
Dim y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf As Long
m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX = ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu (vbNullString, PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV )
If (m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevz X = 0) Then
End
Exit Function
End If
khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX , KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM
y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf = PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY (u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD 0, False, KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM )
If (y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQ f = 0) Then
Exit Function
End If
oDguxU8xp42ZH7xrYBKKfZGRn0eL3XUvNbO2lXY1k5gU1QQLVA y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf , aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW , vh7vZujbCCWZWnLaJ8RDxsPw18Qc45f2jayt3Jvp4zwwdtjKTd , 4, 0&
XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V DJTba1D3ODwCIpQ0NOfmlG6XVC3eZ5PiCydhXJtNNUatHbzjvS
End Function

Public Function ZclBTIUvm7zilL3TllvsqvPifjRZV8gkcBXIoJMXFmrbaUrNC2 (PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKf V As String, aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW As Long, vh7vZujbCCWZWnLaJ8RDxsPw18Qc45f2jayt3Jvp4zwwdtjKTd As Single) 'ReadAFloat
Dim m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX As Long
Dim KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM As Long
Dim y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf As Long
m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX = ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu (vbNullString, PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV )
If (m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevz X = 0) Then
End
Exit Function
End If
khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX , KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM
y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf = PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY (u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD 0, False, KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM )
If (y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQ f = 0) Then
Exit Function
End If
oDguxU8xp42ZH7xrYBKKfZGRn0eL3XUvNbO2lXY1k5gU1QQLVA y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf , aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW , vh7vZujbCCWZWnLaJ8RDxsPw18Qc45f2jayt3Jvp4zwwdtjKTd , 4, 0&
XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V DJTba1D3ODwCIpQ0NOfmlG6XVC3eZ5PiCydhXJtNNUatHbzjvS
End Function

Public Function qs3NWiWMjnIDnznaLe8vXehpCo3VHavWZubsfKRF8RmT0TxKSE (PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKf V As String, aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW As Long, Q8jgI3BxsP6csYOlicovEJGDh7OV3dO0EI7zz9Opm8aD2KPlWg As Single) 'WriteAFloat
Dim m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX As Long
Dim KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM As Long
Dim y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf As Long
m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX = ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu (vbNullString, PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV )
If (m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevz X = 0) Then
End
Exit Function
End If
khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX , KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM
y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf = PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY (u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD 0, False, KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM )
If (y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQ f = 0) Then
Exit Function
End If
SeJdPmhJ6ofYGwcukzBNEGUHAhohzFLqcWJr5gFuYceMUFkK5G y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf , aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW , Q8jgI3BxsP6csYOlicovEJGDh7OV3dO0EI7zz9Opm8aD2KPlWg , 4, 0&
XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V DJTba1D3ODwCIpQ0NOfmlG6XVC3eZ5PiCydhXJtNNUatHbzjvS
End Function

Public Function CctuyMd1zZcVPyhhmFsPDR7UoWWUNNamOqklECJPYkRz3gYAP( PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV As String, aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW As Long, Q8jgI3BxsP6csYOlicovEJGDh7OV3dO0EI7zz9Opm8aD2KPlWg As Byte) 'WriteAByte
Dim m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX As Long
Dim KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM As Long
Dim y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf As Long
m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX = ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu (vbNullString, PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV )
If (m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevz X = 0) Then
End
Exit Function
End If
khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX , KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM
y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf = PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY (u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD 0, False, KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM )
If (y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQ f = 0) Then
Exit Function
End If
SeJdPmhJ6ofYGwcukzBNEGUHAhohzFLqcWJr5gFuYceMUFkK5G y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf , aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW , Q8jgI3BxsP6csYOlicovEJGDh7OV3dO0EI7zz9Opm8aD2KPlWg , 1, 0&
XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V DJTba1D3ODwCIpQ0NOfmlG6XVC3eZ5PiCydhXJtNNUatHbzjvS
End Function

Public Function h8TO2Ijllr0GYzQqYzazNt3N872gocJnl0WDfDXbS8AomhBsT8 (PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKf V As String, aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW As Long, vh7vZujbCCWZWnLaJ8RDxsPw18Qc45f2jayt3Jvp4zwwdtjKTd As Byte) 'ReadAByte
Dim m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX As Long
Dim KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM As Long
Dim y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf As Long
m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX = ZZrLahyhafOmeq2WSSJgNkW2dLqumwKyM7EDxXcHHKCshiNduu (vbNullString, PWTVOkrQjj95PyvZneeI8LkqGotwaFejDZHJT9lRZdDcb6QKfV )
If (m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevz X = 0) Then
End
Exit Function
End If
khjRSwAvyrCZ1xX72D6WgvDkdSmoQRzzk94Or8PhG9pAjGGxRC m0RrZytbEZVsTxJk7P6H9nl3jP1EbvPXYgQkNE3Go3O60bevzX , KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM
y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf = PXS68YRJKoZZsUnMLkFc4QwXR5nmaGir4zBh4aqffcVZQDP8DY (u1X7f9bwTE2j1yv5DzORD39QhVNMIlk1FMncRzT8YxxlWkokD 0, False, KUZJmGMqfL9dAaRu3yKGAJXL82ktIPBzwxUbixiMMWjVgajDhM )
If (y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQ f = 0) Then
Exit Function
End If
oDguxU8xp42ZH7xrYBKKfZGRn0eL3XUvNbO2lXY1k5gU1QQLVA y590Zx9QKrBVqGGSYiTSyTXY0ZsoZ6ofNkuc4Rp3RWAS9vklQf , aYQEnWh2akXDGJIvQICq0gx8gEmURqYXM2JYlitHUAw5SO7LZW , vh7vZujbCCWZWnLaJ8RDxsPw18Qc45f2jayt3Jvp4zwwdtjKTd , 1, 0&
XQ2uQpPFBUwSOdPVCdM1ku5UhFnZ7H5mVJdN9IBVh5hZ0zps9V DJTba1D3ODwCIpQ0NOfmlG6XVC3eZ5PiCydhXJtNNUatHbzjvS
End Function



And there you have it. You're now invisible. Still risk 0 min kicks though. Use a bypass.
Use the thanks button
CREDITS TO SCRUFFY69

Isnt all .exe files pached now??

yeh they are rendering this useless

are all .exe's really detected now ?
didn't know that...


and that module will be detected by now =P


LUCKY ME!!! I HAVE A BYPASS!!!

lol... if I would use this I wouldn't have been learning anything... but it's a good code.... but no real tut

When you say EXE's dont work any more thats not entirely true!
I have made a VB6 hack with some public and vip and yes some dont work but some do!. I have also made a EXE in C++ and that works too, Now i just need the new addies! any one have them because my addy looger dont work

you can adapt this code to go in a vb6 dll, though