Neutral General,
Ich würde als Ergebnis der Funktion nicht einen PChar sondern einen Boolean Wert verwenden.
Ansonsten müßtest Du nach Rückkehr aus der Prüfroutine noch prüfen, ob der PChar auf den
Text 'jo is richtig :)' zeigt.
Ich denke der Sinn der Prüfroutine ist, zu prüfen ob das Password richtig ist, um dann entsprechend reagieren zu können, und nicht nur den Text auszugeben.
Und ESI, EDI sollen nicht verändert werden.
So sollte es funktionieren (habs nicht geprüft !)
Delphi-Quellcode:
function PW(A: PChar):Boolean;
asm
jmp @go
@pw:
DB '
geheim',0
// Das Passwort
@go: push esi
// Register retten, dürfen nicht verändert werden
push edi
mov esi,eax
// Adresse A
lea edi,@pw
// Adresse PW
cld
// 'Suchrichtung' vorwärts
mov ecx,7
// 7 Zeichen (einschl. 0 sind zu prüfen)
repe cmpsb
// vergleicht solange, bis entweder ECX Zeichen geprüft sind, oder Ungleichheit festgestellt wurde
sete al
// setzt result dann=1 (true), wenn ZF=1 ist
pop edi
pop esi
end;