VB .NET - Cifrando e Decifrando arquivos Textos

Um programa completo feito na linguagem VB .NET para cifrar e decifrar arquivos textos de forma bem simples.

 
 

O código usado para cifrar e decifrar o texto foi criado em um Módulo chamado modEncriptar onde definimos dois métodos : Encriptar e Decriptar;

Conforme abaixo:

Imports System.Text

Module modEncriptar

    Public Function Encriptar(ByVal Source As String, ByVal Shift As Integer)
        Dim chars() As Byte = Encoding.ASCII.GetBytes(Source)
        Dim sb As New StringBuilder()

        'mantem no intervalo
        Shift = IIf(Shift > 25, 25, Shift)

        For x As Integer = 0 To chars.Length - 1
            Dim ch As Integer = chars(x)

            If (ch >= 65) And (ch <= 90) Then
                ch = (ch + Shift)
                If (ch > 90) Then
                    ch = (ch - 26)
                End If
            End If

            If (ch >= 97) And (ch <= 122) Then
                ch = (ch + Shift)
                If (ch > 122) Then
                    ch = (ch - 26)
                End If
                sb.Append(Chr(ch))
            Else
                sb.Append(Chr(ch))
            End If
        Next x

        Return sb.ToString()
        'libera
        sb = Nothing

    End Function

    Public Function Decriptar(ByVal Source As String, ByVal Shift As Integer)
        Dim chars() As Byte = Encoding.ASCII.GetBytes(Source)
        Dim sb As New StringBuilder()

        'mantem no intervalo
        Shift = IIf(Shift > 25, 25, Shift)

        For x As Integer = 0 To chars.Length - 1
            Dim ch As Integer = chars(x)

            If (ch >= 65) And (ch <= 90) Then
                ch = (ch - Shift)
                If (ch < 65) Then
                    ch = (ch + 26)
                End If
            End If

            If (ch >= 97) And (ch <= 122) Then
                ch = (ch - Shift)
                If (ch < 97) Then
                    ch = (ch + 26)
                End If
                sb.Append(Chr(ch))
            Else
                sb.Append(Chr(ch))
            End If
        Next x

        Return sb.ToString()
        'libera
        sb = Nothing

    End Function
End Module

Poderíamos ter usado uma classe com métodos estáticos. (Que tal exercitar e criar essa classe...)

Simples e objetivo para estudo, adaptações, melhorias, a seu dispor...

Pegue o projeto completo aqui: CifraDecifra.zip

Heb 1:1 Havendo Deus antigamente falado muitas vezes, e de muitas maneiras, aos pais, pelos profetas,

Heb 1:2 nestes últimos dias a nós nos falou pelo Filho, a quem constituiu herdeiro de todas as coisas, e por quem fez também o mundo;

Heb 1:3 sendo ele o resplendor da sua glória e a expressa imagem do seu Ser, e sustentando todas as coisas pela palavra do seu poder, havendo ele mesmo feito a purificação dos pecados, assentou-se à direita da Majestade nas alturas,

Heb 1:4 feito tanto mais excelente do que os anjos, quanto herdou mais excelente nome do que eles.

Referências:

José Carlos Macoratti