Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String in EXCEL verschlüsseln und in PHP entschl.?

Forumthread: String in EXCEL verschlüsseln und in PHP entschl.?

String in EXCEL verschlüsseln und in PHP entschl.?
11.03.2004 10:47:12
Marco
Hallo Forums-Besucher,
ich hoffe Ihr könnt mir helfen: ich möchte gerne einen String (Groß-, Kleinbuchstaben, Sonderzeichen etc.) in EXCEL (also VBA) verschlüsseln und später in PHP wieder entschlüsseln?
Leider bin ich auf beiden Seiten mit Verschlüsselungen nicht sehr bewandert.
Habt Ihr eine Idee???
Gruß
Marco
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String in EXCEL verschlüsseln und in PHP entschl.?
14.03.2004 19:54:02
Thorsten
Hi Marco
Bist Du noch auf der Suche nach einer Lösung für Dein Problem?
Ich kann Dir in VBA einen Verschlüsselungs- und Entschlüsselungsalgorhitmus zeigen.
Aber in PHP weiß ich noch nicht einmal, wie man "Hello world!" schreibt :-)
Hier eine Ansicht:
AW: String in EXCEL verschlüsseln und in PHP entschl.?
15.03.2004 11:17:42
Marco
Hallo Thorsten,
bin immer noch auf der Suche nach einer Lösung.
Danke für Deinen Hinweis. Ist schon mal ein Ansatz.
Was bedeuten denn diese Zeilen?
If Mid(TXT, Verschluesseln, 1) = "ü" Then
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)))
Else
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)) + 4)
End If
Viele Grüße
Marco
Anzeige
AW: String in EXCEL verschlüsseln und in PHP entschl.?
15.03.2004 12:47:00
Thorsten
Hi Marco
If Mid(TXT, Verschluesseln, 1) = "ü" Then
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)))
Else
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)) + 4)
End If
Diese Zeilen bedeuten folgendes:
If Mid(TXT, Verschluesseln, 1) = "ü" Then
Wenn das aktuelle Zeichen in TXT = "ü" ist, dann
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)))
soll auch in Dummy das neu hinzugefügte Zeichen "ü" sein
Else
wenn aktuelles Zeichen in TXT nicht "ü" ist, dann
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)) + 4)
soll das neu hinzugefügte Zeichen in Dummy das Zeichen sein, welches ab dem aktuellen Zeichen in TXT an 5. Stelle folgt
Bsp wenn TXT = A dann Dummy = E, weil A + 4 Zeichen = E
Der Hintergrund:
Wenn ich nicht diese Zeilen einfüge, kommt es zu einem Fehler.
Das Zeichen "ü" belegt in der ASCII-Tabelle die Zahl 252, und + 4 Zeichen würde bedeuten = 256
Es gibt aber in der ASCII-Tabelle nur 255 Zeichen, deshalb tritt dann ein Fehler auf.
Ich hoffe, Du hast mich verstanden. Ich bin im Erklären nicht immer sooo gut :-)
Wenn weitere Fragaen = gerne hier posten
Ciao
Thorsten
Anzeige
AW: String in EXCEL verschlüsseln und in PHP entschl.?
15.03.2004 13:20:10
Marco
Hallo Thorsten,
danke für die Erläuterung. Auf die Idee mit den 255 Zeichen bin ich nicht gekommen!
Was passiert denn mit den 253, 254 und 255?
Gruß
Marco
AW: String in EXCEL verschlüsseln und in PHP entschl.?
15.03.2004 14:08:57
Thorsten
Hi Marco
Okay...hast mich erwischt :-)
Sicher kannst Du für "ü" auch so vorgehen:
If Mid(TXT, Verschluesseln, 1) = "ü" Then
Dummy = Dummy & Chr(Asc(Mid(TXT, Verschluesseln, 1)) + 3) 'hier würde dann das "ü" durch das 255. Zeichen erstzt werden
Ich war nur zu faul, weiter darüber nachzudenken, wie ich das "ü" noch hätte verschlüsseln könnenm als die Fehlermeldung auftrat. :-) Deshalb hatte ich "ü" = "ü" gelassen.
Auf die oben beschriebene Möglichkeit (nicht +4 sondern +3) kam ich zum Zeitpunkt des Code-Erstellens nicht :-)
Ciao
Thorsten
Anzeige
AW: String in EXCEL verschlüsseln und in PHP entschl.?
15.03.2004 14:25:55
Marco
Hallo Thorsten,
das wollte ich gar nicht. :-)
Was sind denn 253, 254 und 255 für Zeichen?
Gruß
Marco
AW: String in EXCEL verschlüsseln und in PHP entschl.?
15.03.2004 16:00:20
Thorsten
shit...NICHT ertappt...und trotzdem verraten :-)
Hi Marco
Suche im Antwort-Assistent der Excel-Hilfe nach "ascii".
Es wird Dir dann die Zeichensatztabelle für 0 - 127 und die Zeichensatztabelle für 128 - 255 angezeigt.
Hinter den Werten 253 - 255 stehen diese Zeichen:
253 = ý
254 = þ (ist nicht b)
255 = ÿ
Ciao
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

Text String in Excel einlesen
Peter

Ich würde gerne einen String von der Gestalt
184 182 183 185 185 183 184 184 186 183 179 177 173 169 165 161 157 .......
in Excel in die erste Spalte einlesen.
Der String ist in einer Datei Test.txt unter c:\ gespeichert und kann variabler Länge sein. Die einzelnen Zahlen sind durch...
21.08.2008 14:54:36
Thread-ID: 1003512
2 Beiträge
Text in Lotos einsetzen
Walter

Guten Morgen Fachfrauen u. Männer,
habe mal ein Makro vom Forum erhalten, für das automatische versenden Bereich aus Excel.
Das klappt soweit einwandfrei.
Nun möchte ich gern am Anfang die Anrede automatisieren z.b. Sehr geehrte Damen, (Zeilenumbruch)
sehr geehrte Herren,
Hi...
26.08.2008 11:25:52
Thread-ID: 1004731
12 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Text in Namen ersetzen
Lorenz

Hallo!!
Ich suche einen Code mit dem man aus (in) benannten Formeln einen String austauscht.
Der String ist oft auch eine weitere benannte Formel.
Hat jemand ne Idee?
Gruss
Lorenz
20.01.2009 20:30:17
Thread-ID: 1041986
15 Beiträge
Formel und Text (Tage) einsetzen
Leon

Hi
Wie kann ich in einer Formel den Text (Tage) noch dazu schreiben:
Zelle A1/Zelle B2 gibt mir z.B Wert 39
Dahinter soll noch Tage stehen.
Kann mir Jemand helfen?
Gruß
Leon
06.02.2009 20:26:00
Thread-ID: 1047897
6 Beiträge
cursor am anfang eines textfeldes einer UF setzen
Holger

Hallo liebe Excelgemeinde,
ich versuche verzweifelt den cursor beim öffnen einer UF an den anfang einer Textbox zu plazieren und bekomme es nicht hin.
zu erklärung
in die textbox werden über userform_initialized daten geladen
textbox ist mit scrollbars versehen um daten ansehen...
10.03.2009 23:42:17
Thread-ID: 1058894
9 Beiträge
Anzeige
Teilstring "was " in Zelle suchen
Werner

VBA-Level: befriedigend
Hallo Freunde,
innerhalb einer Spalte sollen diejenigen Zellen markiert werden, die den Teilstring "was " (einschliesslich der Leerstelle) enthalten, aber nicht,
wenn "was " direkt auf "et" oder direkt auf "nd" folgt. Sinn ist, zwar den Teilstring "was " zu s...
06.04.2009 11:30:35
Thread-ID: 1067067
6 Beiträge
Anzeige
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Anzeige
Doppelte Einträge in Formel nicht berücksichtigen
Claudia

Hallo zusammen,
in Spalte A (ab Zeile 2) befinden sich Kundennummern - viele davon mehrfach.
Kann mir jemand mit einer Formel helfen, dass jede Kundennummer nur einmal gezählt wird, sprich doppelte Einträge sollen nicht berücksichtigt werden.
Beispiel
1234
5423
1234
...
20.05.2009 10:30:17
Thread-ID: 1076270
9 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige