Anti Piracy Techniques Questions

[cmmorris1]

Heres how i do it:
1. Encrypt the reg file
2. Hide the reg file
3. Use an online vendor that accepts credit cards and emails the reg number.
Eg:

fileName = App.Path & ":test.dat" 'Hide the file

Decrypt and incrept the file:
Public Function Encrypt1(Txt As String, CodeNr As Integer) As String
Dim I As Long
Dim Out As String

'Inital output value is empty string
Out = ""

'Change ASCII codes
For I = 1 To Len(Txt)
Out = Out & Chr(Asc(Mid$(Txt, I, 1)) + CodeNr)
Next I

Encrypt1 = Out
End Function

Public Function Decrypt1(Txt As String, CodeNr As Integer) As String
'Decryption is the same as encryption with CodeNr*-1
Decrypt1 = Encrypt1(Txt, CodeNr * -1)

End Function

Using the encrypt-decrypt

sText = Encrypt1(sText, 7)' incrypt

sText = Decrypt1(sText, 7) 'uncrypt the string
Don't remember why i used 7

Pay and get registration number emailed
http://www.fastspring.com/

Doesn't that only encrypt after it reads plain text? I'm trying to encrypt the code so that instead of typing hxxp://www.mysite.com it would be random jibberish that is unreadable from the start, even in source code. Anyhow, I don't want a reg file on the pc at all, I want it to verify the codes serverside using the email / transaction id instead of a key that can be keygenned.