I wrote this script (and a couple of other variations) to see what other people are using URL shortening services for. The script simply generates random strings of four characters and then opens a new browser window and connects to the
tinyurl site to see if the URL can be resolved to a web page.
set myString to "abcdefghijklmnopqrstuvwxyz1234567890"
set searchString to ""
repeat until (count of items in searchString) is equal to 4
set i to some item of myString
set searchString to searchString & i
end repeat
set myURL to "http://tinyurl.com/" & searchString
tell application "Safari"
activate
make new document
set the URL of document 1 to myURL
end tell
set the clipboard to searchString
If you find a really interesting site you can retrieve the original string from the clipboard. This script is best used from the "Script Menu." I've also written a javascript version that you can access by
dragging this link to your Safari bookmarks bar and then clicking whenever you want a random page loaded.