Mundo-Informatico

Mundo-Informatico By Minedosantox
 
ÍndiceÍndice  CalendarioCalendario  FAQFAQ  BuscarBuscar  MiembrosMiembros  Grupos de UsuariosGrupos de Usuarios  RegistrarseRegistrarse  ConectarseConectarse  
Bienvenidos a mi foro Mundo-Informatico xD By Minedosantox
Navegación
 Portal
 Índice
 Miembros
 Perfil
 FAQ
 Buscar
Foro
Noticias
Últimos temas
» Encristar Codigos
Miér Oct 27, 2010 2:01 pm por Minedosantox

» Nuevo Taller
Mar Oct 26, 2010 7:59 pm por Minedosantox

» Me Presento soy el staff
Lun Oct 25, 2010 7:47 pm por Minedosantox

» Rangos del foro
Lun Oct 25, 2010 7:42 pm por Minedosantox

» TEMA PARA LAS PERSONAS QUE BUSCAN EL CODIGO DE FIRMA!
Lun Oct 25, 2010 5:32 am por Minedosantox

» Respuesta rapida
Lun Oct 25, 2010 5:31 am por Minedosantox

» Poniendo Pop Up
Lun Oct 25, 2010 5:31 am por Minedosantox

» Reglamentos de los foros
Dom Oct 24, 2010 10:45 pm por Minedosantox

» Ya Pusimos Resuelto y en curso
Dom Oct 24, 2010 10:31 pm por Minedosantox

Mejores posteadores
Minedosantox
 

Get your own Chat Box! Go Large!
Spirate v2 Buscar en Spirate v2 UTF-8 data:image/x-icon;base64,R0lGODlhEAAQAPcAAAAAAD06GicnJzU4MWR1KW98Ok5LVk1RSFBWS1VbTmZYXGBcYHV1epsME7IHDLUXHLoQE5tlAIRmIYl1LZt6LZl%2BOq94Aap%2BJaB%2FNptBRJFYXYR7Sq9ye7J3e8kAANMqL9MuMegAAP8AAP8ABP8REe8mKfksMP8yMv9ERISbJoWWM5StJpClMJ21J7KILIuTXpaDWoyTao%2BZZpKbZrfJQv%2BdAOWpHf%2BqAP%2B7AOWzKdOnQcXYSdbqUuLDU%2B3OXv%2FaR%2F%2FYT%2F%2FWZv%2Fdd%2F%2FdepOXnpKbm5uTmKWfk7KJlLKJl7KNmrqLmKi1t662urexpbO2t7G6vLq4tLzC0%2F%2BJifSlpP%2B%2Fv8zDm9HGmtjlhd3qhd3thN%2FqofTTi%2Bj3iuj5hu%2F%2Fh%2BXyne78kv%2Flh%2Bj0pP%2Frtf%2Fut%2FD8rv%2FztcbGxsjIztHR0dHS1tfe79zd4tre6P%2Fd3f%2F%2Fyf%2F62%2BLi4uLh6uPj6OTj7ebm7eXp6ubo7ejo7fT0%2Bff4%2Bff8%2FPn5%2Bfz8%2FP%2F%2F%2FwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAP8ALAAAAAAQABAAAAjJAAEIHEhwoAABAv8oXHiHQYeFff4kXPiHj5EPDqhQnLiQCQgRIR5UWcjxDxQIIkSc8GDijUKOTTKMEEECRYkGU14C%2BOPnyQINHJYgSaLEgAI0Enf6USOnyAQfPXLYkEBkTVKKTirEISMGiIU2e64ujEJhSJAyQi64iVhSSoQaN85wwYBHJ0U2Lm7g%2BKEDBh09egTmsVNnTpojV6xsCDDgAIIEAmfEkPGiAIEUK1qwUEFjBw%2BBWbx8%2BeIFi5YuYcBsGWMGTsHXrwMCADs%3D http://www.yelidmod.com/web/

Comparte | 
 

 Encristar Codigos

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Minedosantox
Administrador
Administrador
avatar

Post: : 53
Gracias : 4
Fecha de inscripción : 22/10/2010
Edad : 27

MensajeTema: Encristar Codigos   Miér Oct 27, 2010 2:01 pm

Encriptar Querystring

Octubre 29, 2008
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 String) As String
Dim inputByteArray(stringToDecrypt.Length) As Byte
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
inputByteArray = Convert.FromBase64String(stringToDecrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateDecryptor(key, IV), _
CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.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 String) As String
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes( _
stringToEncrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), _
CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Return e.Message
End Try
End Function

End Class
Volver arriba Ir abajo
Ver perfil de usuario http://mundo-informatico.espana-foro.org
 
Encristar Codigos
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» codigos html con sonidos como lo puedo hacer
» Donde Se Colocan los Codigos HTML
» Problema con scripts (codigos) de videos
» ¿COMO PUDO ACER PARA CUANDO SE REGISTREN LOS SALAG PARA K PONGAS CODIGOS POSTAS NII ESAS CATEGORIAS
» Sin visualización de Codigos CSS

Permisos de este foro:No puedes responder a temas en este foro.
Mundo-Informatico :: Códigos :: Html-
Cambiar a: