Public Class Form1
 
 
    Dim Alphabet As New Dictionary(Of String, Int16)
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        TextBox1.Text "abcdef"
 
        Alphabet.Add("a", 5)
        Alphabet.Add("b", 9)
        Alphabet.Add("c", 4)
        Alphabet.Add("d", 1)
        Alphabet.Add("e", 3)
        Alphabet.Add("f", 0)
       ' Alphabet.add(...
 
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each Character As String In TextBox1.Text
            TextBox1.Text = Replace(TextBox1.Text, Character, Alphabet.Item(Character))
        Next
    End Sub
 
 
End Class

@Echo OFF
 
Set "Drive=E"
Set "TempFolder=C:\Backup"
Set "RegEx=\.lnk$ \.tmp$ \.trashes$ autorun\.inf$"
 
:: Salvaguardar archivos
For /F "Tokens=*" %%# in ('Dir /B /S /A-D "*" ^| FINDSTR /V /I "%RegEx%"') Do (
 
	:: Crear el directorio
	If not exist "%TempFolder%\%%~p#" (
		Echo [+] Creando directorio: "%TempFolder%\%%~p#"
		MKDIR "%TempFolder%\%%~p#"
	)
 
	:: Copiar el archivo
	Echo [+] Copiando archivo: "%%#"
	Copy "%%#" "%TempFolder%\%%~p#\" 1>NUL
)
 
:: Formatear unidad
:: Echo s | Format "%Drive%:" /fs:fat32 /q
 
:: Restaurar archivos a la unidad
XCopy /E "%TempFolder%\*" "%Drive%:\"
 
 
Pause&Exit

makecert -r -pe -a sha1 -n "CN=ElektroSoft" -b 01/01/2013 -e 01/01/2050 -ss my -$ individual 

C:\Users\Administrador\Desktop\Nueva carpeta>CERTUTIL -store my
my
================ Certificado 0 ================
Número de serie: 586a7358ebdce8854def26875f0f38ab
Emisor: CN=localhost
 NotBefore: 22/02/2013 4:43
 NotAfter: 22/02/2018 2:00
Sujeto: CN=localhost
La firma coincide con la clave pública
Certificado raíz: el sujeto coincide con el emisor
Plantilla:
Hash de cert(sha1): 1b 92 19 ef 19 ce d1 09 ad 87 13 73 56 0c cf 0a 57 29 cf 81
  Contenedor de claves = IIS Express Development Certificate Container
  Nombre de contenedor exclusivo: fad662b360941f26a1193357aab3c12d_a61f2a11-eaf9
-4c14-9a63-d3613bf3bd2c
  Proveedor = Microsoft RSA SChannel Cryptographic Provider
Prueba de cifrado correcta
CertUtil: -store comando completado correctamente.
 

MsgBox(WeekdayName(1))

#Region " Use Proxy "
 
    ' [ Use Proxy ]
    '
    ' Examples :
    ' Use_Proxy("213.181.73.145:80") 
    ' WebBrowser1.Navigate("http://www.ipchicken.com/")
 
    <Runtime.InteropServices.DllImport("wininet.dll", SetLastError:=True)> _
    Private Shared Function InternetSetOption(ByVal hInternet As IntPtr, ByVal dwOption As Integer, ByVal lpBuffer As IntPtr, ByVal lpdwBufferLength As Integer) As Boolean
    End Function
 
    Public Structure Struct_INTERNET_PROXY_INFO
        Public dwAccessType As Integer
        Public proxy As IntPtr
        Public proxyBypass As IntPtr
    End Structure
 
    Private Sub Use_Proxy(ByVal strProxy As String)
        Const INTERNET_OPTION_PROXY As Integer = 38
        Const INTERNET_OPEN_TYPE_PROXY As Integer = 3
 
        Dim struct_IPI As Struct_INTERNET_PROXY_INFO
 
        struct_IPI.dwAccessType = INTERNET_OPEN_TYPE_PROXY
        struct_IPI.proxy = Marshal.StringToHGlobalAnsi(strProxy)
        struct_IPI.proxyBypass = Marshal.StringToHGlobalAnsi("local")
 
        Dim intptrStruct As IntPtr = Marshal.AllocCoTaskMem(Marshal.SizeOf(struct_IPI))
 
        Marshal.StructureToPtr(struct_IPI, intptrStruct, True)
 
        Dim iReturn As Boolean = InternetSetOption(IntPtr.Zero, INTERNET_OPTION_PROXY, intptrStruct, System.Runtime.InteropServices.Marshal.SizeOf(struct_IPI))
    End Sub
 
#End Region