PureBoard

@ABeltz:
Sorry, Fehler meinerseits.
Beispiel: pw0 = "ich bin geheim" ist falsch, pw0 ist der StringFingerprint.
Richtig muss es heißen: Beispiel: pw0 = StringFingerprint("ich bin geheim",#PB_Cipher_SHA1)

Danke schön für eure Tipps.
Ich habe SB in der letzten Zeit vernachlässigt - Fokus lag mehr auf AppGameKitStudio.
Werde SB mal wieder "ausgraben".

So kann man den String verschlüsset speichern und anschließend die Definition/Deklaration des Strings aus dem Programmcode löschen.
ungefähr so:
GeheimerString.s="Ich bin geheim"
usw.
s.o. StringFingerprint...

Das Programm einmal laufenlassen, erzeugt "PwDatei", dann "GeheimerString"... löschen.
In ...

Hallo,
ich habe vor Jahren mal ein Programm geschrieben, dessen Daten Passwortgeschützt waren.
Den Passwortstring habe ich in einer Datei "versteckt". Das war zwar eine Variable, sollte sich aber mir etwas Arbeit auch für Stringkonstanten umsetzen lassen:
Procedure PasswortFestlegen()
Protected.s ...

Setz' doch die Batterien mal in eine Infrarot-Fernbedienung ein. Ist die Reichweite dann signifikant geringer?
Oder mal neue (Marken)batterien in die Maus einsetzen.
Ich habe gute Erfahrungen mit Varta und Duracell gemacht.
(War das jetzt verbotene Werbung?)

Sind die Batterien abgelaufen?
Auf den Batterien müßte ein "MHD" aufgedruckt sein.
Such mal direkt auf den Batterien nach "Best before".
Außerdem kann man Batterien testen ob sie leer sind - mit einem Batterietester. Universalmultimeter sind für den Test nicht geeignet, da sie zu hochohmig sind und ...

Sorry!

Ich habe da mal was gebaut:
EnableExplicit
Global.s RGBWerte="H:\PureBasic Programme\rgb.txt" ;<--- Hier deinen Dateipfad eintragen
Global.l Farbe

If ReadFile(1,RGBWerte) ;Die For...Next-Schleife in meinem ersten Post war zum Einlesen der Datazeile(n) gedacht.
While Not Eof(1) ;Alle Daten lesen ...

Quick'n'dirty:
So ungefähr?

EnableExplicit
Global r,g,b,c,d

For c=0 To 8
Read d
b=d&$ff
g=(d>>8)&$ff
r=(d>>16)&$ff
Debug Str(r)+" "+Str(g)+" "+Str(b)
Next

DataSection
Data.i $0,$0000aa,$00aa00,$00aaaa,$aa0000,$aa00aa,$aa5500,$aaaaaa,$555555
EndDataSection

Habe mal folgendes probiert: #PB_Any ist jedesmal -1.
Könnte es sein, daß das Probleme macht ?