Administrator Privileges

[alienoiz]

or if its possible, converge parts of code from the already known encryption technics and make a mixed one along with a touch of your own imagination
btw..ive tried to use encryption once and i saw that when you call the decryption function before encrypt it encrypts in another way..this could be an idea to a diferent encryptation code...inverting it with the same parameters :s dunno...gotta go sleep

[alienoiz]

hi,..its to say thank you..i solved my prob..changed the keys into local machine hive..it works perfectly...i just dont understand why it create the key in a subkey called virtual store and not in the "main" key...i hope this is no problem..i mean this virtual store subkey will not be deleted after a while will be?

Thx!

Duarte V.

[alienoiz]

hi...ive been wondering if we can get back again with the convo but now with another question....
if possible can you tell me how do i split a username into hex? like...i know that using

x = hex(asc(n))

converts my "n" into hex but who do i split my name for eg: Duarte ... make "Dua" one part of an hex and "rte" another part so i can have 2 codes like HF08-ADF7 for eg.
Can you help me?....
Thanks!

Duarte V.

[WoF]

You could make a loop and go through all characters of a string. Example:

  dim i$, o$, n%
  i$ = "ZYXWVU"
  For n = 1 To Len(i$)
    o$ = o$ + Right$("0" + Hex$(Asc(Mid$(i$, n, 1))), 2)
  Next

The Mid$(i$, n, 1) picks one character out of the string with each pass of the loop.
The Right$("0" + Hex(...) ,2) is a trick to make sure you will always get a 2 digit hex number for each character. Otherwise reconversion would become difficult.
The hex result of the above example (ZYXWVU) would be "5A5958575655"

[alienoiz]

You could make a loop and go through all characters of a string. Example:

  dim i$, o$, n%
  i$ = "ZYXWVU"
  For n = 1 To Len(i$)
    o$ = o$ + Right$("0" + Hex$(Asc(Mid$(i$, n, 1))), 2)
  Next

The Mid$(i$, n, 1) picks one character out of the string with each pass of the loop.
The Right$("0" + Hex(...) ,2) is a trick to make sure you will always get a 2 digit hex number for each character. Otherwise reconversion would become difficult.
The hex result of the above example (ZYXWVU) would be "5A5958575655"

soory i cant get it ..this is my code

st9 = Username.Text
st10 = Hex(Base * Asc(st9))
Label8.Caption = st10

how do i fit your code in here????

should it be like this

st10 = Hex(Base * Asc(st9))
  i$ = st10
  For n = 1 To Len(i$)
    o$ = o$ + Right$("0" + Hex$(Asc(Mid$(i$, n, 1))), 2)
  Next

Much Thanks!

[alienoiz]

ok..i got it..thanks WoF .. much pleasure to meet you

Duarte Vinagre

[alienoiz]

my friend... this gives me a very big number for my name (for eg..i can see when i take a letter it decreases 2 values on the hex, but how do i divide it make it a bit smaller? ...sorry..like i said before i code an app from 5 to 5 years and i normaly only use tutorials and stuff. :S

Thanks!

Duarte V.

[alienoiz]

ok i got in n = n +1, 2, 3 etc

[alienoiz]

You could make a loop and go through all characters of a string. Example:

  dim i$, o$, n%
  i$ = "ZYXWVU"
  For n = 1 To Len(i$)
    o$ = o$ + Right$("0" + Hex$(Asc(Mid$(i$, n, 1))), 2)
  Next

The Mid$(i$, n, 1) picks one character out of the string with each pass of the loop.
The Right$("0" + Hex(...) ,2) is a trick to make sure you will always get a 2 digit hex number for each character. Otherwise reconversion would become difficult.
The hex result of the above example (ZYXWVU) would be "5A5958575655"

WoF are you still there? i would like to ask you if its possible to convert the entire Sid number into an Hex value..ive been trying with this piece of code you gave me but im not doing it right...i would like some help if possible...Thanks!