New LoadLibrary Program

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!

LoadLi.rar

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.

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

thanks for Posting this

Looks verry nice and simple too

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

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.

Yes, thanks. This could be very useful.

Fack' you Diver xD..Good jobs

Fuck you too bro <3 Jk I love you xD

New LoadLibrary Program

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!

LoadLi.rar

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.

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

thanks for Posting this

Looks verry nice and simple too

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

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.

Yes, thanks. This could be very useful.

Fack' you Diver xD..Good jobs

Fuck you too bro <3 Jk I love you xD

New LoadLibrary Program

Post a Reply

Similar Threads

Tags for this Thread

New LoadLibrary Program

Post a Reply

Similar Threads

Tags for this Thread