Página Inicial do Fórum > JSP / Servlets

Criptografia - Migração de delphi para java



Criar novo tópico   Responder tópico


  1. mcgill
    Posts:10


    Comment Arrow

    Publicado em: 09/04/2009 23:18:44

    Blz pessoal,
    Estou tentendo migrar um código de criptografia feito em delphi (esta diponivel na internet)
    para java, mas esta dando uns problemas, mas acredito que é nada para a comunidade do Java[color=red:7128fe0d0e]free[/color:7128fe0d0e], é o seguinte:

    [color=#444444:7128fe0d0e]O CÓDIGO FEITO EM DELPHI[/color:7128fe0d0e]:

    function EncryptSTR(const InString: string; StartKey, MultKey, AddKey: Integer): string;
    var
    I: Byte;
    begin
    Result := '';
    for I := 1 to Length(InString) do
    begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8 ));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
    end;
    end;




    function DecryptSTR(const InString: string; StartKey, MultKey, AddKey: Integer): string;
    var
    I: Byte;
    begin
    Result := '';
    for I := 1 to Length(InString) do
    begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8 ));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
    end;
    end;




    O CÓDIGO FEITO EM JAVA:

    public class cripto {

    public static void main(String[] args) {
    long starKey = 5554;
    int mutlKey = 500;
    int addKey = 500;
    String senha = "123456";
    String resultado = "";
    String nome = "";
    for (int i=0; i < senha.length(); i++){
    resultado += (char)((int)senha.charAt(i) ^ (starKey >> 8 ));
    starKey = ((int)resultado.charAt(i) + starKey) * multKey + addKey ;
    }
    System.out.println("Criptografa: " + resultado);

    starKey = 5554;
    for (int i=0; i < resultado.length(); i++){
    nome += (char)((int)resultado.charAt(i) ^ (starKey >> 8 ));
    starKey = ((int)resultado.charAt(i) + starKey) * multKey + addKey;
    }

    System.out.println("Descriptografa: " + nome);
    }

    }


    A classe java não dá erro, porém, não mostra os caracteres ascii como deveria de ser, aparece o primeiro
    caracter e os demais aparecem ??????(ponto de interrogação)

    Quem tiver alguma solução para o meu problema me envia por favor.
    Agradeço.
    _________________
    JavaFree.org

    Jesus Cristo Senhor e Salvador da Minha vida, toda honra e toda glória sejam dadas a Ele.




  1. softwork
    Posts:11


    Comment Arrow

    Publicado em: 10/06/2010 09:44:04

    Olá amigo!

    Eu também já fui programador Delphi e recentemente tive que fazer algo parecido, então vou te passar o código, mas de qualquer forma ela é muito parecida com a tua:



    Espero que te ajude, boa sorte!
    _________________
    Dennys S. Sobrinho

    Analista e Desenvolvedor Sênior
    Chefe adjunto do Centro de Informática - FAESP-SENAR/SP
    http://www.faespsenar.com.br
    (11) 3258-7233 Ramal 174

    Plante, cultive e colha a Paz.




  1. Relacionados





Novo tópico   Responder tópico     Índice do forum -> JSP / Servlets