Cryptogram!

[Zack]

@Z!re: you sure there aren't undisplayed characters in there? There would be if you copied it directly from some sort of bitwise encryption.

Anywho, good job all! Here's the code that generated it - notice how the character correspond. :wink:

Code:

dim as string kb,ol,phrase,temp,c_phrase
dim as integer offset
kb="QWERTYUIOPASDFGHJKLZXCVBNM"
ol="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
phrase="OF ALL THE FORUM MEMBERS HERE, MANY ARE CLEVER ENOUGH TO FIGURE THIS OUT. " + _
        "AGAMEMNUS IS PARTICULARLY GOOD AT THIS SORT OF THING, AND SO I'M BETTING " + _
        "THAT HE WILL WIN THIS COMPO. GOOD LUCK TO ALL, AND IF YOU ARE THIS FAR ALONG, " + _
        "CONGRATS, YOU HAVE IT!"
apos=asc("A")
zpos=asc("Z")
for i=1 to len(phrase)
    temp=mid$(phrase,i,1)
    if asc(temp)>=apos and asc(temp)<=zpos then
        offset=asc(temp)-apos+1
        c_phrase+=mid$(kb,offset,1)
    else
        c_phrase+=temp
    end if
next
print phrase
print c_phrase
sleep