Registration Issues - Please HELP

[jokerfool]

I have a keygen and I use the keygen to generate a license file so when users reload the main application it loads directly to main content. The issue I have is when I test it on my local machine it works, when I test it on another it doesn't work.

This is the form that asks the user for there username, email address:

Private Sub cmdRegistrar_Click()
    Dim Filenr As Integer
    Dim crypt As New clsCryptAPI
    Dim v As Collection
    Dim S As New serial
    Dim sEnc As String
    Dim DestFile As String
    Dim clave As String
    Set v = S.VerificarSerial(txtData(0), txtData(1), txtData(2), txtData(3))
    If v("ValidKey") Then
        sEnc = crypt.EncryptString(txtData(3), "QualityLider")
        DestFile = App.Path & "/register.lic"
        If (FileExist(DestFile)) Then Kill DestFile
        Filenr = FreeFile
        Open DestFile For Binary As #Filenr
        Put #Filenr, , sEnc
        Close #Filenr
        MsgBox "Serial number aproved" & vbCrLf & vbCrLf & "domain.com", vbInformation, "Register OK!!"
        Unload Me
        Form1.Show
    Else
        MsgBox "You Need to Register", vbExclamation, "Error!!"
    End If
    Set S = Nothing
    Set v = Nothing
    Set crypt = Nothing

End Sub

Private Sub Command1_Click()
Dim Filenr As Integer
    Dim crypt As New clsCryptAPI
    Dim v As Collection
    Dim S As New serial
    Dim sEnc As String
    Dim DestFile As String
    Dim clave As String
    Set v = S.VerificarSerial(txtData(0), txtData(1), txtData(2), txtData(3))
    If v("ValidKey") Then
        sEnc = crypt.EncryptString(txtData(3), "QualityLider")
        DestFile = App.Path & "/register.lic"
        If (FileExist(DestFile)) Then Kill DestFile
        Filenr = FreeFile
        Open DestFile For Binary As #Filenr
        Put #Filenr, , sEnc
        Close #Filenr
        MsgBox "Serial number accepted" & vbCrLf & vbCrLf & "Welcome to domain.com", vbInformation, "Success!!"
        Unload Me
        Form1.Show
    Else
        MsgBox "You Need to Register its Free", vbExclamation, "Error!!"
    End If
    Set S = Nothing
    Set v = Nothing
    Set crypt = Nothing
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
frmSplash.Show
Unload Me
End Sub

Private Sub Form_Load()
    Dim v As Collection
    Dim S As New serial
    Dim snhd As New clsHardDisk
    Dim Filenr As Integer
    Dim crypt As New clsCryptAPI
    Dim sEnc As String, sDec As String
    Dim filLic As String
    Dim byteArray() As Byte
    Dim tmp As String
    filLic = App.Path & "/register.lic"
    tmp = snhd.getSerialNumber
    If (FileExist(filLic)) Then
        Filenr = FreeFile
        Open filLic For Binary As #Filenr
        ReDim byteArray(0 To LOF(Filenr) - 1)
        Get #Filenr, , byteArray()
        Close #Filenr
        sEnc = StrConv(byteArray(), vbUnicode)
        sDec = crypt.DecryptString(sEnc, "QualityLider")
        Set v = S.VerificarLicencia(tmp, sDec)
        If v("ValidKey") Then
            Unload Me
            Form1.Show
            GoTo fin
        End If
    End If
    txtData(0).Text = tmp
    Label1.Caption = "You need to obtain a free licence to register." & vbCrLf & _
                     "Send us an email with your Username, Email & FingerPrint" & vbCrLf & _
                     "To: domain.com" & vbCrLf & _
                     "Free Registration gives you access to our Torrent Newsletter." & vbCrLf & _
                     "To: domain.com"
fin:
    Set crypt = Nothing
    Set c = Nothing
    Set snhd = Nothing
End Sub
Public Function FileExist(filename As String) As Boolean
On Error GoTo NotExist
    Call FileLen(filename)
    FileExist = True
    Exit Function
NotExist:
    FileExist = False
End Function

Private Sub Form_Terminate()
    End
