Validering af password

Jo send lige en mail til Jens@Borrisholt.com

Så sender jeg dig en function der kan !!

Jens B

Jeg har sendt en mail. ellers er min mail mark@aaks.aarhus.dk

Der er fejl i denne her funktion:

function AddEntry (dwKey : DWORD; pData : pointer) : boolean;
var
  pTemp : PNode;
begin
  GetMem (pTemp, sizeof (TNode));
  if Assigned (pTemp) then
  begin
    pTemp^.dwKey := dwKey;
    pTemp^.pData := pData;
    pTemp^.pNext := Head.pNext; <----------- i denne linie
    Head.pNext := pTemp;
    result := True
  end
  else
    result := False
end;

Med fejlen: "Left side cannot be assigned to"

Det ved jeg ikke ... Den fungeret fint her ..

Prøv etv at sætte :

{$J+}


Jens B

Det Er det der er galt fordi i

Delphi 6+ er "Writeable typed constants" slået fra som default, altså
{$j-}.

Hvis jeg i Delphi 5 compilerer med {$j-} får jeg samme fejl.

Jens B

Det virker også fint nu, men jeg får en exeption

Ikke i mit kode da !

Jens B

Jeg bruger Delphi 7

Jo...

.......
...
  InSecBuff.cbBuffer := cbIn;
  InSecBuff.BufferType := SECBUFFER_TOKEN;
  InSecBuff.pvBuffer := pIn;

  if pAS^._fNewConversation then
    phctxt := Nil
  else
    phctxt := @pAS^._hctxt;

  ss := funcs^.AcceptSecurityContext (@pAS^._hcred, phctxt, @InBuffDesc, 0, SECURITY_NATIVE_DREP, @pAS^._hctxt, @OutBuffDesc, ContextAttributes, Lifetime);
  if ss < 0 then
    raise Exception.CreateFmt ('init context failed: %d', [ss]); <----- HER!!!

  pAS^._fHaveCtxtHandle := TRUE;

  // Complete token -- if applicable

  if (ss = SEC_I_COMPLETE_NEEDED) or (ss = SEC_I_COMPLETE_AND_CONTINUE) then
  begin
..................................
...

Du har vel ikke rettighedder til at kalde functionen ?

Hvilke rettigheder skal jeg have?

Jeg er lokal administrator og domain admin

Jeg ved det ikke lige. Den virker fint i Delphi 5.

Jens B

Jeg prøver lige i delphi 5.....

Så må du igang med debuggeren.

Jeg vil gerne have svarer når du finder det !

Jens B

Okay Jens, jeg har lige testet i Delphi 5 og den laver den samme fejl...

Hej Jens.
Jeg har ikke lige forudsætningerne for at debugge i din kode. Jeg har kigget på det men jeg bliver bare mere forvirret end klogere.. :-)
Jeg mangler lidt dokumentation eller lign. Kan det virkelig passe at der ikke bare findes et API-kald til at validere en bruger?

Jeg har lige lavet et test program :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := SSPLogonUser('Borrisholt', 'Administrator' , 'Hest');
end;

Milijø : Windows 2000 SP3
Compiler :  Delphi 5 sp2

Og det virker fint.

Skulle nogen være i tvivl så er det IKKE admin passworded til min maskine !!

Jens B

Kan det være fordi det er et NT4 domæne?

Det er kun når jeg kører programmet i delphi at jeg får exeptionen. btw. hvis jeg skriver det rigtige password så laver den ingen exeption?????.....

Kan man på en måde bede compileren om at slappe lidt af?

Det er også kun en "Debugger Exception Notification" kan man ikke få debuggeren til at holde kæft ved denne meddelse?

Hvilken Delphi ? 5?

Nej Delphi 7, men når jeg prøver i delphi 5 så opfører den sig på samme måde.

tools->Debugger Options->Language Exceptions

Der inde under skal ud fjerne krydset i "Stop on Delphi Exceptions"

Det virker vist også i D7

Jens B

Det hedder ca det samme i d7

Også virker functionen også !!

Og by the way den er oprindeligt skrevet den gang jeg kørte Windows NT 4.

Jens B