#Region " Trial Period Function "
 
       ' [ Trial Period Function ]
       '
       ' Examples :
       ' Trial_Get(Trial_value.As_Boolean)
       ' MsgBox(String.Format("You have {0} day(s) remaining.", Trial_Get(Trial_value.As_LeftDays)))
 
       Public Enum Trial_value
           As_Boolean
           As_LeftDays
           As_CountDays
       End Enum
 
       ' Trial Period [Get]
       Public Function Trial_Get(ByVal Trial_value As Trial_value)
           'My.Settings.Reset() 'If you want to reset the trial period
           Dim TrialCount As Integer = 0
           TrialCount += 1
           Return Trial_CheckDate(Date.Now.AddDays(TrialCount), Trial_value)
       End Function
 
       ' Trial Period [CheckDate]
       Public Function Trial_CheckDate(ByVal Trial_DateToCheck As Date, ByVal Trial_value As Trial_value)
 
           Dim Trial_retValue As Boolean = False ' Fail safe, default to false
           Dim Trial_usageDatesLeft As Int16 = 7 ' Set here the number of days of Trial period
           Dim Trial_hashedDate As String = Trial_HashDate(Trial_DateToCheck)
 
           If My.Settings.Trial_Period Is Nothing Then My.Settings.Trial_Period = New System.Collections.Specialized.StringCollection
 
           If My.Settings.Trial_Period.Contains(Trial_hashedDate) Then
               Trial_retValue = True
               Trial_usageDatesLeft = CShort(Trial_usageDatesLeft - My.Settings.Trial_Period.Count)
               If Trial_usageDatesLeft <= 0 AndAlso My.Settings.Trial_Period.IndexOf(Trial_hashedDate) <> My.Settings.Trial_Period.Count - 1 Then Trial_retValue = False
           Else
               If My.Settings.Trial_Period.Count < Trial_usageDatesLeft Then My.Settings.Trial_Period.Add(Trial_hashedDate)
               Trial_usageDatesLeft = CShort(Trial_usageDatesLeft - My.Settings.Trial_Period.Count)
               If Trial_usageDatesLeft > 0 Then Trial_retValue = True Else Trial_retValue = False
           End If
 
           Select Case Trial_value
               Case Trial_value.As_Boolean : Return Trial_retValue ' If False then Trial Period is expired
               Case Trial_value.As_LeftDays : Return Trial_usageDatesLeft ' Days left
               Case Trial_value.As_CountDays : Return My.Settings.Trial_Period.Count ' Count days
               Case Else : Return Nothing
           End Select
 
       End Function
 
       ' Trial Period [HashDate]
       Public Function Trial_HashDate(ByVal Trial_DateToHash As Date) As String
           Dim Trial_Hasher As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
           Dim Trial_Data As Byte() = Trial_Hasher.ComputeHash(System.Text.Encoding.Default.GetBytes(Trial_DateToHash.ToLongDateString()))
           Dim Trial_StringBuilder As New System.Text.StringBuilder()
           Dim Trial_IDX As Integer
           For Trial_IDX = 0 To Trial_Data.Length - 1 : Trial_StringBuilder.Append(Trial_Data(Trial_IDX).ToString("x2")) : Next Trial_IDX
           Return Trial_StringBuilder.ToString
       End Function
 
    #End Region

#Region " Change Service Status "
 
    ' [ Change Service Status Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' Add a reference for "System.ServiceProcess"
    '
    ' Examples :
    ' MsgBox(Change_Service_Status("Temas", Service.StopIt))
    ' MsgBox(Change_Service_Status("Temas", Service.RunIt, True))
 
    Public Enum Service
        RunIt = True
        StopIt = False
    End Enum
 
    Function Change_Service_Status(ByVal ServiceName As String, _
                                   ByVal Run As Service, _
                                   Optional Wait As Boolean = False) As Boolean
 
        Try
            Dim Service As New System.ServiceProcess.ServiceController(ServiceName)
 
            Select Case Service.Status
                Case System.ServiceProcess.ServiceControllerStatus.Stopped And Run
                    Service.Start()
                    If Wait Then Service.WaitForStatus(System.ServiceProcess.ServiceControllerStatus.Running)
                Case System.ServiceProcess.ServiceControllerStatus.Running And Not Run
                    Service.Stop()
                    If Wait Then Service.WaitForStatus(System.ServiceProcess.ServiceControllerStatus.Stopped)
            End Select
 
            Service.Dispose()
            Return True
 
        Catch ex As Exception
            ' Throw New Exception(ex.Message)
            Return False
        End Try
 
    End Function
 
#End Region

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))