End Sub

The application uses 3 class files see attachment.Registration.zip

The keygen also uses those files.

This is the form that outputs the key.

Private Sub cmdGenerar_Click()
    Dim s As New Serial
    txtSerial = s.GenerarSerial(txtData(0), txtData(1), txtData(2))
    frmProbarSerial.txtData(0).Text = txtData(0)
    frmProbarSerial.txtData(1).Text = txtData(1)
    frmProbarSerial.txtData(2).Text = txtData(2)
    frmProbarSerial.txtData(3).Text = txtSerial
End Sub

Private Function validarDatos() As Boolean
    If InStr(txtData(2).Text, "@") = 0 Then
        MsgBox "Incorrect email", vbInformation, "Alerta"
        validarDatos = False
        Exit Function
    End If
    validarDatos = True
End Function

Private Sub Command1_Click()
Dim s As New Serial
    txtSerial = s.GenerarSerial(txtData(0), txtData(1), txtData(2))
    frmProbarSerial.txtData(0).Text = txtData(0)
    frmProbarSerial.txtData(1).Text = txtData(1)
    frmProbarSerial.txtData(2).Text = txtData(2)
    frmProbarSerial.txtData(3).Text = txtSerial
End Sub

Private Sub Form_Load()
    Left = 500
    Top = 500
    frmProbarSerial.Left = 480 + Me.Width
    frmProbarSerial.Top = Top
    frmProbarSerial.Show
End Sub


Private Sub Form_Terminate()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Question, when I get the computer id code and dont enter a user/email and i generate a key, they key works and the user is let in.

What I want to know is how to fix the code so the user can enter the username and password and enter the key provided and register, is there something I am missing here please? I am still new at this and learning with each step so please have patience with me as I may ask you lots of questions like, huh, what do you mean, can you explain that please and so on. Thank you.


jokerfool

[jokerfool]

Can someone please help, I dont believe I've had this many views and no one here can assist me, please help.

[DataMiser]

You say it works on your machine but not on another machine. The problem is that "don't work" could mean almost anything.

I can speak only for myself but when I see this type of of question I generally do not bother reading the rest,

You should describe what you mean by don't work and you may get better results.

[ladoo]

it will work on your local machine off course no need for internet connection for the licence tool to search for licence file and autenticate it.

dont work on other pcs because it cannot connect to internet or server etc its not communicating with your main server tool to get permission.

[jokerfool]

DataMiser, thanks for your reply, your comment really didn't interest me -10rep for you. ladoo There is no main server tool, yes there is an active internet connection. What am I missing here?

[DataMiser]

It does not matter it my comment interested you or not. The fact is that just saying somethign don't work does not give people much to go on and rather than complain when someone points this out you should actually explain what you mean by don't work.

Hopefully someone will help but with that attidtude it will not be me.

[ladoo]

joker just helping , download tester server and client frm here get fimiliar then start working your way from there sending out commands and receiving mate , because end of the day you need server no matter what to have your software authenticated , you just cannot put your programme out there without having a server inside of it and just activate it by main client tool because your main programe dont know were your server is , attach server to your programmes that way you can log ip addresses of your customers even bann them via ip etc u can do much more its very usefull.


to be uncrackable add a code as such
if your tool is opened try and se if the internet is connected and if the internet is conntected then try and get connected with server otherwise close exe because server not found and internet is not enabled .

and also u can add if user is barred from using add a hidden file stored in there pc to dissallow + auto delete exe even restart the windows if exe is tampered with u can go on and on

crackers now days crack exe make patch but stupid thing is about well know softwares out there is they not adding this method , if they did there is no way u can bypass this even if hexed or ollydebugged it.

[Nightwalker83]

@jokerfool,

If you want someone to help you could you please upload a project rather than just separate files. This will allow the people who help run the code how it is suppose to be run without first trying to solve the puzzle of how the pieces fit together.

[jokerfool]

Thread can be closed, I couldnt get the answer here because people mentioned servers etc, the registration is all built into the application, no server is required, it was all dependent on the computer ID, doesn't matter though I went to VWorker instead