Re: Something fun to try..

From: Saga (antiSpam_at_somewhere.com)
Date: 03/10/04 

Date: Wed, 10 Mar 2004 13:02:53 -0600

Ok, here is the one I use:

Nothing fancy <g>

  Dim strText As String, email As String
  strText = "Appreciate the salt and sugar of life."
  email = Mid$(strText, 16, 3) & "_" & Mid$(strText, 27, 3)
  MsgBox email & Mid$(strText, 6, 3) & Chr$(64) & "bigfoot.com"

Saga

"Matt Williamson" <ih8spam@spamsux.org> wrote in message
news:%23Gd9IDsBEHA.2600@TK2MSFTNGP09.phx.gbl...
> Yesterday, I wanted a way to publicly give someone my email address
without
> showing it in any way that a spam robot might pickup on, knowing the
> intended audience was a vb programmer, I made it vb code. I tried to do it
> in the least amount of lines as I could so I could put it in a sig or
> something. I got it down to 3 lines including variable decs. It's very
> simple, just using chr to string conversion, but effective I think. I was
> wondering what others would come up with given this. I find these little
> challenges to be very helpful in "outside of the box thinking" and
increase
> the pool of knowledge.
>
> Anyone care to add theirs? I'm hoping we can get really creative.
>
> here is mine:
>
> Dim s1 As String, s2 As String, i As Long
> s1 = "000109097116116119105108064097100101108112104105097046110101116"
> For i = 1 To Len(s1) Step 3: s2 = s2 & Chr$(Mid(s1, i, 3)): Next: msgbox
> s2
>
>
> Matt
>
>

Relevant Pages

  • Re: Update Textbox based on Selection from Multiple Comboboxes
    ... dim strtext as string ... (This is assuming that the comboboxes are all selected in sequence. ... At some point, maybe at the first combobox, you should empty the textbox ... Otherwise the string will just keep adding ...
    (microsoft.public.access.formscoding)
  • Re: Access 2000 - Loop through a Memo field with VBA
    ... of the document in a Memo field. ... routine that will loop through each character of the Memo field ... You can assign the field's value to a string variable, ... Dim strText As STring ...
    (microsoft.public.access.modulesdaovba)
  • =?ISO-8859-1?Q?Re=3A_Ascii_und_Ansi_tauschen_-_Codep?= =?ISO-8859-1?Q?roblem_L=D
    ... Weiss ich nicht, aber du bist nicht alleine auf der Welt, der diese Problem hat;-) ... "Dim strText As String * 255" ... In der Unwissenheit über die Vergangenheit liegt das Verderben der Zukunft. ...
    (microsoft.public.de.word.vba)
  • Re: String Functions
    ... Dim strtext As String = "testcalls" ... What happends if i dont know the lenght. ...
    (microsoft.public.dotnet.languages.vb)
  • Re: How do I shape a kit-guitar headstock into a Tele shape?
    ... a Saga -- in fact, it's the one mentioned in here about 10 days ago ... I have plans to install a G&L fat single-coil in the neck ... The guitar looks alright. ... Will it eventually come back with a fresh E string exerting due ...
    (alt.guitar)