Re: Something fun to try..
From: Larry Serflaten (serflaten_at_usinternet.com)
Date: 03/10/04
- Next message: Jim Carlock: "Re: VBA Question - How to Show Excel File Path?"
- Previous message: Michael Culley: "Re: classic or dotnet"
- In reply to: Matt Williamson: "Re: Something fun to try.."
- Next in thread: Matt Williamson: "Re: Something fun to try.."
- Reply: Matt Williamson: "Re: Something fun to try.."
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 10 Mar 2004 16:23:19 -0600
"Matt Williamson" <ih8spam@spamsux.org> wrote
> 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
You need not convert it to other formats, a little jumbling does just fine:
For i = 0 To 5: For j = 1 To 4: Debug.Print Mid$("fresetalsu@netnitenrmoc.", 4 * i + 5 - j, 1);: Next j, i
:-)
LFS
- Next message: Jim Carlock: "Re: VBA Question - How to Show Excel File Path?"
- Previous message: Michael Culley: "Re: classic or dotnet"
- In reply to: Matt Williamson: "Re: Something fun to try.."
- Next in thread: Matt Williamson: "Re: Something fun to try.."
- Reply: Matt Williamson: "Re: Something fun to try.."
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
Loading
