Hi,
ich möchte eine Art Safe auf einen Stick legen mit dem ich über eine Exe dies öffnen kann (Ohne Installation). Will aber nicht Stick gebunden sein. also einfach die Sachen auf einen anderen Stick kopieren können…
weiß da jemand was?
danke im vorraus.
Hi,
vielleicht sowas:
http://stadt-bremerhaven.de/2007/02/19/mit-true-cryp…
Gruß, m.
Hi,
vielleicht sowas:
http://stadt-bremerhaven.de/2007/02/19/mit-true-cryp…
Gruß, m.
Erstmal danke.
Aber leider ist es nicht das Richtige, True Crypt kenne ich bereits.
Ich suche aber eine Verschlüsselung wo ich so einen Container wie bei Truecrypt erstellen kann und den auch an fremden Rechnern öffnen kann ohne eine Installation vornehmen zu müssen.
Du kannst mit Truecrypt auch eine sog. Traveller Disk erstellen. Da muss nichts installiert werden.
Gruß
h.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
1 „Gefällt mir“
Hallo,
wie wäre es mit einem kleinen Script? Das muss man nicht installieren, das läuft so. Die Sicherheit bringt ohnehin das Passwort, daß der Code offen liegt spielt keine Rolle.
Ich habe mal schnell so etwas geschrieben, bei mir hat es im Test fehlerfrei funktioniert.
Bitte vor dem harten Einsatz noch gründlich testen, ich habe es bisher nur an Textdateien getestet und habe in der ersten Version auch schon selbst zwei Fehler entdeckt. 1.) Gab es keine Sicherheitsabfrage gegen Tippfehler, 2.) Stand die Initialisierung des Zufallsgenerators an der falschen Stelle. Das Löschen eines verschlüsselten Files hätte dafür gesorgt, daß alle anderen Files nicht mehr hätten entschlüsslt werden können. Einen langen Schlüssel zu vergessen wäre extrem ärgerlich, ohne Passwort könnte ich die Dateien nicht wieder entschlüsseln.
Anwendung:
Mit Doppelklick starten, Passwort eingeben, [Enter] tippen oder OK klicken.
Zum Entschlüsseln den Vorgang mit dem selben Passwort wiederholen.
Sollte das Script verloren gehen, es steht ja hier. 
Gruß, Rainer
Option Explicit
Dim MyFSO, Text, LW, Key, KeySEC, KeyNr, i, f, n
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
LW = WshShell.CurrentDirectory
Key = inputbox("Bitte Schlüssel eingeben","Eingabefenster")
KeySEC = Inputbox("Bitte Schlüssel wiederholen","Sicherheitseingabe")
If Key KeySEC Then
MsgBox "Die Passwörter stimmen nicht überen!" +vbcrlf+"Das Programm wird zur Sicherheit beendet.", VbCritical
Else
rnd -1
Set MyFSO = CreateObject("Scripting.FileSystemObject")
For i = 1 to Len(key)
KeyNr = Asc(mid(key,i,1))
ScanDir(LW)
Next
End If
Sub ScanDir(ScanPfad)
Dim PathObject, FileObject, FileNow, SubFolders, SubFoldersNow
Dim a, b, r, w, TxtNeu, Ziel
Set PathObject=MyFSO.getFolder(ScanPfad)
Set FileObject=PathObject.Files
For Each FileNow In FileObject
If Right(Filenow,17) "Verschlüsseln.vbs" Then
Set a = MyFso.GetFile(FileNow)
b = a.Size
Set f = Myfso.OpenTextFile(FileNow, 1, True)
Text = f.Read(b)
f.Close
TxtNeu =""
Rnd -1
Randomize KeyNr
For n=1 to Len(text)
r = Int(Rnd(1)\*255)
w=Asc(Mid(Text,n,1))
w = w XOR r
TxtNeu = TxtNeu + chr(w)
Next
Set f = MyFso.OpenTextFile(FileNow, 2, True)
f.Write TxtNeu
f.close
End If
Next
Set SubFolders=PathObject.SubFolders
For Each SubFoldersNow in SubFolders
ScanDir(SubFoldersNow.ParentFolder+"\"+ SubFoldersNow.Name)
Next
End Sub