Jump to content

Codificador


Revolt

Recommended Posts

Primeiro que tudo só queria dizer que o fórum ta muito fixe e que dá um jeitão para tirar dúvidas. Embora já cá estivesse registado há algum tempo, esta vai ser a minha primeira mensagem (espero k n esteja a fazer asneira  😛 )

Ora bem este tópico tem como principal objectivo mostrar um trabalho que fiz em Visual Basic (o meu 2º trabalho). Para a maior parte de vocês isto provavelmente é canja de fazer e por isso mesmo queria que dessem as vossas opiniões acerca do programa (e já agora ver se o installer funciona porque não tenho oportunidade de testá-lo em vários pcs).

Link: http://www.fileden.com/files/2006/5/24/34588/Codificador.zip

Codificador transforma um texto normal em texto codificado e vice-versa e permite gravar quer os textos em ficheiros .txt ou abrir ficheiros txt existentes  🙂

Cumprimentos,

Pauzinhos  😉

EDIT: Para instalar é só carregar em Setup.exe ^^

Revolt Website Antigo Nick: Pauzinhos
Link to comment
Share on other sites

Acho que está aqui um grande software de encriptação de texto...

eh obrigado!  😉

Se não te importasses de disponibilizar o código fonte do programa é que era giro  Cheesy. Claro que é só uma ideia  Wink.

Somos muito apoiantes do OSS  Smiley

sure. O código fonte é este:

