Cómo genero "codigo de password" al azar?

[goosfancito]

Buen dia.
Necesito generar códigos de validacion asi como: !"·!"asdASDQWE! al azar,
existe algun "random" para este tipo de dato en fwh?

gracias.

[Antonio Linares]

Estimado Gustavo,

Code: Select all  Expand view  RUN

function Main()

   local n, cPasswd := "", cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"
   
   for n = 1 to 10
      cPasswd += cChars[ int( hb_random( 1, Len( cChars ) ) ) ]
   next    
   
   ? cPasswd

return nil

[goosfancito]

? cChars[2] por dar un ejemplo me tira error

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/08/2023, 11:19:38
Error description: Error BASE/1068 Error de argumento: acceso al array
Args:
[ 1] = C abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ!$#
[ 2] = N 2

si hago esto no me tira error ? substr( cChars,2,1)
graciaS!

[Antonio Linares]

xHarbour no permite usar las cadenas como arrays, usa esta versión para xHarbour:

Code: Select all  Expand view  RUN

function Main()

   local n, cPasswd := "", cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"
   
   for n = 1 to 10
      cPasswd += SubStr( cChars, int( hb_random( 1, Len( cChars ) ) ), 1 )
   next    
   
   ? cPasswd

return nil

[Erick Almanza]

Buen dia Maestro

Que tan dificil seria un ejemplo en harbour?

Saludos desde Panama,

Erick Almanza

[goosfancito]

Buen dia Maestro

Que tan dificil seria un ejemplo en harbour?

Saludos desde Panama,

Erick Almanza

Hola, la primera version que puso es para harbour.

gracias.

[karinha]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL n, cPassWord := ""
   LOCAL cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"

   FOR n = 1 TO 10

      #ifdef __XHARBOUR__  // xHarbour

         cPassWord += cChars[ Int( hb_Random( 1, Len( cChars ) ) ) ]

      #else // Harbour

         cPassWord += SubStr( cChars, Int( hb_Random( 1, Len( cChars ) ) ), 1 )

      #endif

   NEXT

   ? cPassWord

RETURN NIL

// fin / end
 

Regards, saludos.

[joseluisysturiz]

Tengo una funcion que hice con letras y numeros estylo BINGO que emiten los bancos aqui en mi pais, ellos lo llaman coordenadas, no se si te servidira, igual, la buscco y publico, saludos...

[JoseAlvarez]

Tengo una funcion que hice con letras y numeros estylo BINGO que emiten los bancos aqui en mi pais, ellos lo llaman coordenadas, no se si te servidira, igual, la buscco y publico, saludos...

Hola jose luis, saludos.
Necesito asesoría sobre la implementacion de impresoras fiscales aqui en vzla.
Navegando en el foro he leido que ya lo has logrado.

Si puedes contactarme mi correo es
jalvarez at neurosistema dot online

Quedo al pendiente, si puedes darme una mano.

Gracias!