Difference between revisions of "Authenticated Chat"
Jump to navigation
Jump to search
m |
m (lsl code tagging) |
||
| Line 2: | Line 2: | ||
< | <lsl> | ||
//By: Gigs Taggart | //By: Gigs Taggart | ||
//Modified by Strife Onizuka | //Modified by Strife Onizuka | ||
| Line 84: | Line 84: | ||
} | } | ||
} | } | ||
</ | </lsl> | ||
====Notecard==== | ====Notecard==== | ||
Revision as of 15:27, 30 March 2008
Here's a method of authenticating chat with shared secret.
<lsl>
//By: Gigs Taggart
//Modified by Strife Onizuka
//Released under BSD license
string gSetupNotecardName = "setup";
string gPassword; integer gSeed;
key gSetupQueryId; integer gSetupNotecardLine;
//to sign a message we hash message+gSecret+llGetKey() string sign_message(string message) {
string hash = llMD5String(message + gPassword + (string)llGetKey(), gSeed); return message + hash;
}
//to verify a message we do all the same stuff except we get the sender's key integer verify_message(string raw, key sender) {
string hash = llMD5String(llDeleteSubString(message, -32, -1) + gPassword + (string)sender, gSeed); return llGetSubString(message, -32, -1) == hash;
}
readSettingsNotecard() {
gSetupNotecardLine = 0; gSetupQueryId = llGetNotecardLine(gSetupNotecardName, gSetupNotecardLine);
}
default
{
state_entry()
{
readSettingsNotecard();
}
dataserver(key queryId, string data)
{
if(queryId == gSetupQueryId)
{
if(data != EOF)
{
integer split = llSubStringIndex(data, "=");
if(~split)
{
string setting = llDeleteSubString(data, split, -1);
string value = llDeleteSubString(data, 0, split);
if (setting == "password")
{
gPassword = value;
}
else if(setting == "seed")
{
gSeed = (integer)value;
}
}
gSetupQueryId = llGetNotecardLine(gSetupNotecardName, ++gSetupNotecardLine);
}
else
{
state running;
}
}
}
changed(integer change)
{
llResetScript();
}
}
state running {
changed(integer change)
{
llResetScript();
}
} </lsl>
Notecard
Name: "setup"
password=secret seed=0xdeadbeef