Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
İyi Derecede Delphi ve Assembly bilen arkadaşlar warmı varsa buraya lütfen...!
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Tarpaz Çukulat İncir Teneke 500g : Amazon.com.tr: Gıda Ürünleri
https://www.amazon.com.tr/dp/B0DXL6XN1T
20 sa. önce paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
quote:
Orjinalden alıntı: egepcmarket
İyi Derecede Delphi ve Assembly bilen arkadaşlar warmı varsa buraya lütfen...!
Bios tan değer okuyabileceğim Assembly veya Delphi kodu bileniniz war mı...?
biosa göre değişir. fakat ami için bnde bir tane oması lazımdı bir bakem arşive -
drony baksan iyi olu yawfs....
şimdiden çok saol...
Diğer bios lar için de warsa sevinirim...
Saygılar... -
quote:
Orjinalden alıntı: drony
quote:
Orjinalden alıntı: egepcmarket
İyi Derecede Delphi ve Assembly bilen arkadaşlar warmı varsa buraya lütfen...!
Bios tan değer okuyabileceğim Assembly veya Delphi kodu bileniniz war mı...?
biosa göre değişir. fakat ami için bnde bir tane oması lazımdı bir bakem arşive
Arkadaşlar Pasteleyeverin de biz de faydalanalım. 
-
Ami Bios şifrelerini değiştime (walla sorumluluk bana ait değil. aman dikkat)haa bide farkındaysan pascal ile yazılmış ama iki dakika delphi ye adapte edersin artık
USES DOS,CRT;
VAR
BYTEBUFFER:ARRAY [0..6] OF BYTE;
SENHA:STRING[6];
A,I,CARAC,PREVIO,TMPA,TMPB:WORD;
BEGIN
WRITELN;
TEXTBACKGROUND(1);TEXTCOLOR(15);
WRITE(' TEXT_AMI_BIOS_PASSWORD_FINDER ');
TEXTBACKGROUND(0);TEXTCOLOR(7);
WRITELN;WRITELN;
SENHA:='';
FOR A:=$37 TO ($3D) DO
BEGIN
PORT[$70]:=A;
BYTEBUFFER[A-$37]:=PORT[$71];
END;
SENHA:='';
BYTEBUFFER[0]:=BYTEBUFFER[0] AND $F0;
I:=1;
WHILE (I<7) AND (BYTEBUFFER[I]<>0) DO
BEGIN
CARAC:=0;
PREVIO:=BYTEBUFFER[I-1];
WHILE (PREVIO<>BYTEBUFFER[I]) DO
BEGIN
INC(CARAC);
TMPA:=0;
TMPB:=0;
IF (PREVIO AND $80>0) THEN
INC(TMPA);
IF (PREVIO AND $40)>0 THEN
INC(TMPA);
IF (PREVIO AND $02)>0 THEN
INC(TMPA);
IF (PREVIO AND $01)>0 THEN
INC(TMPA);
WHILE TMPB<TMPA DO
INC(TMPB,2);
PREVIO:=PREVIO DIV 2;
DEC(TMPB,TMPA);
IF TMPB=1 THEN
INC(PREVIO,$80);
END;
SENHA:=SENHA+CHR(CARAC);
INC(I);
END;
IF I=1 THEN
WRITELN(' No password defined.')
ELSE
BEGIN
WRITE(' Current password is "');
TEXTCOLOR(15);
WRITE(SENHA);
TEXTCOLOR(7);
WRITELN('".');
END;
WRITELN;
END.
//----------------------------------------------------------
biosa reset atma.
fakat xp üzerinde çalıştırabileceğini sanmıyorum. tipik port erşim hatasını verecektir. yani ayrıcalıklı durum. priveleged instruction
asm
@loop1:
mov cx,0ffh;
mov al,cl;
out 70,al;
out 71,al;
loop @loop1 ;
end;
//-------------------------------------------------------
standart bios bilgileri vs. ama xp de sorun çıkarabilir.
with Memo1.Lines do
begin
Add('Tip:'+^I+String(Pchar(Ptr($FE061))));
Add('CopyRight:'+^I+String(Pchar(Ptr($FE091))));
Add('Bios Tarihi:'+^I+String(Pchar(Ptr($FFFF5))));
Add('Diger Bilgiler:'+^I+String(Pchar(Ptr($FEC71))));
end;
//-----------------------------
ayrıca istediğin sırf bios tarihi bios seri numarası gibi public verilerse
bunu regeditten alabilirsin
istersen yazabilirm ama uğraşmim diye yazmadım şimdi.
-
quote:
Ami Bios şifrelerini değiştime (walla sorumluluk bana ait değil. aman dikkat)haa bide farkındaysan pascal ile yazılmış ama iki dakika delphi ye adapte edersin artık
Yok canım sende o kadar şeymiyiz eskiden API leri kurcalarken bi ağzım yanmıştı o günden beri yoğurt yiyorum 
Very Thanks
-
bu privileged instructions ı aşabileceğimiz bir olay varmı?
Ben porta data göndermeye çalışıyorum haliyle ntde privileged instruction hatası veriyor. -
SAOl
< Bu mesaj bu kişi tarafından değiştirildi BARIŞA ÖZLEM -- 9 Mayıs 2005, 0:38:17 >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
