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!

How To Use The SaveFileDialog

First add a button or a menu strip saying "Save"
Double click on the button or menu strip
Put in this code: (You do not need to put in a SaveFileDialog)


  Dim SaveFile As New SaveFileDialog
        SaveFile.FileName = "Keys"
        SaveFile.Filter = "Text Files|*.txt"
        SaveFile.Title = "Save"
        SaveFile.ShowDialog()
        Try
            Dim Write As New System.IO.StreamWriter(SaveFile.FileName)
            Write.Write(TextBox1.Text)
            Write.Close()
        Catch ex As Exception
        End Try


The whole thing will be like this:

I won't be posting much unless after 24th of September as I am having a test
If you have any request about VB tutorials
Then send me an email
Email: tutorialsvb@hotmail.com

Progress Bar Control

Many people keep asking "How do you show the percentage for the progress bar"
Well it is actually quite simple

All you have to do is add just 2 lines of code:

ProgressBar1.Increment(1)
Label( ).Text = ProgressBar1.Value

If u still don't understand what I am saying
Then you may download the source code
Note: You need VB 2010 (Sorry)

Download link: http://www.4shared.com/file/e6DNxdIW/VBNET-Progress_Bar_Control.html

Kaspersky Licence Key Generator (Free Version)

This is my Kaspersky Anti-Virus 2010 Key Maker Free Edition
I made it myself in VB 2010

You may download if u wish
The link in the program doesn't work yet
No virus detected
Scan results: http://www.virustotal.com/analisis/8c4e88ad644cab143791d66f093ce31c8733d2c98b7dd215c2da39f82aac6e2f-1281107893


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