Archivos de la categoría ‘Visual Basic.Net’

Despues de casi 6 meses que habia dejado de escribir en mi blog, ahora vuelvo con un articulo que me parecio bastante interesante…
Lo que hace este pequeño codigo es encriptar el querystring de una URL,bueno espero que les sea util este articulo.

Imports System
Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H12&H34&H56&H78&H90&HAB&HCD&HEF}

 Public Function Decrypt(ByVal stringToDecrypt As String_
      ByVal sEncryptionKey As StringAs String
      Dim inputByteArray(stringToDecrypt.LengthAs Byte
       Try
      key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey8))
       Dim des As New DESCryptoServiceProvider()
       inputByteArray = Convert.FromBase64String(stringToDecrypt)
       Dim ms As New MemoryStream()
       Dim cs As New CryptoStream(msdes.CreateDecryptor(keyIV), _
         CryptoStreamMode.Write)
          cs.Write(inputByteArray0inputByteArray.Length)
          cs.FlushFinalBlock()
      Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
          Return encoding.GetString(ms.ToArray())
      Catch e As Exception
          Return e.Message
      End Try
   End Function

   Public Function Encrypt(ByVal stringToEncrypt As String_
       ByVal SEncryptionKey As StringAs String
       Try
      key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey8))
          Dim des As New DESCryptoServiceProvider()
          Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes_
              stringToEncrypt)
          Dim ms As New MemoryStream()
        Dim cs As New CryptoStream(msdes.CreateEncryptor(keyIV), _
              CryptoStreamMode.Write)
          cs.Write(inputByteArray0inputByteArray.Length)
          cs.FlushFinalBlock()
          Return Convert.ToBase64String(ms.ToArray())
      Catch e As Exception
          Return e.Message
      End Try
   End Function

End Class

Mientras tengo un pequeño descanso voy a escribir este articulo que un amigo me pregunto como podia dibujar figuras con el mouse en visual basic.net, asi que aqui les dejo este codigo con el cual pueden dibujar rectangulos con el mouse y de ahi pueden hacer muchas cosas mas.

‘Creamos nuestro rectangulo
Dim SelectRect As Rectangle = New Rectangle()
‘Nuestros puntos que nos ayudaran para el dibujo del rectangulo
Dim ps As Point = New Point()
Dim pe As Point = New Point()

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
‘Obtenemos las cordenadas del puntero del mouse

SelectRect.Width = 0
SelectRect.Height = 0
SelectRect.X = e.X
SelectRect.Y = e.Y

ps.X = e.X
ps.Y = e.Y
pe = ps
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
‘Si se activa el Boton izquierdo del mouse
If (e.Button = Windows.Forms.MouseButtons.Left) Then

‘Dibujamos el rectangulo

ControlPaint.DrawReversibleFrame(Me.RectangleToScreen(SelectRect), Color.Black, FrameStyle.Dashed)

SelectRect.Width = e.X – SelectRect.X
SelectRect.Height = e.Y – SelectRect.Y

ControlPaint.DrawReversibleFrame(Me.RectangleToScreen(SelectRect), Color.Black, FrameStyle.Dashed)

End If

End Sub

Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp

Dim g As Graphics = Me.CreateGraphics()
Dim p As Pen = New Pen(Color.Blue, 2)

ControlPaint.DrawReversibleFrame(Me.RectangleToScreen(SelectRect), Color.Black, FrameStyle.Dashed)

g.DrawRectangle(p, SelectRect)
g.Dispose()
End Sub

Bueno espero que les sirva esta pequeño codigo.
Saludos!!