TheBuGz
Spammer
- Joined
- Jan 25, 2004
- Messages
- 367
Code:
RegNameInLen = Len(RegNameIn)
RegEmailInLen = Len(RegEmailIn)
RegCodeInLen = Len(RegCodeIn)
RegNameFirLet = Mid(RegNameIn, 1, 1)
AtPos = InStr(1, RegEmailIn, "@")
FirLetPos1 = InStr(1, RegCodeIn, RegNameFirLet)
FirLetPos2 = InStrRev(RegCodeIn, RegNameFirLet)
Code1 = Mid(RegCodeIn, 1, FirLetPos1 - 1)
DecodePriv = Code1 / (RegNameInLen + AtPos + RegEmailInLen)
If DecodePriv <> PrivCode Then GoTo Fail:
Code2 = Mid(RegCodeIn, FirLetPos1 + 1, FirLetPos2 - (FirLetPos1 + 1))
DecodeNum = Code2 / AtPos
RemNum = Code2 Mod AtPos
If RemNum <> 0 Then GoTo Fail:
Code3 = Mid(RegCodeIn, FirLetPos2 + 1)
DecodeType = Code3 / RegEmailInLen
RemType = Code3 Mod RegEmailInLen
If RemType <> 0 Then GoTo Fail:
I want to enter the above code in my workbook
kindly help me how to check the code
I want the user to email me his
Name= Tom Hanks
Email =tomhanks@msn.com
and I will send the code to to him
How to Kindly help.