Very GOOD Script !!!__________________________________________
-- simple standalone get-password-by-nick-bot by bonki 09/06/03
sBotName = "PasswdBot";
sGetPasswdPhrase = "!getpasswd";
sPasswdFile = "../RegisteredUsers.dat";
function DataArrival(curUser, sData)
local _, _, cmd, args = strfind(sData, "%b<>%s+(%S+)%s*([^%|]*)%|$");
if(cmd == nil) then
return 0; end
cmd = strlower(cmd);
if (cmd == sGetPasswdPhrase) then
curUser:SendData(sData);
if (curUser.bOperator) then
if (strlen(args) > 0) then
local sPasswd = GetPassword(args);
if (sPasswd) then
curUser:SendData(sBotName, args.."'s password is: '"..sPasswd.."'");
else
curUser:SendData(sBotName, "User "..args.." doesn't exist!");
end
else
curUser:SendData(sBotName, "Syntax: "..sGetPasswdPhrase.." ");
end
else
curUser:SendData(sBotName, "You don't have sufficient rights to run that command!");
end
return 1;
end
return 0;
end
function GetPassword(sFrom)
local flPasswdFile = openfile(sPasswdFile, "r");
local line = "";
sFrom = strlower(sFrom);
if (flPasswdFile) then
line = read(flPasswdFile);
while (line) do
_, _, sNick, sPasswd = strfind(line, "^(%S+)|(%S+)|");
if (strlower(sNick) == sFrom) then
return sPasswd;
end
line = read(flPasswdFile);
end
closefile(flPasswdFile);
end
return nil;
end
Why should operators have the right to see passwords of all users, including other operators, masters, etc?
-NotRabidWombat
i'm impressed of the resemblence with the same script Bonki made somt time ago....
-- simple standalone get-password-by-nick-bot by bonki 09/06/03
sBotName = "PasswdBot";
sGetPasswdPhrase = "!getpasswd";
sPasswdFile = "../RegisteredUsers.dat";
function DataArrival(curUser, sData)
local _, _, cmd, args = strfind(sData, "%b<>%s+(%S+)%s*([^%|]*)%|$");
if(cmd == nil) then
return 0; end
cmd = strlower(cmd);
if (cmd == sGetPasswdPhrase) then
curUser:SendData(sData);
if (curUser.bOperator) then
if (strlen(args) > 0) then
local sPasswd = GetPassword(args);
if (sPasswd) then
curUser:SendData(sBotName, args.."'s password is: '"..sPasswd.."'");
else
curUser:SendData(sBotName, "User "..args.." doesn't exist!");
end
else
curUser:SendData(sBotName, "Syntax: "..sGetPasswdPhrase.." ");
end
else
curUser:SendData(sBotName, "You don't have sufficient rights to run that command!");
end
return 1;
end
return 0;
end
function GetPassword(sFrom)
local flPasswdFile = openfile(sPasswdFile, "r");
local line = "";
sFrom = strlower(sFrom);
if (flPasswdFile) then
line = read(flPasswdFile);
while (line) do
_, _, sNick, sPasswd = strfind(line, "^(%S+)|(%S+)|");
if (strlower(sNick) == sFrom) then
return sPasswd;
end
line = read(flPasswdFile);
end
closefile(flPasswdFile);
end
return nil;
end
*Typhoon?
ouch, that hit the spot right on
Verry good Clone haha
Wow the user who posted this does not just steal users and send out bad scripts but he also COPYS scripts and takes the credit 4 them.
Adds to my case he should be kicked off the forum.lol
Sudds
Why "clone" Optimus ???
:(
QuoteWhy should operators have the right to see passwords of all users, including other operators, masters, etc?
i don't see any reason for it. This is btw a weird thing normally admins can't see passwords of their users.