Public Class Form1

    Dim normal As String
    Dim coded As String




    Private Sub btncode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncode.Click

        normal = txtnormal.Text
        'Substitui a letra "x" pela expressão "xy"
        coded = Replace(normal, "a", "gz")
        coded = Replace(coded, "b", "qd")
        coded = Replace(coded, "c", "mr")
        coded = Replace(coded, "d", "cx")
        coded = Replace(coded, "e", "wz")
        coded = Replace(coded, "f", "ef")
        coded = Replace(coded, "g", "av")
        coded = Replace(coded, "h", "gb")
        coded = Replace(coded, "i", "ad")
        coded = Replace(coded, "j", "kb")
        coded = Replace(coded, "k", "cj")
        coded = Replace(coded, "l", "yn")
        coded = Replace(coded, "m", "ul")
        coded = Replace(coded, "n", "ot")
        coded = Replace(coded, "o", "sn")
        coded = Replace(coded, "p", "mv")
        coded = Replace(coded, "q", "yp")
        coded = Replace(coded, "r", "kx")
        coded = Replace(coded, "s", "ut")
        coded = Replace(coded, "t", "qh")
        coded = Replace(coded, "u", "of")
        coded = Replace(coded, "v", "ir")
        coded = Replace(coded, "w", "il")
        coded = Replace(coded, "x", "wh")
        coded = Replace(coded, "y", "sp")
        coded = Replace(coded, "z", "ej")
        coded = Replace(coded, "1", "6p")
        coded = Replace(coded, "2", "9t")
        coded = Replace(coded, "3", "2v")
        coded = Replace(coded, "4", "7z")
        coded = Replace(coded, "5", "1d")
        coded = Replace(coded, "6", "0b")
        coded = Replace(coded, "7", "3p")
        coded = Replace(coded, "8", "6h")
        coded = Replace(coded, "9", "3x")
        coded = Replace(coded, "0", "1l")
        coded = Replace(coded, "!", "7f")
        coded = Replace(coded, "?", "9l")
        coded = Replace(coded, ":", "0n")
        coded = Replace(coded, ";", "2h")
        coded = Replace(coded, ".", "8j")
        coded = Replace(coded, "-", "8x")
        coded = Replace(coded, ",", "5d")
        coded = Replace(coded, " ", "aa")
        'Inverte o código criado
        coded = StrReverse(coded)

        txtcodificado.Text = coded

    End Sub

    Private Sub btnuncode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnuncode.Click
        coded = txtcodificado.Text
        'Inverte o texto codificado
        coded = StrReverse(coded)
        'Substitui a expressão "xy" pela letra "x"
        normal = Replace(coded, "aa", " ")
        normal = Replace(normal, "5d", ",")
        normal = Replace(normal, "8x", "-")
        normal = Replace(normal, "8j", ".")
        normal = Replace(normal, "2h", ";")
        normal = Replace(normal, "0n", ":")
        normal = Replace(normal, "9l", "?")
        normal = Replace(normal, "7f", "!")
        normal = Replace(normal, "1l", "0")
        normal = Replace(normal, "3x", "9")
        normal = Replace(normal, "6h", "8")
        normal = Replace(normal, "3p", "7")
        normal = Replace(normal, "0b", "6")
        normal = Replace(normal, "1d", "5")
        normal = Replace(normal, "7z", "4")
        normal = Replace(normal, "2v", "3")
        normal = Replace(normal, "9t", "2")
        normal = Replace(normal, "6p", "1")
        normal = Replace(normal, "ej", "z")
        normal = Replace(normal, "sp", "y")
        normal = Replace(normal, "wh", "x")
        normal = Replace(normal, "il", "w")
        normal = Replace(normal, "ir", "v")
        normal = Replace(normal, "of", "u")
        normal = Replace(normal, "qh", "t")
        normal = Replace(normal, "ut", "s")
        normal = Replace(normal, "kx", "r")
        normal = Replace(normal, "yp", "q")
        normal = Replace(normal, "mv", "p")
        normal = Replace(normal, "sn", "o")
        normal = Replace(normal, "ot", "n")
        normal = Replace(normal, "ul", "m")
        normal = Replace(normal, "yn", "l")
        normal = Replace(normal, "cj", "k")
        normal = Replace(normal, "kb", "j")
        normal = Replace(normal, "ad", "i")
        normal = Replace(normal, "gb", "h")
        normal = Replace(normal, "av", "g")
        normal = Replace(normal, "ef", "f")
        normal = Replace(normal, "wz", "e")
        normal = Replace(normal, "cx", "d")
        normal = Replace(normal, "mr", "c")
        normal = Replace(normal, "qd", "b")
        normal = Replace(normal, "gz", "a")

        txtnormal.Text = normal
    End Sub

    Private Sub btnnew1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnew1.Click
        'Apaga a 1ª caixa de texto
        txtnormal.Text = String.Empty
    End Sub

    Private Sub btnnew2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnew2.Click
        'Apaga a 2ª caixa de texto
        txtcodificado.Text = String.Empty
    End Sub

    Private Sub btnopen1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen1.Click
        'Abre um ficheiro .txt na 1ª caixa de texto
        Me.OpenFileDialog1.Title = "Abrir..."
        Me.OpenFileDialog1.FileName = ""
        Me.OpenFileDialog1.Filter = "Ficheiros de Texto (*.txt)|*.txt|All files (*.*)|*.*"
        Me.OpenFileDialog1.FilterIndex = 1
        If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtnormal.Text = My.Computer.FileSystem.ReadAllText(Me.OpenFileDialog1.FileName)

        End If

    End Sub

    Private Sub btnopen2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen2.Click
        'Abre um ficheiro .txt na 2ª caixa de texto
        Me.OpenFileDialog1.Title = "Abrir..."
        Me.OpenFileDialog1.FileName = ""
        Me.OpenFileDialog1.Filter = "Ficheiros de Texto (*.txt)|*.txt|All files (*.*)|*.*"
        Me.OpenFileDialog1.FilterIndex = 1
        If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtcodificado.Text = My.Computer.FileSystem.ReadAllText(Me.OpenFileDialog1.FileName)

        End If

    End Sub

    Private Sub btnsave1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave1.Click
        'Guarda o conteúdo da 1ª caixa de texto
        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "txt"
        Me.SaveFileDialog1.Filter = "Ficheiros de Texto (*.txt)|*.txt|All files (*.*)|*.*"
        Me.SaveFileDialog1.FilterIndex = 1
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.WriteAllText(Me.SaveFileDialog1.FileName, Me.txtnormal.Text, False)

        End If
    End Sub

    Private Sub btnsave2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave2.Click
        'Guarda o conteúdo da 2ª caixa de texto
        Me.SaveFileDialog1.Title = "Guardar..."
        Me.SaveFileDialog1.DefaultExt = "txt"
        Me.SaveFileDialog1.Filter = "Ficheiros de Texto (*.txt)|*.txt|All files (*.*)|*.*"
        Me.SaveFileDialog1.FilterIndex = 1
        If Me.SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.WriteAllText(Me.SaveFileDialog1.FileName, Me.txtcodificado.Text, False)

        End If
    End Sub

   
    Private Sub btncut1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncut1.Click
        'Corta o conteúdo da 1ª caixa
        My.Computer.Clipboard.SetText(Me.txtnormal.Text)
        txtnormal.Text = String.Empty
    End Sub

    Private Sub btncut2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncut2.Click
        'Corta o conteúdo da 2ª caixa
        My.Computer.Clipboard.SetText(Me.txtcodificado.Text)
        txtcodificado.Text = String.Empty
    End Sub

    Private Sub btncopy1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncopy1.Click
        'Copia o conteúdo da 1ª caixa
        My.Computer.Clipboard.SetText(Me.txtnormal.Text)
    End Sub

    Private Sub btncopy2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncopy2.Click
        'Copia o conteúdo da 2ª caixa
        My.Computer.Clipboard.SetText(Me.txtcodificado.Text)
    End Sub

    Private Sub btnpaste1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpaste1.Click
        'Cola o texto que se encontra no clipboard na 1ª caixa
        Dim normal As String = My.Computer.Clipboard.GetText
        txtnormal.Text = normal

    End Sub

    Private Sub btnpaste2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpaste2.Click
        'Cola o texto que se encontra no clipboard na 2ª caixa
        Dim coded As String = My.Computer.Clipboard.GetText
        txtcodificado.Text = coded
    End Sub

   
    Private Sub btnsobre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsobre.Click
        'Abre a janela Sobre/Acerca
        Dim frmform As New About
        frmform.ShowDialog(Me)
    End Sub

    Private Sub btnajuda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnajuda.Click
        'Abre a janela Ajuda
        Dim help As New Dialog1
        Dialog1.ShowDialog(Me)
    End Sub

    Private Sub btnsair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsair.Click
        'Encerra o programa
        Close()
    End Sub
