[es] - [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.233.*

+1 Profil

[FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{13.03.2008. u 23:50 - pre 196 meseci}

Pre svega da kazem da sam koristio pretragu [es], pretrazio internet uzduz i popreko i nisam nista pronasao, sem ovoga...

Stvari stoje ovako, trebam da procitam serijski broj Hard drajva(moze i Procesor ili Bios), e sad to nije problem uraditi pod Windows-om(primera za to ima svugde), ali meni treba to u DOS-u. Na internetu sam naisao samo na jedan primer ali je maler(bar za mene) to sto je pisan u pascal-u a ja znam/poznajem samo Basic i C, tako da ne umem da provalim sta se radi u ovom primeru(hddinfo.pas - skinuo sam ga sa freepascal.org). Naime nije mi jasna komanda PORT[adresa]. Pa bih zamolio nekog da mi malo pojasni ako moze. Ima primer uradjen u C-u(poziva neki vxd - znaci samo Windows) pa vam i njega postavljam. Ako moze lepo bi bilo da se ovaj .pas kod prevede u BASIC, C ili Pseudo kod.

Unapred hvala!

I ponavljam ovo je za DOS da ne bude zabune.
I nije ono sto se dobija sa api f-jom getVolumeInfo, vec serijski broj koji upisuje proizvodjac.

Prikačeni fajlovi

hddinfo.pas - 1.17k

C & ASM Read HDD No.rar - 18.23k

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{14.03.2008. u 09:52 - pre 196 meseci}

Ne uspevam da nađem help za TurboPascal, vidim da ima objašnjenja za Port na netu (npr http://www.doc.ic.ac.uk/~ih/doc/par/doc/data/tp.html).
Verovatno i FreePascal ima odgovarajuću Port komandu pa možeš u njemu pogledati ako nemaš TurboPascal. Ono što možeš pokušati je da kompajliraš unit kao .obj koji ćeš onda ulinkovati u svoj C program.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4902
*.tekostolac.co.yu.

Jabber: xfiles@elitesecurity.org

+638 Profil

Re: [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{14.03.2008. u 10:03 - pre 196 meseci}

Na linku koji vec znas (jer si RAR-ovao source):
http://www.winsim.com/diskid32/diskid32.html
... se nalazi po mojim saznanjima najkompletniji javni primer za citanje hardverskog broja HD-a. Cak ni on nije dobar, jer se ne snalazi sa lepezom SATA diskova, a ni onima kod kojih je RAID u pitanju.

Primer i jeste konzolni, a ako me secanje dobro sluzi, taj VXD koji pominjes sluzi samo ako je Win95/98/ME u pitanju.

BTW: Kada pominjes DOS, da li mislis na Command Prompt prozor koji si pozvao iz Windowsa (i recimo maksimizovao preko PIF-a) ili zaista ulazis u sirovi DOS, pre Win OS-a?

Šta se dogadja sa primerom diskid32.exe na toj masini kada podmetnes taj VXD?

P.S.
Za onaj drugi, Pascal kod cisto sumnjam da je 'bolji' od ovog u C/C++ jer sam stekao utsiak da je sve to oko pristupa hardveru daleko slozenije od koda koji je pokazan.

_{[Ovu poruku je menjao X Files dana 14.03.2008. u 11:16 GMT+1]}

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.233.*

+1 Profil

Re: [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{14.03.2008. u 14:54 - pre 196 meseci}

Mislim na sirovi dos, nema Windowsa.

Ali mislim da bi ovaj pascal program trebao da radi, ali sigurno ne moze da radi pod (NT, 2K, XP, Vista) jer oni ne dozvoljavaju dos programima da direktno pristupaju hardware-u.

Hvala u svakom slucaju

Ovaj Pascal program moze da se prevede samo uz pomoc FreePASCAL/GO32V2 u sirovom DOS-u.

_{Da sam mislio na CMD pomprit, rekao bih Win32 konzolna aplikacija}

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
77.46.186.*

+1 Profil

Re: [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{28.03.2008. u 22:45 - pre 196 meseci}

Au, momci i devojke sa Pascal / Delphi / Kylix foruma sad ste se obrukali... pa zar niko nije upoznat sa freepascal-om?

Ili ne zelite da mi odgovorite?

Ajde postavite neko pitanje na VB & ASP forumu, sa nekim "zajebanim resenjem" - odgovor stize najkasnije za 3-4 dana...

Nisam zeleo da vas uvredim, samo da isprovociram nekog da "ispljune" odgovor...

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{29.03.2008. u 00:57 - pre 196 meseci}

> Au, momci i devojke sa Pascal / Delphi / Kylix foruma sad ste se obrukali... pa zar niko nije upoznat sa freepascal-om?

Kakve to ima veze, ti tražiš prevod na C ili VB i to prilično retkih i compiler specific funkcija. Freepascal dolazi uz source, pogledaj kako je implementirana funkcija, napravi .obj fajl i ulinkuj ga direktno u C ili kompajliraj program i ASM prenesi u C.

> Ili ne zelite da mi odgovorite?

Ovakav ton sasvim sigurno umanjuje šanse.

Odgovor na temu

viking13
Aleksandar Milanovic
SBB
Novi Beograd

Član broj: 131741
Poruke: 190
89.216.96.*

Profil

Re: [FreePASCAL] - Citanje PRAVOG serijskog broja HARD drajva?

^{29.03.2008. u 22:07 - pre 196 meseci}

Citat:

stefanpn: Au, momci i devojke sa Pascal / Delphi / Kylix foruma sad ste se obrukali... pa zar niko nije upoznat sa freepascal-om?

Ili ne zelite da mi odgovorite?

Ajde postavite neko pitanje na VB & ASP forumu, sa nekim "zajebanim resenjem" - odgovor stize najkasnije za 3-4 dana...

Nisam zeleo da vas uvredim, samo da isprovociram nekog da "ispljune" odgovor...

Po meni si omanuo forum. Da si tražio da se nešto iz C-a ili VB-a prebaci u Pascal, onda bi bio na pravom mestu.

Smatram da ovo pitanje treba da postaviš na C ili VB forumu.

viking ®

Odgovor na temu