Delphi-PRAXiS
Seite 2 von 4     12 34      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Eine Datei verstecken (https://www.delphipraxis.net/31644-eine-datei-verstecken.html)

Shaman 12. Okt 2004 09:18

Re: Eine Datei verstecken
 
Hoi

Na klar, mit allen Unter- und Unterunterordnern... Das sind doch tausende. Dann noch den Namen und Zeitstempel der Datei zufällig setzen und Du kannst sie suchen gehen. :wink:

Gruss
Shaman

fiasko 12. Okt 2004 09:20

Re: Eine Datei verstecken
 
Zitat:

Zitat von Shaman
Hoi

Na klar, mit allen Unter- und Unterunterordnern... Das sind doch tausende. Dann noch den Namen und Zeitstempel der Datei zufällig setzen und Du kannst sie suchen gehen. :wink:

Lol, man überwacht einfach welche Dateien der Installer/das Programm zugreift und fertig. Vorallem dumm wenn die Datei im tmp-Verzeichnis landet :mrgreen:

Shaman 12. Okt 2004 09:24

Re: Eine Datei verstecken
 
Zitat:

Zitat von fiasko
Lol, man überwacht einfach welche Dateien der Installer/das Programm zugreift und fertig

Ja, stimmt. Aber das wäre unsportlich :mrgreen:

egal 12. Okt 2004 09:25

Re: Eine Datei verstecken
 
Zitat:

Zitat von Shaman
Schreib dir eine Funktion, die einen zufälligen Pfad aus der gesamten Verzeichnisstruktur generiert und speicher die Datei dort ab. Findet kein Mensch mehr. :mrgreen:

Für Code wäre ich besonders dankbar! :lol:

egal 12. Okt 2004 09:27

Re: Eine Datei verstecken
 
Zitat:

Zitat von Sharky
Hai egal,
wenn es dir darum geht das keine wissen soll was in der Datei steht; und Du sie deswegen "versteckst" überlege dir doch einfach ob es nicht besser ist den Text darin zu verschlüsseln.

Das mache ich schon, aber ich will noch dazu diese Datei gut verstecken

Shaman 12. Okt 2004 09:27

Re: Eine Datei verstecken
 
Ich fände es auch witzig. Wenn mir nichts besseres in Sinn kommt, mach ich das heute Abend :drunken:

egal 12. Okt 2004 09:30

Re: Eine Datei verstecken
 
Zitat:

Zitat von Shaman
Ich fände es auch witzig. Wenn mir nichts besseres in Sinn kommt, mach ich das heute Abend :drunken:

ok, dann warte ich ab :mrgreen:

himitsu 12. Okt 2004 09:36

Re: Eine Datei verstecken
 
@Shaman
1. ich hab ein Refferenzsystem ... da brauch ich nur vergleichen lassen :P
2. wenn man nach max. 2 Monaten alles neu aufspielt, dann lernt man sein System kennen (in- und auswendig)

Luckie 12. Okt 2004 12:02

Re: Eine Datei verstecken
 
IOch fände das ehrlicg gesagt nicht so prikelnd, wenn ein Programm seine Dateien überall auf der Festplatte verstreut installiert. Und wenn ich eine Datei in einem verzeichnis finde, wo ich mir sicher bin, dass sie da nicht hingehört, dann ist die auch ganz schnell gelöscht. Zu dem erweckt das beim Benutzer den Verdacht, dass er eine Virus hätte, wenn da plötzlich irgendwo mysteriöse Dateien auftauchen. Und wenn ich rausfinden würde, dass die Datei von deinem Programm käme, dann wäre Schluss mit lustig.

Warum reicht verschlüsseln nicht? Nimm einen guten Algorithmus aus dem DEC und gut ist. Im Prinzip dürfte schon Hier im Forum suchenRC4 reichen. das ist ein einfacher, aber recht effizienter Algorithmus.

Shaman 12. Okt 2004 20:31

Re: Eine Datei verstecken
 
Delphi-Quellcode:
function GetRandomPath: string;
  function GetRandomDir(const Dir: string): string;
  var
    DirList: TStringList;
    SR: TSearchRec;
  begin
    Result:= Dir;
    if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then try
      DirList:= TStringList.Create;
      try
        repeat
          if SR.Attr and faDirectory = faDirectory then
            if (SR.Name <> '.') and (SR.Name <> '..') then
              DirList.Add(SR.Name);
        until FindNext(SR) <> 0;
        if DirList.Count > 0 then
          Result:= GetRandomDir(Dir + DirList[Random(DirList.Count)] + '\')
      finally
        DirList.Free;
      end;
    finally
      FindClose(SR);
    end;
  end;
var
  Buffer: array[0..255] of Char;
  I, L: Integer;
  FixedDrives: TStringList;
begin
  FixedDrives:= TStringList.Create;
  try
    L:= GetLogicalDriveStrings(SizeOf(Buffer), Buffer);
    for I:= 0 to (L-3) shr 2 do
      if GetDriveType(PChar(Buffer[I shl 2] + ':\')) = DRIVE_FIXED then
        FixedDrives.Add(Buffer[I shl 2] + ':\');
    Result:= GetRandomDir(FixedDrives[Random(FixedDrives.Count)]);
  finally
    FixedDrives.Free;
  end;
end;
Damit generierst Du dir einen zufälligen Pfad. Aber eben, nur zum Spass, man weiss ja nicht, wie's in dem Ordner mit den Schreibrechten aussieht. Und vielleicht ists ja tatsächlich mal der Temp-Ordner :zwinker:

Gruss
Shaman


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr.
Seite 2 von 4     12 34      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz