Re: Something fun to try..

From: Jim Carlock (anonymous_at_127.0.0.1)
Date: 03/10/04 

Date: Wed, 10 Mar 2004 15:38:49 -0500

Some people can read hex as ascii codes. It's just a simple
memorization study that might take a day to grasp and become
100% effective with, but it can usually be done much quicker,
when you realize that all alphabetic characters are in the:

A-Z : 41 to 5A
a-z : 61 to 7A

ranges. 

-- 
Jim Carlock
http://www.microcosmotalk.com/
Post replies to the newsgroup.
"Matt Williamson" <ih8spam@spamsux.org> wrote in message
news:uf%23ys6tBEHA.3348@TK2MSFTNGP11.phx.gbl...
| 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
| >
| >
|
|