Visual Basic

Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption
#Region "Public Routines"
    const ENCRYPT_KEY AS STRING = "TEST"
    const ENCRYPT_VECTOR AS STRING = "CODEPRJT"

    Public Shared Function ToBase64(ByVal sDataToEncrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateEncryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Encoding.Default.GetBytes(sDataToEncrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Convert.ToBase64String(stream.ToArray())
    End Function

    Public Shared Function ToBase32(ByVal sDataToDecrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateDecryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Convert.FromBase64String(sDataToDecrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Encoding.Default.GetString(stream.ToArray())
    End Function
#End Region
End Class

For Each p As Point In myCoordinatesArrayL
    If p.X - mouse.X <= 1- Then
        ' You don't even need the GraphicsPath since you just
        ' found the point you're looking for!
        ' If you really needed to, you can do the same test for the Y coordinate in here.
    End If
Next

spruha369 wrote:

for my college
it is compulsory tat i make the project in vb6

I are troll

Public Sub CheckDirectories(ByVal root As IO.DirectoryInfo)
    For Each file In root.GetFiles("*.txt")
        'process the file
    Next
    For Each subDir In root.GetDirectories()
        CheckDirectories(root)
    Next
End Sub

' Command Click
Dim RootDir As New IO.DirectoryInfo("C:\MyFolder")
Call Module1.CheckDirectories(RootDir)

' Module1.CheckDirectories
Public Sub CheckDirectories(ByVal root As IO.DirectoryInfo)
    For Each file In root.GetFiles("*.txt")
        Debug.Print(file.Name) 'process the file
    Next
    For Each subDir In root.GetDirectories()
        CheckDirectories(root)
    Next
End Sub