4. Exemplos de criptografia. 

Existem diversas aplicações para desenvolvimento que possuem funções internas para a utilização de criptografia, dentre elas podemos destacar o ambiente de desenvolvimento Delphi, o banco de dados MySQL, a linguagem server side script PHP, ou outras linguagens onde pode-se implementar uma nova função pelo programador como foi o caso da implementação prática que desenvolvemos neste trabalho (http://www.criptografia.rg3.net) onde foi utilizado ASP e VBScript.

Dentro deste contexto encontramosos seguintes exemplos de criptografia:

4.1. Delphi

Através de uma simples implementação podemos utilizar criptografia no Delphi, conforme segue os exemplos de criptografia e descriptografia:

Criptografa:

procedure TForm1.Button1Click(Sender: TObject);

var

   i:Integer;

begin

   s:=edit1.text;

   For i:=1 to ord(s[0]) do

   c[i] := 23 XOr c[i];

   Label1.Caption:=s;

end;

Descriptografa:

procedure TForm1.Button1Click(Sender: TObject);

var

   i:Integer;

begin

   s:=edit1.text;

   For i:=1 to ord(s[0]) do

   c[i] := 23 XOr c[i];

   Label1.Caption:=s;

end;

4.2. MySQL

No MySQL podemos utilizar as seguintes funções

Password

É a criptografia utilizada nos passwords dos usuários MySQL.

Exemplo:

SELECT PASSWORD('FATEC');   à Resultado: 6045a9191543f6cb

MD5

Exemplo:

SELECT md5('FATEC'); à Resultado: bb63f2c9a02e7a529e9d360a73a90f33

Encrypt

Exemplo:

SELECT Encrypt('FATEC'); à Resultado: XxnWVHOQrhUpw

Encode e Decode

AS funções Encode e Decode são reversas, uma criptografa e a outra descriptografa.

Funciona com o texto e uma chave que funciona como se fosse uma senha para descriptografar.

Exemplo:

·       Criptografa:

Select encode('FATEC','chave'); àResultado: S€ZP¹

·       Descriptografa

Select decode('S€ZP¹', 'chave'); à Resultado: FATEC

4.3. PHP

Crypt

Exemplo:

Crypt(“FATEC”); à AKqT/SpRA5E9o

MD5

Exemplo:

md5(“FATEC”); à bb63f2c9a02e7a529e9d360a73a90f33

4.4. Na Implementação prática (ASP e VBScript)

Na implementação prática utilizei os seguintes algoritmos desenvolvido segundo pesquisas e implementado em VBScript e ASP, que utilizam o mesmo código fonte:

·       Criptografa

Function EncryptText(strText, strPwd)

If Len(strPwd) Then

        For i = 1 To Len(strText)

            c = Asc(Mid(strText, i, 1))

            c = c + Asc(Mid(strPwd, (i Mod Len(strPwd)) + 1, 1))

            strBuff = strBuff & Chr(c And &HFF)

        Next

     Else

        strBuff = strText

     End If

    EncryptText = strBuff

    End Function

·       Descriptografa

Function DecryptText(strText, strPwd)   

If Len(strPwd) Then

        For i = 1 To Len(strText)

            c = Asc(Mid(strText, i, 1))

            c = c - Asc(Mid(strPwd, (i Mod Len(strPwd)) + 1, 1))

            strBuff = strBuff & Chr(c And &HFF)

        Nex

     Else

        strBuff = strText

     End If

     DecryptText = strBuff

     End Function