End Class

a = jeria

Por acaso é "a = airej" ^^

Revolt Website Antigo Nick: Pauzinhos
Link to comment
Share on other sites

  • 4 weeks later...
  • 2 months later...

como podes ver pelo source não há qualquer tipo de password integrada. Eu fiz isto (para além da razão mais óbvia de particar vb.net) para partilhar informação confidencial, através de meios públicos, com certos amigos para os quais envio o programa e, portanto, não havia necessidade para estar a integrar um sistema de passwords ^^

Revolt Website Antigo Nick: Pauzinhos
Link to comment
Share on other sites

Eu fiz isto (para além da razão mais óbvia de particar vb.net) para partilhar informação confidencial, através de meios públicos, com certos amigos para os quais envio o programa e, portanto, não havia necessidade para estar a integrar um sistema de passwords ^^

Em princípio apenas os meus amigos teriam acesso ao programa e como tal, apenas eles saberiam como decifrar o código.

Revolt Website Antigo Nick: Pauzinhos
Link to comment
Share on other sites

ya tb... mas tu passado um bocado conseguias perceber a que letra pertencia o codigo ! ? (tornava-se sempre rotativo ) ja da maneira que tava a dixer é sempre aleatorio, mas tb decifravel! 😉 Vou te explicar ...

Num algorimto k use chaves 8 bits , apenas 256 chaves poderão ser usadas na decodificação, pois 2 elevado a 8 = 256. Então podemos concluir que a 8 bits n é seguro, pois até uma pessoa é capaz de gerar as 256 combinações, agora imagina um programa.

Logo quanto mais bits forem utilizados mais egura será a criptografia! (em relação a password). Por isso é que vez em alguns programas quanto maior for a password mais "Stronger é"

Link to comment
Share on other sites

  • 4 months later...

A minha opinião é a seguinte:

Conseguiste arranjar um algoritmo que te encripta-se o texto (Óóptimo!)

para o que pretendes acho que está bom.

O muito bom seria :

Polimorphismo de encriptação e desencriptação de todo o tipo de ficheiros / e ou textos.

ou seja levantando um bocadinho as coisas :

imagina que tens esta frase : "Este programa é o máximo!"

o que podes fazer com esta frase?

como sabes existe vários tipos de encriptação , Certo ?

o segredo nestes tipos de encriptação polimórphica é que sejam estáveis.

o que eu quero dizer com isto ?

Que aceitem os caracteres é ü õ í etc... (como sabes na hora de desencriptar algumas dão pau só sai borrada)

solução :

existem muitas estaveis quer de 128 bit e de 256 , então pegar nessa versatilidade junta tudo dentro de um caldeirão e faz um Randomize ás coisas..

agora imagina como poderia ficar esta frase cada vez que a quise-se encriptar?

até +

programadorvb6

______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha força seja tão grande quanto minha fé.
 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.