PC Toledo

Código: Selecionar todos

function scrumble2()
   cPrimeiraString := "0123456789"
   cSegundaString  := "ABCDEFGHIJ"
   cTerceiraString := ""
   DO WHILE len(cPrimeiraString) > 0 // Vou diminuir o tamanho a cada passagem
       // A cada passada o Random vai diminuindo o range de atuacao
       cQualDigito1 := subStr( cPrimeiraString, Random( len(cPrimeiraString) ), 1 )
       cQualDigito2 := subStr( cSegundaString , Random( len(cSegundaString) ) , 1 )

       cPrimeiraString := StrTran( cPrimeiraString, cQualDigito1, "" )
       cSegundaString  := StrTran( cSegundaString , cQualDigito2, "" )

       cTerceiraString := cTerceiraString + cQualDigito1 + cQualDigito2 + "|"

   ENDDO
   return cTerceiraString

Código: Selecionar todos

   /////////////////////////////////////////////////////////////////////////////
   //Alterando Dica do Rochinha
   // n = Tamanho da string senha
function scrumble3( n )
   Local i, r := '', cString := "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" //pode incluir qq caractere permitido em senhas.

   For i := 1 To n
       r += SubStr( cString, HB_RandomInt( Len( cString ) ), 1 )
   Next
   
   return r

Código: Selecionar todos

FUNCTION create_Txid(  ) 
Local cRetorno:="";
    , nCont;
    , equivalente:= {'a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z',;
                    '0','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y',;
                    'Z','0','1','2','3','4','5','6','7','8','9'}

    For nCont:=1 to 32
        cRetorno += equivalente[HB_RandomInt(1, 62)]
    next

return cRetorno