1. visual studio visual basic installen/runterladen
2. project dateien öffnen
Quote:
If TrackBar1.Value = 1 Then
key = "r3F9nrLrm"
ElseIf .Value = 2 Then
key = "j6eamx8jq"
ElseIf .Value = 3 Then
key = "IoHweZ1d0"
ElseIf .Value = 4 Then
key = "VBIxfbrY"
ElseIf .Value = 5 Then
key = "fLH6IS8Yj"
|
hier stehn im dateicryptor die keys
denke das is klar was die keys sind
cryptor2
Quote:
If IO.File.Exists(file) Then
Dim FileBuffer() As Byte = IO.File.ReadAllBytes(file)
ReDim Preserve FileBuffer(FileBuffer.Count - 1)
Dim EncodedBuffer() As Byte = EncodeData(FileBuffer, "r3F9nrLrm")
IO.File.WriteAllBytes(file, EncodedBuffer)
|
hier is der key r3F9nrLrm der müss naturlich mit den anderen key am besten auch übereinstimmen
cryptor
Quote:
Private Sub encrypt(ByVal file As String)
Dim aes As System.Security.Cryptography.Aes = System.Security.Cryptography.Aes.Create
Try
If IO.File.Exists(file) Then
Dim FileBuffer() As Byte = IO.File.ReadAllBytes(file)
ReDim Preserve FileBuffer(FileBuffer.Count - 1)
Dim EncodedBuffer() As Byte = DecodeData(FileBuffer, "fLH6IS8Yj")
IO.File.WriteAllBytes(file, EncodedBuffer)
|
hier is der key fLH6IS8Yj eingetragen
so hoffe das reicht zum verstehn