Share your messenger address!

[dagcrack]

No, the domain should be faked too.. I've got a catch-all setting in my dns, I get anything @ my domain... so that tells you that the domain should also be faked, as an option if you want..

[Baldrick]

lol
In that case just include a command to findstring after the @ & incorporate the domain name as well in the fake i.d.
Sample is just a bit of code i litterally knocked out while sitting here pouring bourbons down my throat ( prolly not the best time to be writing code. lol )

i can add if u want, but i reckon 99.9% of ppl here dont need my help for that.
Regards,
Baldrick

[Baldrick]

Here you go Dagcrack,
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.
Regards,
Baldrick
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

[SoulReaper]

Heres an idea

why not use skype at www.skype.com it messages and has chat and as a bonus voice coms so we can hear each other

oh and none of the adverts and annoying stuff...

just a thought

[Joakim Christiansen]

Heres an idea

why not use skype at www.skype.com it messages and has chat and as a bonus voice coms so we can hear each other

oh and none of the adverts and annoying stuff...

just a thought

Yeah, skype is a good idea!
My skype name is joakimch.

[SoulReaper]

Well just to let every one know me Skype id is Parsec.Design

hey maybe everyone will use skype and that way it will be less traffic on the message board

[lexvictory]

but wat about those on dialup? (that includes me at the moment... )

but skype would b good 4 those who have a high speed net connection...
(is skype a voip thing?...)

[SoulReaper]

yes Skype is voice over ip and for those who have very little band width i am sure that it usage of bandwith is low

however there is always text chat or messaging