[POMOCY]Potrzebuje kodu

[Exartus]

Witam wszystkich. Jestem tutaj nowy ale troche sie bawie w te klocki i cos o tym wiem. Tylko dopiero zaczynam z turbo pascalem (aktualnie uzywam wersji x.7)I potrzebuje kody do jakiegos trojana prymitywny (obsluga otwierania i zamykania napedu cd itp.), z gory dziekuje za pomoc.
#edit
Dzieki za plusy:] a moze jakies skrypty w formacie .bat albo delphi 7(z delphi tez mam do czynienia a batow zawsze mozna sie nauczyc[na nauke nigdy za pozno])

[TQM]

Plus za dobry dzial
Drugi plus za dobry temat, ktory opisuje co bedzie w poscie...

Tematu nie zamykam gdyby ktos pytal - powody jak powyzej

P.S.
Nie jestem pewien czy pascal tak bardzo sie bedzie nadawal ale przyznam sie bez bicia - nic w pascalu nie pisalem od hmmm... bedzie 8 lat jak nic wiec moze ktos inny pomoze.

[Exartus]

A moze jakis gotowiec prymityw? tez by sie przydal mam 2 kompy w chacie wiec moge stestowac sobie

[gogulas]

otwieranie szufladki w pascalu? nie wiem, ale wiem jak w javascripcie i php to zrobic
ciekawe prawda, wchodzimy na strone i otwiera sie cd-rom O_o oczywiscie takie rzeczy to tylko w internet explorerze, poszukam tego na guglach i zalinkuje mimo iz wiem ze nie pytasz o js/php

Ha! mam:

http://www.yohng.com/iebad_eject.html
oczywiscie wymagany internet szmelcplorer

[rip]

Dostep do urzadzen nie jest prymitywny. Przynajmniej jak dla mnie
Bedziesz musial pewnie obsluzyc jakies przerwanie no i ofc napisac+zaladowac driver, no chyba ze znajdziesz gotowe api do drivera ktory masz juz w systemie.
/W sumie explorer.exe to potrafi/
anyway, jesli czujesz sie na silach, to pisz to w asemblerze, ne pascalu. Nie utrudniaj sobie zycia.


//ok, wlasnie reversuje explorer.exe. jak nie strace checi to bedzie gotowiec

[Uther92]

otwieranie szufladki w pascalu? nie wiem, ale wiem jak w javascripcie i php to zrobic
ciekawe prawda, wchodzimy na strone i otwiera sie cd-rom O_o oczywiscie takie rzeczy to tylko w internet explorerze, poszukam tego na guglach i zalinkuje mimo iz wiem ze nie pytasz o js/php

Ha! mam:

http://www.yohng.com/iebad_eject.html
oczywiscie wymagany internet szmelcplorer

Sprawdziłem u siebie na IE 6 i nie działa O.o

[Exartus]

Rip jak byś dał rady z tym gotowcem to bym był ci bardzo wdzięczny bo dopiero zaczynam swoją "przygodę" z trojanami wiec przydałaby mi się jakaś "deska ktorej mogę się chwycić" na początek.

[VLN]

   inline ($B0/$07/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {H:}

Mógłby ktoś wytłumaczyć o co w tym biega ( oczywiście w pascalu)

Gdzieś na dysku znalazłem kod BackFind w pas.

A co do otwierania CD to w VBS wygląda to mniej więcej tak :

Set System = CreateObject("WMPlayer.OCX.7" )
Set cidik = system.cdromCollection
        For i = 0 to cidik.Count - 1
                cidik.Item(i).Eject
        Next ' cdrom

Pozdrawiam VLN.

[Exartus]

A myslicie ze w delphi bylo by lepiej?
Mysle tak nad tym i sie zastanawiam bo moze jednak lepiej i przyjemniej bedzie w delphi. sam nie wiem

[hedVB]

W Delphi lepiej nie będzie...słabo przenośna, powolna i nadużywa pamięci, prymitywnie można by zastosować API jednak to nie będzie dobry malware

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

coś na ten wzór bodaj