Buen dia.
Necesito generar c贸digos de validacion asi como: !"路!"asdASDQWE! al azar,
existe algun "random" para este tipo de dato en fwh?
gracias.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour C贸mo genero "codigo de password" al azar?
Estimado Gustavo,
function Main()
聽 聽local n, cPasswd := "", cChars := "abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ?!"
聽 聽
聽 聽for n = 1 to 10
聽 聽 聽 cPasswd += cChars[ int( hb_random( 1, Len( cChars ) ) ) ]
聽 聽next 聽 聽
聽 聽
聽 聽? cPasswd
return nil? cChars[2] por dar un ejemplo me tira error
graciaS!
Time from start: 0 hours 0 mins 0 secssi hago esto no me tira error ? substr( cChars,2,1)
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
graciaS!
xHarbour no permite usar las cadenas como arrays, usa esta versi贸n para xHarbour:
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 nilBuen dia Maestro
Que tan dificil seria un ejemplo en harbour?
Saludos desde Panama,
Erick Almanza
Erick Almanza wrote:Buen dia MaestroHola, la primera version que puso es para harbour.
Que tan dificil seria un ejemplo en harbour?
Saludos desde Panama,
Erick Almanza
gracias.
#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 / endJo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
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... :shock:
Dios no est谩 muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
joseluisysturiz wrote: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... :shock: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!
"Los errores en programaci贸n, siempre est谩n entre la silla y el teclado..."
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.
Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin
Carora, Estado Lara, Venezuela.