11 replies to this topic

[FerCastro]

Hola al grupo,

 

 

Tengo que convertir un código de C# a Delphi pero no tengo ni peregrina idea, la verdad es que jamás he tenido la "suerte" de trabajar con el hijo, solo con el padre.

 

Alguien que me pueda echar un cable?

 

Saludos! y gracias.

[enecumene]

Pues "sin telecable no hay vida"

[BDWONG]

Pues publica la funcion y te hechamos una mano

[FerCastro]

Gracias amigos,
 
esta es la función de marras:

 

------------------------------------

php

int Decrypt(byte[] pSrc)
        {
            byte high,low;
            byte c,d;
            int i,j,len;
            int count;
            len = pSrc.Length;
            if( len%2>0 )
            {
                return -1;
            }
            i = 0;
            count = 0;
            for( j=0; j < len; j+=2)
            {
                c = pSrc[j];
                d = pSrc[j+1];
                high = Convert.ToByte((c - 'x') > 0 ? (c - 'x') : 0);
                low = Convert.ToByte((d - 'z') > 0 ? (d - 'z') : 0);
                pSrc[i] = Convert.ToByte((high << 4) + low);
                if (pSrc[i] != 0)
                    count++;
                i++;
            }
            pSrc[count] = 13;
            return count;
        }

---------------------------

Y así es como se llama:

php

 while(src.Read(buffer,0,BUFMAXSIZE) > 0)
            {
 
                count = Decrypt(buffer);
                if (count < 30)
                {
                    if (count < 1)
                        continue;                   
                }
               
                dst.Write(buffer, 0, count);
                buffer = new byte[256];
            }

Agradezco la ayuda y saludos!!

[seoane]

No parece complicado, coge las letras de dos en dos y hace la siguiente operación:   ((primeraletra - 'x') * 16) + (segundaletra - 'x')  

 

De esta manera por cada dos caracteres de entrada obtiene un byte de resultado, por eso comprueba al principio que hay un numero par de letras.

 

Si puedes poner un ejemplo de texto cifrado y en claro, te podre decir mas

[FerCastro]

Seoane agradezco mucho la ayuda.

 

Este es el texto a descifrar:

php

zzzzzzzz{{xƒ{|{z{{{z‡{z{}z‡{|{€zz{{{|{„{z{}{„{{{ƒxƒzzzz{{xƒ{zxƒzz{zxƒzzzzzzzz{{x‡x„

Saludos!!

[seoane]

Pues si que me lo has puesto dificil, porque en el texto que has puesto faltaba una letra. He tenido que hacer un poco de "criptoanalista"
 
En resumen, la funcion es esta:

delphi

function Decrypt(Str: AnsiString): AnsiString;
var
  i: Integer;
  b: byte;
begin
  Result:= EmptyStr;
  // Si no es de una longitud par no hacemos nada
  if Odd(Length(Str)) then
    Exit;
  i:= 1;
  while i < Length(Str) do
  begin
    if Str[i] < 'x' then
      b:= 0
    else
      b:= byte(Str[i])-byte('x');
    b:= b shl 4;
    if Str[i+1] > 'z' then
      b:= b + byte(Str[i+1])-byte('z');
    Result:= Result + AnsiChar(b);
    inc(i,2);
  end;
end;

La probamos de esta manera:

delphi

Writeln(Decrypt('zzzzzzzz{{xƒ{|{z{{{zz‡{z{}z‡{|{€zz{{{|{„{z{}{„{{{ƒxƒzzzz{{xƒ{zxƒzz{zxƒzzzzzzzz{{x‡x„'));

Y nos da como resultado esto:

delphi

1   2010-03-26 12:03:19       1     0        0          1

Si te fijas la cadena que ponias tu tenia una 'z' de menos en el medio del texto, asi que al llegar a la mitad se me arruinaba todo
 
Saludos

[egostar]

Caray, 

 

Mis respetos amigo Domingo, el que sabe sabe

 

Saludos

[FerCastro]

Hace unos meses platicando con E-Go acerca de una plática de un banco de pruebas entre Java, C#, Free pascal y Delphi, este me dijo: Dile a Seoane que te eche una mano, les va a poner una chinga.

 

No pos si, el que sabe sabe. Gracias mi estimado Seoane, probando, o más bien implementando.

[egostar]

Hace unos meses platicando con E-Go acerca de una plática de un banco de pruebas entre Java, C#, Free pascal y Delphi, este me dijo: Dile a Seoane que te eche una mano, les va a poner una chinga.

 

No pos si, el que sabe sabe. Gracias mi estimado Seoane, probando, o más bien implementando.

 

 

Y no solo seaone, escafandra, cHackAll que son los Mr API's

 

saludos

[egostar]

La verdad es que Yo tengo que agradecer a muchos compañeros que siempre han sido muy atentos cuando he requerido ayuda puntual con temas que escapan a mi entender.

 

En verdad muchas gracias amigos. 

 

Saludos

[seoane]

Me alegro de que te sirviese