CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 4 of 4
  1. #1
    Join Date
    May 2013
    Posts
    2

    Need help with this one - developer no longer supporting the software

    This is a tricky one, it's an excel spreadsheet but it's not locked through the excel way of locking a spreadsheet (if that makes any sense)

    I think the spreadsheet itself was created using some other form of programming, here's what it does:

    Whenever I try to click on the sheet, it asks me if I would like to enter my registration key now, I select No and the dialog closes and I can't do anything, I select Yes and another dialog opens, it then has my "Computer ID", I am suppose to email the creator of the spreadsheet with this code and he will email be back the password, 1 problem. The guy who made the sheet is no longer contactable.

    I would imagine the Computer ID is unique to every different computer, I use to have it working fine but I had to format and since then I haven't been able to access anything within the spreadsheet.

    I am willing to do whatever it takes to get this thing unlocked, it's a spreadsheet I use for doing horse racing ratings and I would really love to have this little beauty back up and running again.

    I have tried removing specific areas of the code to bypass this step, there is a code which I definately tell determines what a serial code would be but it makes no sense to me at all, that code is:


    Code:
    Rem     RegKey = RegNum / 10
    Rem     RegKey = RegKey * 9
    Rem     RegKey = RegKey / 8
    Rem     RegKey = RegKey * 7
    Rem     RegKey = RegKey / 6
    Rem     RegKey = RegKey * 5
    Rem     RegKey = RegKey / 4
    Rem     RegKey = RegKey * 3
    Rem     RegKey = RegKey / 2
    Rem     RegKey = Round(RegKey * 111, 0)
    Rem     RegKey = CLng(Left(CStr(RegKey), 9))
    Rem     RegKeyA = Mid(CStr(RegKey), 2, 2) + Mid(CStr(RegKey), 1, 1)
    Rem     RegKeyB = Mid(CStr(RegKey), 5, 2) + Mid(CStr(RegKey), 4, 1)
    Rem     RegKeyC = Mid(CStr(RegKey), 8, 2) + Mid(CStr(RegKey), 7, 1)
    Rem     RegKey = RegKeyB + "-" + RegKeyA + "-" + RegKeyC
    The code is determined off of a 10 digit Computer ID, so I need to translate that Computer ID into a registration key.

    If anyone can help please let me know

    Cheers!

  2. #2
    Join Date
    Jan 2006
    Location
    Fox Lake, IL
    Posts
    15,007

    Re: Need help with this one - developer no longer supporting the software

    Rem statements are REMARKS that are NOT executed
    David

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

  3. #3
    Join Date
    May 2013
    Posts
    2

    Re: Need help with this one - developer no longer supporting the software

    oh that's interesting, the entire macro has "REM" at the beginning of every line

  4. #4
    Join Date
    Jan 2006
    Location
    Fox Lake, IL
    Posts
    15,007

    Re: Need help with this one - developer no longer supporting the software

    Sounds like it does NOTHING then
    David

    CodeGuru Article: Bound Controls are Evil-VB6
    2013 Samples: MS CODE Samples

    CodeGuru Reviewer
    2006 Dell CSP
    2006, 2007 & 2008 MVP Visual Basic
    If your question has been answered satisfactorily, and it has been helpful, then, please, Rate this Post!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  





Click Here to Expand Forum to Full Width

Featured