home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / source.txt < prev    next >
Encoding:
Text File  |  1999-02-08  |  607 b   |  14 lines
  1. Private Sub Command1_Click()
  2. RegName = Text1.Text                  'Put Text into "RegName"
  3. Variable
  4. RegLength = Len(RegName)              'Get length of name
  5. For c = 1 To RegLength                'Loop using length
  6. RegChar = Mid(RegName, c, 1)          'get one char at a time
  7. AscReg = Asc(RegChar)                 'Asc of the char
  8. AscRegR2 = Right(AscReg, 2)           'Get the right 2 numbers
  9. RegCode = AscRegR2 & RegCode          '"Join" the 2 numbers
  10. Next
  11. RegCode = Left(RegCode, 10)           'Get the first 10 numbers
  12. Text2.Text = RegCode                  'Display serial number
  13. End Sub
  14.