New LoadLibrary Program

**006B** · 10-14-2011

USEFUL FOR...LOADLIB CSHELL OR SOMEONE HACK OR ANY DLL!!!

Make a new windows form application with a textbox, label, 2 buttons, and openfiledialoge.

Under your form class, put this

Code:

Public Declare Auto Function LoadLibrary Lib "kernel32" (ByVal lpLibFileName As String) As IntPtr

Under your first button, put this

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If LoadLibrary(TextBox1.Text) Then
            Label1.Text = "Loaded..."
        Else

            Label1.Text = "Not Loaded..."
        End If
    End Sub

Under your second button put this

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "C:\Program Files (x86)\Z8Games\CrossFire\"
        openFileDialog1.Filter = "dll files (*.dll)|*.dll"
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


            Try
                TextBox1.Text = openFileDialog1.FileName
            Catch ex As Exception

            End Try
            End If
    End Sub

Then add this code

Code:

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class

So it will look like this

Code:

Public Class Form1
    Public Declare Auto Function LoadLibrary Lib "kernel32" (ByVal lpLibFileName As String) As IntPtr
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If LoadLibrary(TextBox1.Text) Then
            Label1.Text = "Loaded..."
        Else

            Label1.Text = "Not Loaded..."
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "C:\Program Files (x86)\Z8Games\CrossFire\"
        openFileDialog1.Filter = "dll files (*.dll)|*.dll"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then


            Try
                TextBox1.Text = openFileDialog1.FileName
            Catch ex As Exception

            End Try
            End If
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
End Class

Credits

Code:

006b
Lauwy
Machida

Binary:

VSCAN 1

VirusTotal - Free Online Virus, Malware and URL Scanner

VSCAN 2

LoadLibrary.rar - Jotti's malware scan

FALSE POSITIVES BECAUSE THE SOURCE IS RIGHT THERE!

**[MPGH]Hero** · 10-14-2011

Fix your virus total scan. You need a screenshot as well. Also the virus scan jotti's file name doesn't match the file you attached.

**006B** · 10-15-2011

Originally Posted by Hero

Fix your virus total scan. You need a screenshot as well. Also the virus scan jotti's file name doesn't match the file you attached.

They are the same, because when I upload "LoadLibrary.rar" it cut off "brary" in the attachment...I don't know why.

PS: Fixed everything else, thanks

**Fly3r** · 10-15-2011

thanks for Posting this

**[P]owne[D]** · 10-15-2011

Looks verry nice and simple too

**Jigsaw** · 10-15-2011

The scans still doesn't match with the attachment's name.

**258456** · 10-15-2011

or you can make a really simple one like this in native c++:

Code:

#include <windows.h>
#include <iostream>
using namespace std;

int main()
{
char *dllname;

cout<<"Enter dll name here: ";
cin>>dllname;
LoadLibraryA(dllname);
system("PAUSE");
return 0;
}

But if you want a nice gui do 006B's way, lol. Good job though.