I put a bit of an effort in today while slowly recovering from a bit of a hangover after ending up at the pub last night.
I have modified that previous code so that you can modify just your name side or both name & domain main part.
Don't really know if this would fool the spiders n stuff, but have a look anyway & see what you reckon.
p.s. it now also adds an odd character at the start when u choose hide domain name which should also slow down spammers trying to direct copy addresses.
p.p.s. Also had a bit of a chat with a friend of mine on msngr tonight about whether this would work or not. he wasn't sure as to whether it would work or not either. & I thought he would prolly know seeing as he is all M$ certified @ engineer level & until only a few weeks back was working for a major ISP here in Oz.
Code: Select all
; Just an idea for the ppl's on this forum if they want to share messenger
; addies without fear of web crawlers / spiders harvesting their email addresses
; just use something like this to fake & normalise email addies by + - on the
; acii values of part of the addie & let the crawlers harvest to their
; hearts content with the fake versions left on the forum pages :)
; by Baldrick
; Now modified to disguise the 1st part of your domain name as well if you choose
; adds ascii chr 187 to start when hide domain is used. chr 187 needs to be left in place
; to return to correct addy
;
#mainWindow = 0
#winw=500
#winh=250
#winx = 0
#winy= 0
pgmname.s="Crawler Trawler"
Enumeration
#Menu0
#MenuQuit
#Button1
#HideMainDomain
#ItsRealText
#RealText
#RealAddy
#FakeIt
#FakeText
#FakeAddy
#ItsFakeText
#FakeText2
#FakeAddy2
#NormaliseIt
#RealText2
#RealAddy2
EndEnumeration
Procedure.s DoIt(email.s,Bool.l); Bool = 0 or 1 / #False or #True
adlen=Len(email)
hideDn=FindString(email,Chr(187),1)
If hideDn
hideDn$=Mid(email,1,1)
email=Mid(email,2,adlen)
adlen-1
Else
email=Mid(email,1,adlen)
EndIf
at=FindString(email,"@",1)
Dname=FindString(email,".",at)
name$=Mid(email,1,at)
at$=Mid(email,at,1)
Dnamelen=Dname-at-1
Dname$=Mid(email,at+1,Dnamelen)
DnameRest$=Mid(email,Dname,adlen-Dname+1)
name=Len(name$)-1
For a=1 To name
new$=Mid(name$,a,1)
new=Asc(new$)
If bool=#False
new2$=Chr(new+1)
EndIf
If bool=#True
new2$=Chr(new-1)
EndIf
newname$=newname$+new2$
Next
If hideDn
For a=1 To Dnamelen
newd$=Mid(Dname$,a,1)
newd=Asc(newd$)
If bool=#False
newd2$=Chr(newd+1)
EndIf
If bool=#True
newd2$=Chr(newd-1)
EndIf
newDname$=newDname$+newd2$
Next
Else
newDname$=Dname$
EndIf
If hideDn And bool=#False
newmail$=hideDn$+newname$+at$+newDname$+DnameRest$
Else
newmail$=newname$+at$+newDname$+DnameRest$
EndIf
ProcedureReturn newmail$
EndProcedure
mainwin.l = OpenWindow(#mainWindow,#winx,#winy,#winw,#winh,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered,pgmname)
If mainwin
CreateMenu(#Menu0, mainwin)
MenuItem(#MenuQuit, "&Quit "+pgmname) : AddKeyboardShortcut(#mainWindow,#PB_Shortcut_Escape ,#MenuQuit)
CreateGadgetList(mainwin)
Frame3DGadget(#ItsRealText,5,10,220,170,"Type or paste Real Email for Faking")
CheckBoxGadget(#hideMainDomain,10,30,200,15,"Hide Domain Main Name")
TextGadget(#RealText,10,50,200,15,"Real Email Address")
StringGadget(#RealAddy,10,65,200,20,"name@myisp.org.au")
ButtonGadget(#FakeIt,10,100,50,20,"Fake It")
TextGadget(#FakeText,10,130,200,15,"Fake Email")
StringGadget(#FakeAddy,10,145,200,20,"")
Frame3DGadget(#ItsFakeText,245,10,220,170,"Type or paste Fake Email to Normalise")
TextGadget(#FakeText2,250,50,200,15,"Fake Email Address")
StringGadget(#FakeAddy2,250,65,200,20,"")
ButtonGadget(#NormaliseIt,250,100,65,20,"Normalise It")
TextGadget(#RealText2,250,130,200,15,"Real Email")
StringGadget(#RealAddy2,250,145,200,20,"")
ButtonGadget(#button1,(#winw/2)-30,#winh-45,50,20,"Quit")
EndIf
Repeat
EventID.l = WindowEvent()
Delay(1)
If EventID = #PB_EventMenu
Select EventMenuID()
Case 1
Quit = 1
EndSelect
EndIf
If EventID = #PB_EventGadget
Select EventGadgetID()
Case #FakeIt
myemail.s=GetGadgetText(#RealAddy)
If GetGadgetState(#HideMainDomain)=1
myemail=Chr(187)+myemail
EndIf
newaddy$=doIt(myemail,#False)
SetGadgetText(#FakeAddy,newaddy$)
SetGadgetText(#RealAddy,"")
Case #NormaliseIt
myfakeemail$=GetGadgetText(#FakeAddy2)
NormalAddy$=DoIt(myfakeemail$,#True)
SetGadgetText(#RealAddy2,Normaladdy$)
SetGadgetText(#FakeAddy2,"")
Case #Button1
quit=1
EndSelect
EndIf
If EventID = #PB_Event_CloseWindow:Quit = 1:EndIf:Until Quit = 1:End
( prolly not the best time to be writing code. lol )
