CMD Befehle in Delphi ausführen (mehrere)

[Assun]

Hi !

Wie kann ich folgende Befehle in Delphi verwenden? hat da vllt. jemand ne Idee ?

Hier mal ein Tutorial Zitat (funtzt !!)

Zitat:

This article shows how to clear the BIOS/CMOS password.Though it's dangerous to play with Motherboard...but this worked fine with my computer.
The main idea looks like as stated below :
1] Exit Windows & reboot to DOS.

2] Go to C:\> prompt

3] (type)DEBUG (press ENTER) {it will show like an underscore _}

4] (type)o 70 2e (press ENTER) {o->orange,don't mess with this line!}

5] (type)o 71 ff (press ENTER) {o->orange,don't mess with this line!}

6] (type)Q (press ENTER) {Quit Debug,it will take u back to C: prompt}

You're Done! Shut Down your PC & restart.If ay message shows up...press F1 to run setup of CMOS.Then press F10.Type Y and Exit.See it won't ask again for Supervisor/User passwords !!

[jfheins]

Zitat:

1] Exit Windows & reboot to DOS.

Ich will sehen, wie du das mit einem Delphi-Programm schaffst (so, dass das programm nachher noch läuft) :mrgreen:

ich glaube nicht, dass das so geht ;)

[Assun]

:gruebel: Dieses Tutorial geht halt davon aus dass man im DOS ist. Es geht aber auch im Windoof per CMD.exe (selbst getestet) ;-)

soll heissen, man muss nur diese 3 Zeilen in der CMD.exe eintippen, neustarten und schon is das Bios resettet. (Ebenfalls getestet)

[DGL-luke]

bist du dir sicher, dass das bei allen BIOSen geht?
wenn nein, welchen sinn hat es dann, dafür ein delphiprog zuschreiben?

wenn ja: batchdatei in die ressourcen rein, in ne datei exportieren und ausführen (per shellexecuteex), und wenn du ein ganz ein 733t3r bist,die batch wieder löschen :zwinker:

[Assun]

jo es geht mit allen Bios"en" (wie war die Mehrzahl von Bios nochmal ?). Nur ich möchte das gerne ohne externe File machen. Das MUSS doch irgendwie mit Delphi gehen !?! Könnte man nicht irgendwie cmd.exe extern aufrufen und mit Parametern das Problem lösen `?

Gruß Assun

[SubData]

Ich hab so meine Zweifel, dass mein extra mit nem Hardware Jumper schreibgeschütztes Bios sich auf die Methode resetten lässt.
Genauso kann ich mich daran erinnern, dass DELL (Glaube es war DELL) mal eine Rechnerbaureihe hatte, die tatsächlich eingeschickt werden musste, falls man das Passwort vergisst.

Desweiteren kenn ich ein halbes dutzend Notebooks, deren Passwort nicht über die DOS Ebene entfernen kann (Auch sowas wie Schreibschutz)

Ich bezweifel also ganz stark, dass die Methode mit allen Bios'en' funktioniert, mal ganz davon abgesehen: Was sagen denn die Viren-Scanner zu so einem Programm ?

[scp]

Wie wärs wenn du auch gleich auf die cmd.exe und debug verzichtest und es per inline assembler oder PortOut() versuchst? Müsste z.B. mit DLPortIO gehen.
Aber immer schön vorsichtig :-) Egal ob mit debug oder PortIO.

Das es mit jedem BIOS geht glaube ich auch nicht.

[Assun]

habe es erfolgreich an meinem eigenen Bios getestet und an 5 anderen in unserer schule auch - Erfolgreich :twisted:

;-)

[barf00s]

einfacher ists glaubich den rechner runterzufahrn, die mobo batterie abzuklemm und den cmos-lösch-jumper zu tüdeln :)

[Assun]

Einfacher !?! wohl kaum ^^

naja hab nun ne funtkionierende .Bat file erstellt. Doch wie kann ich diese nun in mein Programm einbinden und ausführen ohne diese zu entpacken ?

Bzw. gibt es (hoffentlich!!!) noch nen anderen Weg ??

[barf00s]

entpacken musst du garnix, jedoch musst du sie vorher "auslesen/extrahieren" und dann ausführen ...

myEXE.rc:

BATFILE RT_RCDATA C:\reboot.bat

kompilieren mit

brcc32.exe myExe.rc

dann in deinem delphi programm

{$R myExe.res}

und extrahiern kannst des während dein programm läuft mit

Delphi-Quellcode:

var
  xRS: TResourceStream;
  xFS: TFileStream;

begin
  xRS := TResourceStream.Create(hInstance, 'BATFILE', RT_RCDATA);
  try
    xRS.Position := 0;
    xFS := TFileStream.Create('C:\Windows\Temp\blah.bat', fmCreate);
    xFS.CopyFrom(xRS, xRS.Size);
  finally
    FreeAndNil(xFS);
    FreeAndNil(xRS);
  end;
end;

und wie man dateien ausführt weist ja ;) ShellExecute() CreateProcess() .....

[Win32.API]

Hi,
das geht auch einfacher indem du dir eine TStringList machst deine commands addst du danach mit SaveToFile speicherst. :wink:

Win32.API

[barf00s]

DAS wäre ja nun wirklich ZU einfach :F

[scp]

Zitat:

Zitat von Assun

Bzw. gibt es (hoffentlich!!!) noch nen anderen Weg ??

Wieviele Wege brauchst du denn noch?
Sind dir doch jetzt mehrere Alternativen genannt worden.
Wie in dem Artikel einfach System("cd\") eingeben, wird in Delphi nicht gehen.

Der direkteste Weg fürs BIOS ist wie gesagt, die I/O-Addressen direkt anzusprechen.

[Thanatos81]

Um nochmal auf Subatas Einwände zurückzukommen: Ich würde auch vorsichtig sein, bei Tools, die per I/O, Debug oder wie auch immer direkt mein BIOS manipulieren.

Schon mal dran gedacht, dass es auch verschiedene BIOS-Hersteller gibt? Wer garantiert dir, dass z.B. Award die selben Stellen für die Passwörter benutzt wie Phönix oder AMI? Also könnte es passieren, dass du da was ganz anderes zerschiesst... Und dann musste im günstigsten Falls das BIOS neu flashen.

[scp]

Dafür gibts ja den IDE-Flasher :-) Gutes Teil.

[scp]

Habe hier schon eine Variante gefunden:

Code:

    DEBUG
    o 70 20
    o 71 21
    q

Leider steht auch dort nicht, welche BIOS-Typen unterstützt werden.

[Assun]

Ich denke mal das geht bei allen Bios"en". denn da wird nicht direkt nur die Passwortabfrage entfernt sondern es wird einfach das komplette Bios resetet.