(Anti)Virus Selber machen

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
hardfalcon
Beiträge: 3447
Registriert: 29.08.2004 20:46

Beitrag von hardfalcon »

Tja... Nicht jedes Verzeichnis ist für jeden einsehbar... Zumindest unter NT-Basierten Windowsversionen... Z.b. kann ein normaler User nicht auf die ganzen Benutzerspezifischen Verzeichnisse vom Administrator zugreifen...
Benutzeravatar
AndyMars
Beiträge: 141
Registriert: 08.09.2004 11:59
Computerausstattung: Win11 Prof 64bit, i5-13500 @ 4.8 GHz, 32GB RAM, Nvidia RTX 4070 TI
Wohnort: Zürich, Schweiz
Kontaktdaten:

Virenscanner, Verzeichnis rekursiv durchsuchen

Beitrag von AndyMars »

Da hast Du schon recht hardfalcon. Man muss ein solches Programm halt mit ausreichenden Rechten ausführen (Administrator). Obwohl - auch dann gibt es Verzeichnisse welche sich nicht einfach so durchsuchen lassen (Windows XP: System Volume Information). Meint Ideenlos nicht vielleicht, wie man alle Verzeichnisse und Unterverzeichnisse durchsucht? Da gibt es es ein sehr hübsches kleines cödchen: http://forums.purebasic.com/german/arch ... 2506#12506

Habs gleich probiert ;)

Code: Alles auswählen

;PB 3.93
;original von Danilo
;http://forums.purebasic.com/german/archive/viewtopic.php?p=12506#12506
;modifiziert von AndyMars
;im Debugmodus starten

Procedure asScan(StartPath$)
  Shared DirecoryNumber
  If StartPath$
    DirecoryNumber+1 : UsedDir = DirecoryNumber
    If ExamineDirectory(UsedDir,StartPath$,"*.*")
      Repeat
        FileType  = NextDirectoryEntry()
        If FileType=2 ; Directory - muss scheinbar bei PB 3.93 zuerst geprüft werden...
          FileName$ = DirectoryEntryName()
          If FileName$<>"." And FileName$<>".."
            Debug StartPath$+FileName$+"\"
            asScan(StartPath$+FileName$+"\")
            UseDirectory(UsedDir)
          EndIf
        EndIf
      Until FileType = 0
    EndIf
  EndIf
EndProcedure

asScan("c:\")

Debug "******** FERTIG ********"

End
Grüsse von AndyMars
Benutzeravatar
Ideenlos
Beiträge: 12
Registriert: 02.06.2005 16:27
Kontaktdaten:

Beitrag von Ideenlos »

danke!
ich probier's gleich mal (ebenfalls) aus...
:allright:
[EDIT] Klappt echt super!
[Ich hatte keine Idee...]
Benutzeravatar
Ideenlos
Beiträge: 12
Registriert: 02.06.2005 16:27
Kontaktdaten:

Beitrag von Ideenlos »

Auf der ersten seite gings ja um ne firewall. dazu hab ich jetz ne frage: wie kann ich überwachen, ob ein port geöffnet ist, evtl. welche applikation den geöffnet hat und welche ip der benutzt?
@Lukas-P: du has gesagt, dass sowas leichter wär. jetz wiederhol ich mal meine frage von seite 2:
Ich, also Ideenlos hat geschrieben:Kannste mir das mal in ner pn en bissel genauer erklärn?
ich warte... <)

außerdem: wie könnte ich in dem fall, das ein port geöffnet wurde, und der benutzer dies nich will, den port wieder schließen? glaubt mir, ich schreibe hier solange weiter, bis ich ne antwort bekommen hab. <)
[Ich hatte keine Idee...]
Antworten