My new hacking site

Link: http://www.cphacks-slvjr.blogspot.com

WebKitBrowser

1.Download The Webkit Engine for .net applications. Link: http://webkitdotnet.sourceforge.net/downloads.php and click the
   binary download

2.Make The Project
   Once You Made The Project Add (properties included)
   Five Buttons:

• name: buttonback text: Back
• name: buttonforward text: Forward
• name: buttonsr text: Stop
• name: buttongo text: Go anchor: top right
• name: buttonSearch text: Search anchor: top right

Don't Worry About Refresh

2 Comboboxs

• name: urltxt anchor: left top right autocompletemode: SuggestAppend autocompletesource: allurl
• name: searchtxt anchor: top right autocompletemode: SuggestAppend autocompletesource: historylist

3.Save and build your project
   In the file that you downloaded, copy everything except the *.exe file to your debug folder and release folder (C:\Documents and Settings\%user%\My Documents\Visual Studio 2005/2008/2010\%projectname%\%projectname%\bin\Debug) and (C:\Documents and Settings\%user%\My Documents\Visual Studio 2005/2008/2010\%projectname%\%projectname%\bin\Release)

4.Copy the entire code:

Private Sub Buttonback_Click(ByVal sender As System.Object, ByVal e

 As System.EventArgs) Handles Buttonback.Click
       WebBrowser.GoBack()
    End Sub
    Private Sub buttongo_Click(ByVal sender As System.Object, ByVal

 e As System.EventArgs) Handles buttongo.Click
        WebBrowser.Navigate(urltxt.Text)
    End Sub
    Private Sub Buttonsr_Click(ByVal sender As System.Object, ByVal

 e As System.EventArgs) Handles Buttonsr.Click
        If Buttonsr.Text = "Stop" Then
            WebBrowser.Stop()
        ElseIf Buttonsr.Text = "Refresh" Then 
            WebBrowser.Navigate(WebBrowser.Url.ToString) ' Then

 refresh the browser
        End If
    End Sub
    Private Sub Buttonforward_Click(ByVal sender As System.Object,

 ByVal e As System.EventArgs) Handles Buttonforward.Click
        WebBrowser.GoForward() 
    End Sub
    Private Sub buttonsearch_Click(ByVal sender As System.Object,

 ByVal e As System.EventArgs) Handles buttonsearch.Click
        WebBrowser.Navigate("http://www.google.com/search?hl=en&

source=hp&q=" & searchtxt.Text) ' Search Google
    End Sub

    Private Sub WebBrowser_DocumentCompleted(ByVal sender As

 Object, ByVal e As System.Windows.Forms.

WebBrowserDocumentCompletedEventArgs) Handles WebBrowser.

DocumentCompleted
        Try
            urltxt.Text = WebBrowser.Url.AbsoluteUri
        Catch ex As Exception
            WebBrowser.Navigate("http://google.com")
        End Try
        Me.Text = WebBrowser.DocumentTitle & " | Webkit Browser"
        Buttonsr.Text = "Refresh"
    End Sub

    Private Sub WebBrowser_DownloadBegin(ByVal sender As

 Object, ByVal e As WebKit.FileDownloadBeginEventArgs) 

Handles WebBrowser.DownloadBegin
        Process.Start

(e.Download.FilePath.ToString)
    End Sub

    Private Sub WebBrowser_Navigating(ByVal sender As Object,

 ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)

 Handles WebBrowser.Navigating
        Buttonsr.Text = "Stop"
    End Sub

    Private Sub WebBrowser_NewWindowRequest(ByVal sender As

 Object, ByVal e As WebKit.NewWindowRequestEventArgs) Handles

 WebBrowser.NewWindowRequest
        Dim frm As New Form1
        frm.Show()
        frm.WebBrowser.Navigate(e.Url.ToString)
    End Sub

    Private Sub searchtxt_KeyDown(ByVal sender As Object, ByVal

 e As System.Windows.Forms.KeyEventArgs) Handles searchtxt.KeyDown
        If e.KeyCode = Keys.Enter Then
            WebBrowser.Navigate("http://www.google.com/search?hl=en&

source=hp&q=" & searchtxt.Text)
        End If
    End Sub

    Private Sub urltxt_KeyDown(ByVal sender As Object, ByVal e As 

System.Windows.Forms.KeyEventArgs) Handles urltxt.KeyDown
        If e.KeyCode = Keys.Enter Then
            WebBrowser.Navigate(urltxt.Text)
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles MyBase.Load
        WebBrowser.TabStop = True
        WebBrowser.TabIndex = 1
        Buttonback.TabStop = False
        Buttonforward.TabStop = False
        Buttonsr.TabStop = False
        buttongo.TabStop = False
        buttonsearch.TabStop = False
        Me.WindowState = FormWindowState.Maximized
    End Sub

 Note: If it doesn't work, just debug the program and try again
           This project may not be able to download anything yet, I will post the file downloader soon

Coming Soon After September 24th

Coming Soon After September 24th:

1.Finding a program's MD5 code (Contest)
2.30-days trial

How To Make A File Deleter

Add 2 Buttons, 1 Label and 1 TextBox called Browse, Delete, Path
Double-click on Browse and type in the following code:

Dim OpenFile As New OpenFileDialog
        OpenFile.Title = "Open"
        OpenFile.Filter = "All Files|*.*"
        OpenFile.ShowDialog()
        TextBox1.Text = OpenFile.FileName

Next, double-click on Delete and type in the following code:
Kill (TextBox1.Text)

Before:

After:

It's gone

Project download link: http://www.4shared.com/file/RRcZS90v/VBNET-File_Deleter.html

How To Use The OpenFileDialog

Add a button called Browse
Double-click on it and insert the following codes:

Dim OpenFile As New OpenFileDialog
        OpenFile.Title = "Open"
        OpenFile.Filter = "All Files|*.*"
        OpenFile.ShowDialog()
        TextBox1.Text = OpenFile.FileName

Kaspersky Anti-Virus 2010 Key Maker Full Edition (Beta)

This program is still in beta
Functions:
*Saves code to a .txt file
*Lock your program so no one can use it (Work in progress)

Download link: http://www.4shared.com/file/eHJB7eVj/Kaspersky_Anti-Virus_2010_Key_.html

How To Make A MD5 Encryter

Well, today I am going to teach you how to make a MD5 encrypter
I will teach you how to make a MD5 decrypter soon
But I am not done with my MD5 decrypter

Insert 2 Labels
2 TextBoxes
and
1 Button

Name the 2 Labels
1 Input and the other one Output
Rename the button to Encrypt

So you have something like this:

Paste this code into your project:
Private Function StringToMD5(ByVal Content) As String
        Dim M5 As New Security.Cryptography.MD5CryptoServiceProvider

        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        ByteString = M5.ComputeHash(ByteString)

        Dim FinalString As String = Nothing
        For Each bt As Byte In ByteString
            FinalString &= bt.ToString("x2")
        Next
        Return FinalString
    End Function

Once you're done
Double click on your button
Type in the following code:
  txtOutput.Text = StringToMD5(txtInput.Text)

Done!