Serial #

[technix]

Using VBA How would I do the following,

(1) Get the Serial Number from the Computer (e.g. 55235-021-3292727-22741)

(2) Change the # to be reversed (e.g. 14722-7272923-120-53255)

(3) Create 5 different code sets for each section (e.g. 1=f, 2=g, etc)

(4) create a code that checks the code to the reversed serial # then pass true if not pass false

Hope this makes sense

Derrick

 

[Jim North]

On 2002-09-18 05:48, technix wrote:
Using VBA How would I do the following,

(1) Get the Serial Number from the Computer (e.g. 55235-021-3292727-22741)

(2) Change the # to be reversed (e.g. 14722-7272923-120-53255)

(3) Create 5 different code sets for each section (e.g. 1=f, 2=g, etc)

(4) create a code that checks the code to the reversed serial # then pass true if not pass false

Hope this makes sense

Derrick

I'll try to help with the first two:

1) check out this post:
http://groups.google.com/groups?hl=...ta=group%3Dmicrosoft.public.excel.programming

2. use the strReverse function


I'm not sure what you want in 3.
_________________
JRN

Excel 2000; Windows 2000
This message was edited by Jim North on 2002-09-18 07:00

 

[technix]

On 2002-09-18 06:55, Jim North wrote:

On 2002-09-18 05:48, technix wrote:
Using VBA How would I do the following,

(1) Get the Serial Number from the Computer (e.g. 55235-021-3292727-22741)

(2) Change the # to be reversed (e.g. 14722-7272923-120-53255)

(3) Create 5 different code sets for each section (e.g. 1=f, 2=g, etc)

(4) create a code that checks the code to the reversed serial # then pass true if not pass false

Hope this makes sense

Derrick

I'll try to help with the first two:

1) check out this post:
http://groups.google.com/groups?hl=...ta=group%3Dmicrosoft.public.excel.programming

2. use the strReverse function


I'm not sure what you want in 3.
_________________
JRN

Excel 2000; Windows 2000
This message was edited by Jim North on 2002-09-18 07:00

Thank you for the reply I will check it out,

What I want in 3 is the following

lets say the number was 55235-021-3292727-22741

and I used the revserse command you mentioned and made it 14722-7272923-120-53255

then I want to take each group,

14722 and assign a code value to it like a=5, b=6, c=7, d=8, etc and then a new value for the next group and then the next then the next then the next so each group of numbers has a letter code to it, then I want to assign this letter code a new coding system and generate an unlock code, which will check the unlock code against the serial if they match then it registers the program

does this make any sense?

Derrick

 

[ChrisUK]

Try these two UDF's

Function CodeIt(r As Range, CodeOffset)

sNewString = ""
For Each c In r
sCellToCode = StrReverse(c.Value)
For x = 1 To Len(sCellToCode)
sNewString = sNewString & Chr(Asc(Mid(sCellToCode, x, 1)) + CodeOffset)
Next
Exit For
Next

CodeIt = sNewString

End Function

Function UnCodeIt(r As Range, CodeOffset)

sNewString = ""
For Each c In r
sCellToCode = StrReverse(c.Value)
For x = 1 To Len(sCellToCode)
sNewString = sNewString & Chr(Asc(Mid(sCellToCode, x, 1)) - CodeOffset)
Next
Exit For
Next

UnCodeIt = sNewString

End Function

 

[Juan Pablo González]

You could use the SUBSTITUTE worksheet function, like this

MyStr = Application.Substitute(MyStr,1,"a")
MyStr = Application.Substitute(MyStr,2,"b")
...

 

[Jim North]

14722 and assign a code value to it like a=5, b=6, c=7, d=8, etc and then a new value for the next group and then the next then the next then the next so each group of numbers has a letter code to it, then I want to assign this letter code a new coding system and generate an unlock code, which will check the unlock code against the serial if they match then it registers the program

does this make any sense?

Derrick

Ok... if your encryption scheme for set 1 is:

<pre>
0 Z
1 A
2 B
3 C
4 D
5 E
6 F
7 G
8 H
9 I
</pre>

then 14722 would be ADGBB... is that what you are trying to do... and then de-crypt it for testing?

 

[technix]

On 2002-09-19 06:31, ChrisUK wrote:
Try these two UDF's

Function CodeIt(r As Range, CodeOffset)

sNewString = ""
For Each c In r
sCellToCode = StrReverse(c.Value)
For x = 1 To Len(sCellToCode)
sNewString = sNewString & Chr(Asc(Mid(sCellToCode, x, 1)) + CodeOffset)
Next
Exit For
Next

CodeIt = sNewString

End Function

Function UnCodeIt(r As Range, CodeOffset)

sNewString = ""
For Each c In r
sCellToCode = StrReverse(c.Value)
For x = 1 To Len(sCellToCode)
sNewString = sNewString & Chr(Asc(Mid(sCellToCode, x, 1)) - CodeOffset)
Next
Exit For
Next

UnCodeIt = sNewString

End Function

Chris Thank you for the coding, I am still learning and would like to know if you could explain how this works and exactly how to use it?

Derrick

 

[technix]

On 2002-09-19 06:37, Jim North wrote:

14722 and assign a code value to it like a=5, b=6, c=7, d=8, etc and then a new value for the next group and then the next then the next then the next so each group of numbers has a letter code to it, then I want to assign this letter code a new coding system and generate an unlock code, which will check the unlock code against the serial if they match then it registers the program

does this make any sense?

Derrick

Ok... if your encryption scheme for set 1 is:

<pre>
0 Z
1 A
2 B
3 C
4 D
5 E
6 F
7 G
8 H
9 I
</pre>

then 14722 would be ADGBB... is that what you are trying to do... and then de-crypt it for testing?

Yes, and then the next set of numbers after the hyphen would be a new scheme

Derrick

 

[technix]

since I have xl97 the StrRevers is not available so I am using this code that I found

Function Reversed(originaltext As String) As String 
Dim i As Integer 
For i = Len(originaltext) To 1 Step -1 
Reversed = Reversed & Mid(originaltext, i, 1) 
Next i 
End Function

to do the reverse

 

[technix]

On 2002-09-18 05:48, technix wrote:
Using VBA How would I do the following,

(1) Get the Serial Number from the Computer (e.g. 55235-021-3292727-22741)

the following code will do what I want for this part of my question, if there is an easier way please let me know

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Sheets("Setup").Visible = xlSheetVisible
Sheets("setup").Select
Set ws = ThisWorkbook.Sheets("Setup")
Set wmiObjSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_OperatingSystem")
For Each obj In wmiObjSet
ws.Range("g19").Select
Selection.Value = Reversed(obj.SerialNumber)
Label1.Caption = Reversed(obj.SerialNumber)
Next obj
Application.ScreenUpdating = True
End Sub

Derrick


_________________
Http://www.cashglow.com/affiliates/technix
This message was edited by technix on 2002-09-19 09:33