blog/crear-serial-a-partir-de-cadena-en-visual-basic-6

Crear Serial a Partir de Cadena en Visual Basic 6

Por Yal Publicidad


Publicado el Mie 3 de Marzo del 2021 a las 15:49



Cómo crear un generador de serial en visual basic 6.0

En este ejemplo veremos como crear un simple generador de series para programas en Visual Basic 6.0

Option Explicit

Private Function getSerial(Cadena As String) As String
Dim StrLen   As Integer
Dim I        As Integer
Dim strHex   As String

    Cadena = Trim(Cadena)
    StrLen = Len(Cadena)
    For I = 1 To StrLen
        strHex = strHex & Hex(Val(Asc(Mid(Cadena, I, 1))) * StrLen)
    Next
 
    getSerial = Mid(strHex, 1, 4) & "-" & Mid(strHex, 5, 4) & "-" & Mid(strHex, 9, 4) & "-" & Mid(strHex, 13, 4)
 
End Function

Private Sub Command1_Click()
    MsgBox getSerial(Text1)
End Sub

Yal Publicidad
Yuri Lizama


Deja un comentario:
Buscar
Acerca de Nosotros
@yalpublicidad Agencia de publicidad online. 19 años de experiencia en el diseño y desarrollo de imagen e identidad corporativa de tu empresa...