Re: Something fun to try..
From: Matt Williamson (ih8spam_at_spamsux.org)
Date: 03/10/04
- Next message: Pedro Carneiro Jr.: "VBA Question - How to Show Excel File Path?"
- Previous message: Jim Carlock: "Re: Windows XP SP2 may break existing apps"
- In reply to: Matt Williamson: "Something fun to try.."
- Next in thread: Jim Carlock: "Re: Something fun to try.."
- Reply: Jim Carlock: "Re: Something fun to try.."
- Reply: Larry Serflaten: "Re: Something fun to try.."
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 10 Mar 2004 15:32:18 -0500
My new version.. cuts it down to 2 lines and unless you can do Hex to
decimal to character conversion in your head there is no way to get it out
without running the code. <g>
Dim a$, b$, i&: a = "6D61747477696C406164656C706869612E6E6574"
For i = 1 To Len(a) Step 2: b = b & Chr$(Val("&H" & Mid(a, i, 2))): Next:
MsgBox b
Matt
"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
>
>
- Next message: Pedro Carneiro Jr.: "VBA Question - How to Show Excel File Path?"
- Previous message: Jim Carlock: "Re: Windows XP SP2 may break existing apps"
- In reply to: Matt Williamson: "Something fun to try.."
- Next in thread: Jim Carlock: "Re: Something fun to try.."
- Reply: Jim Carlock: "Re: Something fun to try.."
- Reply: Larry Serflaten: "Re: Something fun to try.."
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
