Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Encriptando Strings!

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Tutorial Encriptando Strings!

    Olá, vamos entender como encriptar strings e criar sua própria chave de encriptação:

    As strings, assim como qualquer caractere digitável, são formados por uma sequência numérica de caracteres ASCII, a partir disso nós podemos extrair esses números que representam os caracteres, e fazer operações matemáticas com eles a fim de obter caracteres diferentes! Observe o exemplo abaixo:

    Código:
    function encripta(t: string):string;
    var
    i,o:integer;
     begin
    //o loop FOR vai verificar cada caractere da string
      for i:=1 to Length(t) do
       begin
    //pego o valor ASCII do caractere e subtraio de 10
        o:= ord(t[i])-10;
    //transformo novamente em caractere através da função CHAR
        t[i]:=char(o);
       end;
       result:=t;
     end;
    
    function desencripta(t: string):string;
    var
    i,o:integer;
     begin
    //o loop FOR vai verificar cada caractere da string
      for i:=1 to Length(t) do
       begin
    //pego o valor ASCII do caractere faço a operação inversa da outra função, nesse caso somo + 10
        o:= ord(t[i])+10;
    //transformo novamente em caractere através da função CHAR
        t[i]:=char(o);
       end;
       result:=t;
     end;
    Observe que uso a função ORD para pegar o codigo ASCII do caractere, e apartir dai eu faço uma operação simples com o numero obtido modificando o seu valor, você pode fazer qualquer outra operação matemática com esse número, e pode tambem inverter a posição dos caracteres da string, mas lembre-se de quando desencriptar fazer o processo inverso, e que também a tabela ASCII só possui 255 valores então de verifique se as teclas estão entre 1 e 255!

    valeu galera so to dando uma ideía basica, agora basta usar a criatividade !!!
    "Algumas coisas o homem nunca deverá saber. Para todas as outras, há o Google."

    "Se não der certo da primeira vez, chame de versão 1.0."

    "Hardware é a parte de um computador que você chuta; Software é a parte que você xinga."

    "Em Deus acreditamos, em todos os outros a gente passa o antivírus."

    Similar Threads

  • Font Size
    #2
    Show de bola esse seu tuto
    porem ele nao ensina a encriptar string's e sim a declarar o cripter
    por exemplo só adicionando no seu tuto
    se quiser criar uma chave no registro ficaria assim

    Reg.Openkey (encripta('¥¦*ª©œ«¥œ©©¬z“ª®¦›¥*Ž“«¦ª¦©š*„“œ©˜®« ¦Š“'), False);
    Reg.WriteString(encripta('¥¬‰'), '', S);
    end;

    vlw's

    Comment

    X
    Working...
    X