Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich 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())...

-