Undetected MOdule? problem

[bl00dlust]

Option Explicit

Public Declare Function A3C3061A Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function D099B50C Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function CCFCABAA 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 C98ED7DF Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function B909FAC4 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function A8191134 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 Declare Function C3682C6D Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

'WriteALong
Public Function AA7D1BEA(C89AA510 As Long, FED6F9F3 As Long)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

CCFCABAA FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'WriteAByte
Public Function A74DF76C(C89AA510 As Long, FED6F9F3 As Byte)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

CCFCABAA FC669AA1,C89AA510,FED6F9F3,1, 0&

C98ED7DF FC669AA1
End Function

'WriteAFloat
Public Function B73CA59F(C89AA510 As Long, FED6F9F3 As Double)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

CCFCABAA FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'ReadALong
Public Function C06F7936(C89AA510 As Long, FED6F9F3 As Long)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

A8191134 FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'ReadAByte
Public Function F6371020(C89AA510 As Long, FED6F9F3 As Byte)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

A8191134 FC669AA1,C89AA510,FED6F9F3,1, 0&

C98ED7DF FC669AA1
End Function

'ReadAFloat
Public Function D12D0087(C89AA510 As Long, FED6F9F3 As Double)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

A8191134 FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'WriteASM
Public Function AF983E11(Address As Long, ASM As String)
Dim i As Integer
Dim i2 As Integer

i2 = 1
While i < (Len(ASM) / 2)
Call A74DF76C(Address + i, &H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
i = i + 1
i2 = i2 + 2
Wend
End Function


im using Unseen's Module Generator and yes i see were it says callwritealong But how wood i typ this in Call Writealong, or wood it be One of the Numbers..

[herowarz]

Option Explicit

Public Declare Function A3C3061A Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function D099B50C Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function CCFCABAA 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 C98ED7DF Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function B909FAC4 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function A8191134 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 Declare Function C3682C6D Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

'WriteALong
Public Function AA7D1BEA(C89AA510 As Long, FED6F9F3 As Long)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

CCFCABAA FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'WriteAByte
Public Function A74DF76C(C89AA510 As Long, FED6F9F3 As Byte)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

CCFCABAA FC669AA1,C89AA510,FED6F9F3,1, 0&

C98ED7DF FC669AA1
End Function

'WriteAFloat
Public Function B73CA59F(C89AA510 As Long, FED6F9F3 As Double)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

CCFCABAA FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'ReadALong
Public Function C06F7936(C89AA510 As Long, FED6F9F3 As Long)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

A8191134 FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'ReadAByte
Public Function F6371020(C89AA510 As Long, FED6F9F3 As Byte)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

A8191134 FC669AA1,C89AA510,FED6F9F3,1, 0&

C98ED7DF FC669AA1
End Function

'ReadAFloat
Public Function D12D0087(C89AA510 As Long, FED6F9F3 As Double)
Dim F222EB68 As Long
Dim FC669AA1 As Long
Dim AC5745AF As Long

F222EB68= B909FAC4(vbNullString, "WarRock")

If (F222EB68= 0) Then
Exit Function
End If

A3C3061A F222EB68,AC5745AF

FC669AA1= D099B50C(&H1F0FFF, False,AC5745AF)

If (FC669AA1= 0) Then
Exit Function
End If

A8191134 FC669AA1,C89AA510,FED6F9F3,4, 0&

C98ED7DF FC669AA1
End Function

'WriteASM
Public Function AF983E11(Address As Long, ASM As String)
Dim i As Integer
Dim i2 As Integer

i2 = 1
While i < (Len(ASM) / 2)
Call A74DF76C(Address + i, &H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
i = i + 1
i2 = i2 + 2
Wend
End Function


im using Unseen's Module Generator and yes i see were it says callwritealong But how wood i typ this in Call Writealong, or wood it be One of the Numbers..

have you clicked on fast module or anything like this ??


try without 1973481 number...
like
AHDHJDH1L
AHDHJDH2L
AHDHJDH3L
AHDHJDH4L
AHDHJDH5L
AHDHJDH6L
......

AHDHJDH11L = WriteALong

im not a pro... just try and reply if it dont work.

i use undetected module generator from ZeaS ( not the last release cause it make detected module caused by the 'made by ZeaS

i just have to remove it but im too lazy XD



good luck