Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
5. Apr 2009
ntldr patchen ist auch ein Sicherheitsrisiko, darauf möchte ich an dieser Stelle nochmal aufmerksam machen :mrgreen:
Darüber habe ich nochmal nachgedacht ! Ich habe gesehen, dass andere Hersteller Programme anbieten bei denen ein eigener Bootloader enthalten ist, dort wird nur der MBR auf der Festplatte geändert. Der MBR ist "genormt", während der "ntldr" eine Systemdatei von Microsoft...
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
5. Apr 2009
Sicher, mein KIOSK-Release bietet auch sehr viel, wenn man mal ganz genau hinsieht - wenn nicht mehr !!
KUBA
PS: ist ja auch kostenlos :zwinker:
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
5. Apr 2009
Aber der Computer befindet sich dann leider im "abgesicherten Modus" und nicht im "KIOSK-Modus" :thumb:
kuba
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
5. Apr 2009
Hallo,
vielen, vielen Dank !!!
Es funktioniert prima, anbei der "Patcher"
KUBA :cheers:
PS: winexec ersetzt durch FileSetReadOnly('c:\ntldr', False);
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
4. Apr 2009
Es ist zur Einrichtung eines KIOSK PC gedacht, dieser darf nicht durch Tastatureingaben in der Startphase unterbrochen werden ! Der abgesicherte Modus ermöglicht weitreichende Manipulationsmöglichkeiten um das System zu kompromittieren.
Der KIOSK PC läuft in einer virtuellen Maschine, daher muss F8 ausser Kraft gesetzt werden !
Die Information mit der F8 Taste kommt selbstverständlich von...
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
4. Apr 2009
Hallo,
ich finde bereits die Sequenz im ntldr, die Funktion ScanFile habe ich hier im Forum gefunden:
procedure TForm1.Button2Click(Sender: TObject);
var
thepos: integer;
begin
version := '';
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
4. Apr 2009
Hy,
bisher habe ich nur Textdateien ausgelesen, jetzt will ich den ntldr patchen, und zwar so:
search for the Hex value "CD 16 0F 85 09." When the value is located, replace it with "CD 16 90 90 90." Now when you reboot, press f8 for safe mode, you will not be able to select any options on the menu.
Da ich diese Geschichte in mein Softwarepaket integrieren will benötige ich "Examplecode"...
Forum: Sonstige Fragen zu Delphi
Delphi
by kuba,
4. Apr 2009
Hallo,
ich möchte in einer Datei eine HEX-Zeichenkette finden und durch eine andere ersetzen.
Gibt es da nicht eine einfache Möglichkeit ? Kann mir jemand einen Hinweis geben (am besten Codebeispiel) ?
KUBA