For info, click here.
Full software + Serial (Working 100%)
Download:
Rapidshare
For you who already have the program:
Name: Cappie Williams
Serials:
9248-3000-2939-3565-1044
8642-3154-2000-7502-5011
[How-to] Bypass HotFile
Method 1
Hotfile like Rapidshare, and Megaupload hosts files so people may download them. But we all know with these websites, there are always wait time between files. So today, I’m going to show you a neat little trick to bypass the Hotfile wait time to have a “premium-like” user experience.
1. Sign up for an account at Hotfile.com
2. Click on Upload at the top
3. Select Remote Upload on the page
4. Insert the Hotfile links that you would to download in the box and click upload
5. There will be new generated links, you can download them without wait times because now they are “your account”
6. Copy and Paste your links you just generated into your browser and download
Note: You can also make money from generating the new links by sharing them to people.
Method 2
Generators Websites :D
http://hfplg.com/
http://www.megaleech.eu/
Say thanks at least ._.
Cappie
Hotfile like Rapidshare, and Megaupload hosts files so people may download them. But we all know with these websites, there are always wait time between files. So today, I’m going to show you a neat little trick to bypass the Hotfile wait time to have a “premium-like” user experience.
1. Sign up for an account at Hotfile.com
2. Click on Upload at the top
3. Select Remote Upload on the page
4. Insert the Hotfile links that you would to download in the box and click upload
5. There will be new generated links, you can download them without wait times because now they are “your account”
6. Copy and Paste your links you just generated into your browser and download
Note: You can also make money from generating the new links by sharing them to people.
Method 2
Generators Websites :D
http://hfplg.com/
http://www.megaleech.eu/
Say thanks at least ._.
Cappie
[VB.net] How to do a Log In System
|
Marcadores:
Tutorials
Cappie is going to show you guys how to do a Log In System on VB .net. With pictures!
Tutorial Level: Very Easy
Requirements:
1 Form
2 Label
2 TextBox
2 Button
1 Picture (Optional)
Just try to organize like the image below:
Ok, now add this code to the "OK" button.
If TextBox1.Text = "cappie" And TextBox2.Text = "williams" Then
MsgBox("You are logged in!")
Form2.Show()
Else
MsgBox("Username or Password incorrect.", MsgBoxStyle.Critical, "")
End If
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Type anything!", MsgBoxStyle.Critical, "")
End If
Me.Close()
Ok. Let’s explain the codes.
If TextBox1.Text = "cappie" And TextBox2.Text = "williams" Then
MsgBox("You are logged in!")
Form2.Show()
If the TextBox1 (Username text box) is filled with “cappie” and TextBox2 with “williams” you are right and will show the Form2.
Else
MsgBox("Username or Password incorrect.", MsgBoxStyle.Critical, "")
End If
If isn’t, won’t show Form2.
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox("Type anything!", MsgBoxStyle.Critical, "")
End If
If you don’t type anything, a MsgBox will appear and say to you type anything.
Now, add the code below to the “Cancel” button:
End
It's easy to do, but if you are a beginner you can download the source code below:
Download!
Rapidshare (Check this post to trick RS)
Sendspace
HotFile
Tutorial by Cappie Williams
Source by Cappie Williams
Huge KSSN List by Cappie
|
Marcadores:
Other
You always wanted to register in korean games? Such as Nexon games, pmang games...
Well, Cappie got the solution. A huge KSSN list, with around 5.000 KSSN's.
I've got my KSSN to register on Nexon and pmang in that list.
Download!
Rapidshare (Check this post to trick RS)
Sendspace
HotFile
Password!
cappiewilliams.blogspot.com
Links Down?
Send a mail to cappiewilliams@live.com
Have fun with this!
Well, Cappie got the solution. A huge KSSN list, with around 5.000 KSSN's.
I've got my KSSN to register on Nexon and pmang in that list.
Download!
Rapidshare (Check this post to trick RS)
Sendspace
HotFile
Password!
cappiewilliams.blogspot.com
Links Down?
Send a mail to cappiewilliams@live.com
Have fun with this!
[VB6] How to do a DLL Injector
|
Marcadores:
Tutorials
Requirements:
3 CommandButton
2 Text
3 Module
1 Timer
1 CommonDialog1(Microsoft Common Dialog Control 6.0)
1 Label
Tutorial:
- Add all the components and tools in the form and get ready
- Text1 will be the DLL searcher and Text2 to put the window name.
- Add the code below in the "Search" CommandButton:
Dim sTemp As String
CommonDialog1.FileName = "*.dll"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
- Add the code below in the "Auto-Inject Status- Off" CommandButton:
If Text1.Text = "" Then Exit Sub
If Text2.Text = "" Then Exit Sub
If Command1.Caption = "Status of the Injector: OFF" Then
Timer1.Enabled = True
Command1.Caption = "Status of the Injector : ON"
Exit Sub
Else
Command1.Caption = "Status of the Injector: OFF"
Timer1.Enabled = False
Label1.Caption = "Waiting to Inject DLL"
End If
- Put the code below in your project:
Option Explicit
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindowText Lib "User32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "User32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Const SW_SHOW = 5
- In the "Close" CommandButton, the code below:
End
- In the Form's Load event, the code below:
GetSeDebugPrivelege
Label1.Caption = "Waiting DLL Injection"
- In the Timer, the code below:
On Error Resume Next
Dim hwnd As Long
Dim pid As Long
Dim lSuccess&
Dim pHandle As Long
hwnd = FindWindow(vbNullString, Text2.Text)
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hwnd = 0 Then
Label1.Caption = "Looking for the window name..."
Else
Label1.Caption = "Window name not found!"
GetWindowThreadProcessId hwnd, pid
Label1.Caption = pid
lSuccess = InjectLibrary(pid, Text1.Text)
End If
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
MsgBox pid
lSuccess = InjectLibrary(pid, App.Path & "\Morphine.dll")
If lSuccess > 0 Then
Label1.Caption = "DLL Injected with success!!"
Timer1.Enabled = False
Exit Sub
Else
Label1.Caption = "Waiting for the DLL Injection..."
End If
End Sub
Now the Modules part!
- Change the module names for the below's:
1st - modDebugPriveleges
2nd - modFiles
3rd - modInjection
- In the "modDebugPriveleges" add the below:
Option Explicit
Private Const SE_DEBUG_NAME As String = "SeDebugPrivilege"
Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20
Private Const TOKEN_QUERY As Long = &H8
Private Const SE_PRIVILEGE_ENABLED As Long = &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
TheLuid As LUID
Attributes As Long
End Type
Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef 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, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
Public Sub GetSeDebugPrivelege()
LoadPrivilege SE_DEBUG_NAME
End Sub
Public Function LoadPrivilege(ByVal Privilege As String) As Boolean
On Error GoTo ErrHandler
Dim hToken&, SEDebugNameValue As LUID, tkp As TOKEN_PRIVILEGES, hProcessHandle&, tkpNewButIgnored As TOKEN_PRIVILEGES, lBuffer&
hProcessHandle = GetCurrentProcess()
OpenProcessToken hProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hToken
LookupPrivilegeValue "", Privilege, SEDebugNameValue
With tkp
.PrivilegeCount = 1
.TheLuid = SEDebugNameValue
.Attributes = SE_PRIVILEGE_ENABLED
End With
AdjustTokenPrivileges hToken, False, tkp, Len(tkp), tkpNewButIgnored, lBuffer
LoadPrivilege = True
Exit Function
ErrHandler:
MsgBox "An error occurred retrieving SE_DEBUG_NAME prileges in the LoadPrivelege() function. Note: This program is running without debug priveleges, that may interfere with removing the infection.", vbCritical + vbOKOnly
Resume Next
End Function
- In the "modFiles" module, the code below:
Option Explicit
Public Function FileExists(sFile$) As Boolean
If Trim$(sFile) = vbNullString Then Exit Function
FileExists = IIf(Dir(sFile, vbArchive + vbHidden + vbReadOnly + vbSystem) <> vbNullString, True, False)
End Function
Public Function TrimNull$(sToTrim$)
If InStr(sToTrim, Chr(0)) > 0 Then
TrimNull = Left$(sToTrim, InStr(sToTrim, Chr(0)) - 1)
Else
TrimNull = sToTrim
End If
End Function
- In the "modInjection" module, the code below:
Option Explicit
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const INFINITE = &HFFFFFFFF
Private Const MEM_COMMIT = &H1000
Private Const MEM_RELEASE = &H8000
Private Const PAGE_READWRITE = &H4
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function InjectLibrary(lPID&, sLibrary$) As Long
Dim hProcess&, hThread&, lLinkToLibrary&, lSize&, hKernel&
If Not FileExists(sLibrary) Then
MsgBox "Archive doesn't exist!"
Exit Function
End If
If lPID = GetCurrentProcessId() Then
InjectLibrary = InjectIntoMe(sLibrary)
Exit Function
End If
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, lPID)
If hProcess = 0 Then
MsgBox "hProcess returned NULL"
Exit Function
End If
lSize = LenB(StrConv(sLibrary, vbFromUnicode)) + 1
lLinkToLibrary = VirtualAllocEx(hProcess, 0&, lSize, MEM_COMMIT, PAGE_READWRITE)
If lLinkToLibrary = 0 Then
CloseHandle hProcess
MsgBox "lLinkToLibrary failed"
Exit Function
End If
If (WriteProcessMemory(hProcess, lLinkToLibrary, ByVal sLibrary, lSize, ByVal 0&) = 0) Then
CloseHandle hProcess
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
MsgBox "WriteProcessMemory failed"
Exit Function
End If
hKernel = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
If hKernel = 0 Then
CloseHandle hProcess
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
MsgBox "hKernel returned NULL"
Exit Function
End If
hThread = CreateRemoteThread(hProcess, ByVal 0&, 0&, ByVal hKernel, lLinkToLibrary, 0, ByVal 0&)
If hThread = 0 Then
CloseHandle hKernel
CloseHandle hProcess
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
MsgBox "hThread returned NULL."
Exit Function
End If
WaitForSingleObject hThread, 2000
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
If hKernel <> 0 Then CloseHandle (hKernel)
If hThread <> 0 Then CloseHandle (hThread)
If hProcess <> 0 Then CloseHandle (hProcess)
InjectLibrary = 1
End Function
Private Function InjectIntoMe(sLibrary$) As Long
InjectIntoMe = LoadLibrary(sLibrary)
End Function
End of the tutorial. Have fun with your injector.
Cappie.
3 CommandButton
2 Text
3 Module
1 Timer
1 CommonDialog1(Microsoft Common Dialog Control 6.0)
1 Label
Tutorial:
- Add all the components and tools in the form and get ready
- Text1 will be the DLL searcher and Text2 to put the window name.
- Add the code below in the "Search" CommandButton:
Dim sTemp As String
CommonDialog1.FileName = "*.dll"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
- Add the code below in the "Auto-Inject Status- Off" CommandButton:
If Text1.Text = "" Then Exit Sub
If Text2.Text = "" Then Exit Sub
If Command1.Caption = "Status of the Injector: OFF" Then
Timer1.Enabled = True
Command1.Caption = "Status of the Injector : ON"
Exit Sub
Else
Command1.Caption = "Status of the Injector: OFF"
Timer1.Enabled = False
Label1.Caption = "Waiting to Inject DLL"
End If
- Put the code below in your project:
Option Explicit
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function GetWindowText Lib "User32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "User32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Const SW_SHOW = 5
- In the "Close" CommandButton, the code below:
End
- In the Form's Load event, the code below:
GetSeDebugPrivelege
Label1.Caption = "Waiting DLL Injection"
- In the Timer, the code below:
On Error Resume Next
Dim hwnd As Long
Dim pid As Long
Dim lSuccess&
Dim pHandle As Long
hwnd = FindWindow(vbNullString, Text2.Text)
GetWindowThreadProcessId hwnd, pid
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If hwnd = 0 Then
Label1.Caption = "Looking for the window name..."
Else
Label1.Caption = "Window name not found!"
GetWindowThreadProcessId hwnd, pid
Label1.Caption = pid
lSuccess = InjectLibrary(pid, Text1.Text)
End If
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
MsgBox pid
lSuccess = InjectLibrary(pid, App.Path & "\Morphine.dll")
If lSuccess > 0 Then
Label1.Caption = "DLL Injected with success!!"
Timer1.Enabled = False
Exit Sub
Else
Label1.Caption = "Waiting for the DLL Injection..."
End If
End Sub
Now the Modules part!
- Change the module names for the below's:
1st - modDebugPriveleges
2nd - modFiles
3rd - modInjection
- In the "modDebugPriveleges" add the below:
Option Explicit
Private Const SE_DEBUG_NAME As String = "SeDebugPrivilege"
Private Const TOKEN_ADJUST_PRIVILEGES As Long = &H20
Private Const TOKEN_QUERY As Long = &H8
Private Const SE_PRIVILEGE_ENABLED As Long = &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
TheLuid As LUID
Attributes As Long
End Type
Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, ByRef 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, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As Long
Public Sub GetSeDebugPrivelege()
LoadPrivilege SE_DEBUG_NAME
End Sub
Public Function LoadPrivilege(ByVal Privilege As String) As Boolean
On Error GoTo ErrHandler
Dim hToken&, SEDebugNameValue As LUID, tkp As TOKEN_PRIVILEGES, hProcessHandle&, tkpNewButIgnored As TOKEN_PRIVILEGES, lBuffer&
hProcessHandle = GetCurrentProcess()
OpenProcessToken hProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hToken
LookupPrivilegeValue "", Privilege, SEDebugNameValue
With tkp
.PrivilegeCount = 1
.TheLuid = SEDebugNameValue
.Attributes = SE_PRIVILEGE_ENABLED
End With
AdjustTokenPrivileges hToken, False, tkp, Len(tkp), tkpNewButIgnored, lBuffer
LoadPrivilege = True
Exit Function
ErrHandler:
MsgBox "An error occurred retrieving SE_DEBUG_NAME prileges in the LoadPrivelege() function. Note: This program is running without debug priveleges, that may interfere with removing the infection.", vbCritical + vbOKOnly
Resume Next
End Function
- In the "modFiles" module, the code below:
Option Explicit
Public Function FileExists(sFile$) As Boolean
If Trim$(sFile) = vbNullString Then Exit Function
FileExists = IIf(Dir(sFile, vbArchive + vbHidden + vbReadOnly + vbSystem) <> vbNullString, True, False)
End Function
Public Function TrimNull$(sToTrim$)
If InStr(sToTrim, Chr(0)) > 0 Then
TrimNull = Left$(sToTrim, InStr(sToTrim, Chr(0)) - 1)
Else
TrimNull = sToTrim
End If
End Function
- In the "modInjection" module, the code below:
Option Explicit
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const INFINITE = &HFFFFFFFF
Private Const MEM_COMMIT = &H1000
Private Const MEM_RELEASE = &H8000
Private Const PAGE_READWRITE = &H4
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Function InjectLibrary(lPID&, sLibrary$) As Long
Dim hProcess&, hThread&, lLinkToLibrary&, lSize&, hKernel&
If Not FileExists(sLibrary) Then
MsgBox "Archive doesn't exist!"
Exit Function
End If
If lPID = GetCurrentProcessId() Then
InjectLibrary = InjectIntoMe(sLibrary)
Exit Function
End If
hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, lPID)
If hProcess = 0 Then
MsgBox "hProcess returned NULL"
Exit Function
End If
lSize = LenB(StrConv(sLibrary, vbFromUnicode)) + 1
lLinkToLibrary = VirtualAllocEx(hProcess, 0&, lSize, MEM_COMMIT, PAGE_READWRITE)
If lLinkToLibrary = 0 Then
CloseHandle hProcess
MsgBox "lLinkToLibrary failed"
Exit Function
End If
If (WriteProcessMemory(hProcess, lLinkToLibrary, ByVal sLibrary, lSize, ByVal 0&) = 0) Then
CloseHandle hProcess
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
MsgBox "WriteProcessMemory failed"
Exit Function
End If
hKernel = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
If hKernel = 0 Then
CloseHandle hProcess
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
MsgBox "hKernel returned NULL"
Exit Function
End If
hThread = CreateRemoteThread(hProcess, ByVal 0&, 0&, ByVal hKernel, lLinkToLibrary, 0, ByVal 0&)
If hThread = 0 Then
CloseHandle hKernel
CloseHandle hProcess
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
MsgBox "hThread returned NULL."
Exit Function
End If
WaitForSingleObject hThread, 2000
If lLinkToLibrary <> 0 Then VirtualFreeEx hProcess, lLinkToLibrary, 0, MEM_RELEASE
If hKernel <> 0 Then CloseHandle (hKernel)
If hThread <> 0 Then CloseHandle (hThread)
If hProcess <> 0 Then CloseHandle (hProcess)
InjectLibrary = 1
End Function
Private Function InjectIntoMe(sLibrary$) As Long
InjectIntoMe = LoadLibrary(sLibrary)
End Function
End of the tutorial. Have fun with your injector.
Cappie.
Rapidshare Hacks and Tricks
|
Marcadores:
Tricks
Rapidshare is the most popular site in File sharing but it restrict the free user by applying download limit on daily bassis.
Therefore I decided to find a trick or two to bypass the Rapidshare download limit and waiting time.
I have gathered some Best Rapidshare tricks and Hack from various sources and compiled at one place, here.
Use a bookmarklet to stop your wait times (Only in Internet Explorer):
1. Open IE.
2. Save “javascript:var%20c=0;” without quotes to Favorites
3. Select "Yes" to the warning that the bookmark may be unsafe.
4. Name it “RapidShare No Wait", or anything you want.
5. Click on the Links folder (if you want to display it in your IE toolbar).
6. Click OK.
7. You may need to close and reopen IE to see it.
8. Go to rapidshare and click the bookmarklet when you are forced to wait.
- Trick No: 5
Use a proxy with SwitchProxy and Firefox:
1. Download and install Firefox (Click here)
2. Download and install SwitchProxy (Click Here)
3. When you reach your download limit, clean your cookies and change your proxy.
Well, that's it!
PS: I didn't made the tutorials, i found 'em in the Internet.
Therefore I decided to find a trick or two to bypass the Rapidshare download limit and waiting time.
I have gathered some Best Rapidshare tricks and Hack from various sources and compiled at one place, here.
-Trick No 1:
Request a new IP address from your ISP Server.
1. Click Start.
2. Click run.
3. In the run box type "cmd" and click OK.
4. When the command prompt opens type the following and hit enter after every new line.
ipconfig /flushdns
ipconfig /release
ipconfig /renew
exit
-Trick No 2:
Use Javascript Method.
1. Go to the page you want to download.
2.Choose FREE button.
3. In the address bar put the following: javascript:alert(c=0).
4. Click OK.
5. Click OK to the pop-up box.
6. Enter the captcha shown on the Page.
7. Download Your File.
-Trick No 3:
Erase your cookies and cache in browser you are using and try again to download the Rapidshare file again.
Use a bookmarklet to stop your wait times (Only in Internet Explorer):
1. Open IE.
2. Save “javascript:var%20c=0;” without quotes to Favorites
3. Select "Yes" to the warning that the bookmark may be unsafe.
4. Name it “RapidShare No Wait", or anything you want.
5. Click on the Links folder (if you want to display it in your IE toolbar).
6. Click OK.
7. You may need to close and reopen IE to see it.
8. Go to rapidshare and click the bookmarklet when you are forced to wait.
- Trick No: 5
Use a proxy with SwitchProxy and Firefox:
1. Download and install Firefox (Click here)
2. Download and install SwitchProxy (Click Here)
3. When you reach your download limit, clean your cookies and change your proxy.
Well, that's it!
PS: I didn't made the tutorials, i found 'em in the Internet.
Assinar:
Postagens (Atom)