SQL-based authentication: Difference between revisions
→{{header|Objeck}}
Line 448:
method : Run() ~ Nil {
CreateUser("
@conn->Close();
};
}
method : AuthenticateUser(username : String, password : String) ~
status := false;
ps : ParameterStatement;
result : ResultSet;
if(@conn->IsOpen()) {
sql := "SELECT pass_salt, pass_md5 FROM users WHERE username = ?";
Line 462 ⟶ 466:
result := ps->Select();
if(result <> Nil & result->Next()) {
salt := "";
for(i := 0; i < 16; i+=1;) {
salt->Append(salt_buffer[i]);
};
db_password_buffer := Byte->New[16];
result->GetBlob(2, db_password_buffer);
password->Append(salt);
IO.Console->Print("user: authenticated=")->PrintLine(IsEqual(db_password_buffer, user_password_buffer));
};
};
if(ps <> Nil) {
ps->Close();
};
if(ps <> Nil) {
ps->Close();
};
};
}
Line 483 ⟶ 503:
md5_password := Hash->MD5(password->ToByteArray());
ps : ParameterStatement;
if(@conn->IsOpen()) {
sql := "INSERT INTO users(username, pass_salt, pass_md5) VALUES (?, ?, ?)";
ps := @conn->CreateParameterStatement(sql);
ps->SetVarchar(1, username);
ps->
ps->
IO.Console->Print("adding user: username=")->Print(username)
->Print(", salt=")->Print(salt)
->Print(", status=")->PrintLine(ps->Update());
leaving {
if(ps <> Nil) {
ps->Close();
};
};
}
method : IsEqual(left : Byte[], right : Byte[]) ~ Bool {
if(left->Size() <> right->Size()) {
return false;
};
each(i : left) {
if(left[i] <> right[i]) {
return false;
};
};
return true;
}
}</lang>
=={{header|Perl}}==
| |||