Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
İyi Derecede Delphi ve Assembly bilen arkadaşlar warmı varsa buraya lütfen...!
Bu konudaki kullanıcılar: 1 misafir
7
Cevap 378
Tıklama 0
Öne Çıkarma
Cevap 378
Tıklama 0
Öne Çıkarma
1. sayfa
-
İyi Derecede Delphi ve Assembly bilen arkadaşlar warmı varsa buraya lütfen...!
biosa göre değişir. fakat ami için bnde bir tane oması lazımdı bir bakem arşive |
Bu mesaja 2 cevap geldi.
|
drony baksan iyi olu yawfs.... şimdiden çok saol... Diğer bios lar için de warsa sevinirim... Saygılar... |
 Arkadaşlar Pasteleyeverin de biz de faydalanalım.  |
Bu mesaja 1 cevap geldi.
|
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. |
Bu mesaja 1 cevap geldi.
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 mesaja 1 cevap geldi.
|
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 >
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
Bios tan değer okuyabileceğim Assembly veya Delphi kodu bileniniz war mı...?
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.