Du bist nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies dein erster Besuch auf dieser Seite ist, lese dir bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.
):|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub encrypt(file As String)
Dim data As Long, NumBytes As Long, Flag As Long, q
Flag = Val("123")
NumBytes = FileLen(file)
Open file For Binary As #1
For q = 1 To NumBytes
Get #1, q, data
Put #1, q, data + Flag
Next q
Close #1
End Sub
|
Zitat von »maZzE«
Sorry aber ich kann nicht beide Sprachen. Aber wenn du sagst was die Funktion macht kann ich oder andere dir vieleicht eher helfen!
/n nicht umwandeln)
bzw. haste wohl noch nie was von Microsofts Programmiersprache BASIC gehört. Aber ist schon richtig, dass die Kacke is 
). Man braucht eben die Flag zum Entschlüsseln.
Zitat
datEingabe.open( c:\\hallo.txt , ios::in | ios::binary); ( /n nicht umwandeln)
Öffnen der Datei erfolgreich?
if(datEingabe.good())...

-