topic-45056

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

funcion encriptar
Posted: Sun Oct 27, 2024 03:49 AM

Hola amigos tengo error en estas funciones de copilot para harbour y MSV

FUNCTION EncryptString( cInput, cKey )
    LOCAL cEncrypted := "", nKeyLen := LEN( cKey )
    LOCAL i, nChar

    FOR i := 1 TO LEN( cInput )
        nChar := ASC( SUBSTR( cInput, i, 1 ) ) $XOR$ ASC( SUBSTR( cKey, ( ( i - 1 ) % nKeyLen ) + 1, 1 ) )
        cEncrypted += CHR( nChar )
    NEXT

    RETURN cEncrypted



FUNCTION DecryptString( cEncrypted, cKey )
    RETURN EncryptString( cEncrypted, cKey )



STATIC FUNCTION XorChar( nChar1, nChar2 )
    RETURN BitXOr( nChar1, nChar2 )

tampoco funciona en Bcc77

Code (fw): Select all Collapse

cInput:= "dario5402()"
   cKey:= "askfdhndsc+64905483(^#)"
    FUNCTION EncryptString( cInput, cKey )
      LOCAL cEncrypted := "", nKeyLen := LEN( cKey )
      LOCAL i, nChar
  
      FOR i := 1 TO LEN( cInput )
          nChar := ASC( SUBSTR( cInput, i, 1 ) ) $XOR$ ASC( SUBSTR( cKey, ( ( i - 1 ) % nKeyLen ) + 1, 1 ) )
          cEncrypted += CHR( nChar )
      NEXT
  
      RETURN cEncrypted
  
  
  
  FUNCTION DecryptString( cEncrypted, cKey )
      RETURN EncryptString( cEncrypted, cKey )
  
  
  
  STATIC FUNCTION XorChar( nChar1, nChar2 )
RETURN BitXOr( nChar1, nChar2 )

Saludos y gracias
Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: funcion encriptar
Posted: Sun Oct 27, 2024 07:06 AM

Estimado Dario,

[x]Harbour no admite $XOR$

Prueba a usar hb_bitXor() ó nXor() de FWH

regards, saludos

Antonio Linares
www.fivetechsoft.com

D.Fernandez

Posts: 555

Joined: Wed Jul 31, 2013 01:14 PM

Re: funcion encriptar
Posted: Sun Oct 27, 2024 07:23 AM

Gracias Mestro.

Saludos.

Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

FiveTech Support Forums

Continue the discussion