Visual Basic

<form action='login.php' method='post' name='login'>
    <b>User:<b> <input type=text name='username' maxlength=15 width=18><br/>
    <b>Password:<b> <input type=password name='password' maxlength=15 width=18><br/>
    <input type=submit value='Login'>   
</form>

<?php
   $dbaddress='localhost'; $dbuser='root'; $dbpass='root'; $dbname='yourdatabase';
   
$dbcnx = mysql_connect($dbaddress,$dbuser,$dbpass)
or die("Could not connect: " . mysql_error());
mysql_select_db($dbname, $dbcnx) or die ('Unable to select the database: ' . mysql_error());

$query = mysql_query("select password from jos_users where username = \"" . $_POST["username"] . "\"")
or die("Unable to validate login and password with the database:" . mysql_error());

$result = mysql_fetch_array($query);
$result = $result[0];
$parts = explode( ':', $result);

     // Check if password is md5-ed with or without salt
    if (count($parts) < 2) $new_password = md5($_POST["password"]); 
      else {
         $salt = $parts[1];
       
   // convert the raw password to md5(password+salt):salt model
         $new_password = md5($_POST["password"] . $salt) . ":" . $salt; 
            } 
    if ($new_password != $result)
          {
            echo "no login";  // your params
          }
       else
          {
            echo "successful validation";  // your params
          }
?>

$part = explode(":",$password);
$salt = $part[1];
$encrypted_password = md5($mypassword . $salt).":".$salt;
;

'Form1
Public Class Form1
    Inherits Form
End Class

'Class1
Public Class Class1
    'here I want to access form1. not using frm1.member and not usinig  dim ff as new form1, ff.member
    'I just want to access that form using me.parent

    Sub ParentAccess()
        Me.Parent.Text = "It's a compile time Error"
        'Error:- Parent is not a member of Class1
    End Sub

End Class

'User Control1
Public Class ctrl1
    Inherits ComboBox
    Sub ParentAccess()
        Me.Parent.Text = "Very easy to access but my class1 don't have the statment like Inherits ComboBox"
        'No Error:
    End Sub
End Class

Dim c As Control = DirectCast(sender, Control)
Dim cName As String = c.Name

Public Class Form1

    Private Structure Items

        Private strName As String
        Private intID As Integer
        Public Property Name() As String
            Get
                Return strName
            End Get
            Set(ByVal value As String)
                strName = value
            End Set
        End Property
        Public Property ID() As Integer
            Get
                Return intID
            End Get
            Set(ByVal value As Integer)
                intID = value
            End Set
        End Property
    End Structure

    Private lstItems As List(Of Items)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        lstItems = New List(Of Items)
        For i As Integer = 0 To 5
            Dim newItem As New Items
            newItem.Name = "Item " & i.ToString
            newItem.ID = i
            lstItems.Add(newItem)
        Next
        ComboBox1.DataSource = lstItems
        ComboBox1.DisplayMember = "Name"
        ComboBox1.ValueMember = "ID"

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        TextBox1.Text = CType(ComboBox1.SelectedItem, Items).Name

    End Sub
End Class