Protect your email and facebook account from being hacked

Following precautions will help you to protect yourself from phishing attacks..........

1. Do not click on links which redirect you to email's, facebook's or any social site's     login page.

2. Always open Email's  or Socials Site's Login Page by typing manually on address bar of your browser.

     e.g.   For Gmail Login type 'www.gmail.com' or for other login pages like               'www.mail.yahoo.com' or 'www.facebook.com' etc.

3. If you are a busy person and can't keep eye on address bar then on another option is    make your own HTML page of having links of 'GMAIL', 'YAHOO MAIL', 'FACEBOOK' and other    Login Pages you use frequently, and save on your desktop.

If you have any suggestions or more tips your comments are welcome.............

Enjoy, and Happy Surfing................... 

Vb.Net Function that converts currency from figures into words (Designed For Indian Currency )

Copy and paste into ur module to use directly on any windows form this can be used in web pages also.....


 ''' <summary>
    ''' This is the function which converts currency from figures into words
    ''' </summary>
    ''' <param name="Number"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function Figures_To_Words(ByVal Number As String) As String
        Figures_To_Words = "Rs."
        Dim arrNUM As String() = Split(Number, ".", )

        If Len(arrNUM(0)) = 1 Then
            Figures_To_Words &= SingleDigit(arrNUM(0))
        ElseIf Len(arrNUM(0)) = 2 Then
            Figures_To_Words &= TwoDigit(Right(arrNUM(0), 2))
        ElseIf Len(arrNUM(0)) = 3 Then
            Figures_To_Words &= ThreeDigit(arrNUM(0))
        ElseIf Len(arrNUM(0)) = 4 Then
            Figures_To_Words &= FourDigit(arrNUM(0))
        ElseIf Len(arrNUM(0)) = 5 Then
            Figures_To_Words &= FiveDigit(arrNUM(0))
        ElseIf Len(arrNUM(0)) = 6 Then
            Figures_To_Words &= SixDigit(arrNUM(0))
        ElseIf Len(arrNUM(0)) = 7 Then
            Figures_To_Words &= SevenDigit(arrNUM(0))
        End If

        Return UCase(Figures_To_Words & " Only")
    End Function

    Function SingleDigit(ByVal Digit As String) As String
        Select Case Val(Digit)
            Case 1 : SingleDigit = " One"
            Case 2 : SingleDigit = " Two"
            Case 3 : SingleDigit = " Three"
            Case 4 : SingleDigit = " Four"
            Case 5 : SingleDigit = " Five"
            Case 6 : SingleDigit = " Six"
            Case 7 : SingleDigit = " Seven"
            Case 8 : SingleDigit = " Eight"
            Case 9 : SingleDigit = " Nine"
            Case Else : SingleDigit = ""
        End Select
    End Function
    
    Function TwoDigit(ByVal Digit As String) As String
        TwoDigit = ""
        If Len(Digit) = 2 AndAlso Left(Digit, 1) = "1" Then
            Select Case Digit
                Case "10" : TwoDigit &= " Ten "
                Case "11" : TwoDigit &= " Eleven"
                Case "12" : TwoDigit &= " Twelve"
                Case "13" : TwoDigit &= " Thirteen"
                Case "14" : TwoDigit &= " Fourteen"
                Case "15" : TwoDigit &= " Fifteen"
                Case "16" : TwoDigit &= " Sixteen"
                Case "17" : TwoDigit &= " Seventeen"
                Case "18" : TwoDigit &= " Eighteen"
                Case "19" : TwoDigit &= " Nineteen"
            End Select
        ElseIf Val(Digit) >= 20 Then
            Select Case Left(Digit, 1)
                Case "2" : TwoDigit &= " Twenty"
                Case "3" : TwoDigit &= " Thirty"
                Case "4" : TwoDigit &= " Forty"
                Case "5" : TwoDigit &= " Fifty"
                Case "6" : TwoDigit &= " Sixty"
                Case "7" : TwoDigit &= " Seventy"
                Case "8" : TwoDigit &= " Eighty"
                Case "9" : TwoDigit &= " Ninty"
            End Select
            TwoDigit &= SingleDigit(Right(Digit, 1))
        End If

    End Function
    
    Function ThreeDigit(ByVal Digit As String) As String
        ThreeDigit = SingleDigit(Left(Digit, 1)) & " Hundreds" & TwoDigit(Right(Digit, 2))
    End Function
    
    Function FourDigit(ByVal Digit As String) As String
        FourDigit = SingleDigit(Left(Digit, 1)) & " Thousands" & ThreeDigit(Right(Digit, 3))
    End Function
    
    Function FiveDigit(ByVal Digit As String) As String
        FiveDigit = TwoDigit(Left(Digit, 2)) & " Thousands" & ThreeDigit(Right(Digit, 3))
    End Function
    
    Function SixDigit(ByVal Digit As String) As String
        SixDigit = SingleDigit(Left(Digit, 1)) & " Lacs" & FiveDigit(Right(Digit, 5))
    End Function
    
    Function SevenDigit(ByVal Digit As String) As String
        SevenDigit = TwoDigit(Left(Digit, 2)) & " Lacs" & FiveDigit(Right(Digit, 5))
    End Function