unit1.pas

clear cmos momory in delphi source

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
Procedure Encrypt (var Secret, PassWord:string);
var l,X : Integer;
    iChar:Integer;
    b : boolean;
    ib : integer;

begin
    l := Length(PassWord);
    For X := 1 To Length(Secret) do
    begin
        b:=((x mod l)=0);
        if b=false then ib:=0 else ib:=-1;
        iChar := ord(PassWord[(X Mod L) - L * ib]);
        Secret[X] := Chr(ord(Secret[X]) Xor iChar);
    end;

End; {Procedure}

procedure TForm1.Button1Click(Sender: TObject);
label label0;
var a:integer;
begin
a:=MessageDlg('This operation cannot be undone, Continue ?', mtConfirmation,mbOkCancel, 0);
if a=2 then exit;
beep;
asm
   mov ax,$3f00
   xor bl,bl
   label0:
   mov al,bl
   out $70,al
   mov al,$ff
   out $71,al
   inc bl
   dec ah
   jnz label0
end; //Asm
showMessage('CMOS Memory Cleared !');
application.terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var pwd,me:string;
begin

end;

end.