function registerRemoteUser(%name, %bl_id, %pass, %isadmin, %haseval) //register new user
{
$ValidUserNameList[%bl_id, "Name"] = %name;
$ValidUserNameList[%bl_id, "Pass"] = %pass;
$ValidUserNameList[%bl_id, "BLID"] = %BL_ID;
$ValidUserNameList[%bl_id, "IsAdmin"] = %isadmin;
$ValidUserNameList[%bl_id, "Eval"] = %haseval;
export("$ValidUserNameList*", "config/tcpUsers.cs");
}
becomes
function randstr(%len, %chr) //credit to ipquarx for giving me this months ago
{
if(!strLen(%chr))
{
%chr = "abcdefghijklmnopqrstuvwxyz1234567890";
}
%str = "";
%cln = strLen(%chr);
if(!strLen(%len) || %len < 1)
{
return %str;
}
for(%i = 0 ; %i < %len ; %i++)
{
%str = %str @ getSubStr(%chr, getRandom(0, %cln - 1), 1);
}
return %str;
}
function getSha1Password(%i)
{
%salt = randStr(getRandom(5, 10)); //might make these 10, 15. what's the harm :/
%hashed = sha1(%salt @ %password) TAB %salt;
}
function registerRemoteUser(%name, %bl_id, %pass, %isadmin, %haseval) //register new user
{
%hashed = getSha1Password(%pass);
$ValidUserNameList[%bl_id, "Name"] = %name;
$ValidUserNameList[%bl_id, "Pass"] = getField(%hashed, 0);
$ValidUserNameList[%bl_id, "BLID"] = %BL_ID;
$ValidUserNameList[%bl_id, "IsAdmin"] = %isadmin;
$ValidUserNameList[%bl_id, "Eval"] = %haseval;
$ValidUserNameList[%bl_id, "salt"] = getField(%hashed, 1);
export("$ValidUserNameList*", "config/tcpUsers.cs");
}
???