Email works info (at) and info (at)


Reiner Schneeberger, Cell phone +49 1712077087

That is the code for a ROT13 cipher, printed on the business card, written in LSL for opensim:

// ROT 13 cipher by Art Eames and Art Blue, free to use, but credit the makers

// put the script in a prim and click on it …

list input = [“A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”];
list output = [“N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z”, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”];

integer listener;

touch_start(integer total_number)
integer channel = ~(integer)llFrand(1000.0);
listener = llListen(channel, “”, “”, “”);
llTextBox(llDetectedKey(0), “Type to encrypt …”, channel);

listen(integer channel, string name, key id, string msg)
string to_encode = msg;
llSay(0, to_encode);
integer length = llStringLength(msg);
llSay(0, (string)length);
integer w = 0;
integer i;
string encoded;
do {
string cur = llGetSubString(to_encode, w, w);
i = llListFindList(input, [cur]);
if(i != -1) {
encoded += llList2String(output, i);
} else {
encoded += cur;
w += 1;
while(w <= length);

llSay(0,”You wrote: ” + encoded);