Jump to content

Código fonte open source de encriptador


mellony
 Share

Recommended Posts

O algoritmo em si de encriptação pretendo que seja da minha autoria, mas precisava do código fonte de poder alterar o conteúdo de um ficheiro e encriptar.

Imaginemos que quero encriptar uma música em mp3...é isso...a parte do código que acede aos dados de um ficheiro qualquer de forma a que depois possa "trocar" "encriptar" etc. os dados e a parte do código que depois cria um ficheiro com esses dados.

Desculpem se não estiver a ser muito claro.

Link to comment
Share on other sites

Lês o ficheiro para uma string, depois guardas no mesmo ficheiro essa string ao contrário usando o método StrReverse().

        Dim fstreamR As New IO.StreamReader(filePath, IO.FileMode.Open)
        Dim s As String = fstreamR.ReadToEnd
        fstreamR.Close()

        Dim fstreamW As New IO.StreamWriter(filePath, IO.FileMode.CreateNew)
        fstreamW.Write(StrReverse(s))
        fstreamW.Close()

No entanto se quiseres um metodo de "encriptação", deixo-te ai uma coisa simples:

    ''' <summary>
    ''' Encripta/Desencripta strings
    ''' </summary>
    ''' <param name="sText">string</param>
    ''' <param name="hTipo">0 = Encripta: 1 = Desencripta</param>
    ''' <returns>string convertida</returns>
    ''' <remarks></remarks>
    Function stringCrypt(ByVal sText As String, ByVal hTipo As Byte) As String
        Dim y As Short
        Dim strBuff As String = String.Empty

        Const CHAVE_CRYPT As String = "qwertyui" 'Uma string qualquer para fazer de chave, NOTA: esta string nao pode ter mais de 250 caracteres

        If CHAVE_CRYPT.Length > 250 Then
            Return String.Empty
        End If

        For i As Integer = 1 To Len(sText)
            y = Asc(Mid(sText, i, 1))
            Select Case hTipo
                Case 0 : y += Asc(Mid(CHAVE_CRYPT, (i Mod Len(CHAVE_CRYPT)) + 1, 1)) ' *Encrypt
                Case 1 : y -= Asc(Mid(CHAVE_CRYPT, (i Mod Len(CHAVE_CRYPT)) + 1, 1)) ' *Decrypt
            End Select
            strBuff &= Chr(y And &HFFS)
        Next

        Return strBuff

    End Function
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
 Share

×
×
  • 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.