Frohe Ostern (Obsfus)

[Fennek]

Hallo,

Frohe Ostern an alle.

Im Herber-Forum gab es den Vorschlag, den Fragestellern einen kleinen Code für die Anonymisierung zur Verfügung zu stellen:

Code:

http://www.herber.de/forum/archiv/1592to1596/t1592601.htm

Aufbauend auf dem Code von snb, möchte ich eine Erweiterung vorschlagen:

Code:

Sub F_en() 'bassierend auf snb's Vorschlag
  'Randomize
  Dim By() As Byte
  With CreateObject("scripting.dictionary")
     For Each it In Sheets(1).UsedRange.Offset(1).SpecialCells(2, 2)
        By = it.Value
        Tx = ""
        For b = 0 To UBound(By) - 1 Step 2
           By(b) = (65 + Int(26 * Rnd)) Or (By(b) And 32)
           Tx = Tx & Chr(By(b))
        Next b
        .Item(it) = Tx
     Next
     
     For Each it In .keys
         Sheets(1).UsedRange.Offset(1).Replace it, .Item(it), 1
     Next
   End With
End Sub

Es wäre sinnvoll einen Code zur Anomymisierung (den besten) zusammen mit den Hinweisen zum Dateiupload zur Verfügung zu stellen.

mfg

(für die Code-Knacker auch ohne randomize, schafft das jemand?)

[Jockel]

Hallöchen Popöchen und frohe Ostern... ... was sagst du denen, die kein VBA anwenden dürfen..? Ich will das gar nicht ausprobieren. Was kommt da raus..? Vielleicht kann man die oder eine zufällig erstellte Datenbank (?) dann hier irgendwo hinterlegen...?

[WillWissen]

Hallo zusammen,

ich denke, so schwierig dürfte es nicht sein, Namen und/oder Adressen zu anonymisieren. Ein wenig Fantasie traue ich jedem zu. Meier, Müller, Schmied und Huber in jeder erdenklichen Schreibweise gepaart mit irgendwelchen Vogelnamensiedlungen (Habichtweg, Drosselgasse, Schwanenweiher usw.) reicht doch in den meisten Fällen aus. Und für die ganz Einfallslosen:  https://www.lachmeister.de/lustige-namen...ite-2.html

[snb]

Schau mal die angehängte Datei:

[Jockel]

Die Leute kenne ich!!!

[schauan]

Hallo Jörg,

was sagst du denen, die kein VBA anwenden dürfen..?

da gibt's doch bestimmt auch eine Formellösung ??

[Jockel]

Hallo André, man muss doch nur eine Beispieldatenbank irgendwo zur Verfügung stellen und die Möglichkeit bieten diese zu verlinken... Eine Notwendigkeit für eine Formel-Lösung sehe ich nicht...

[schauan]

Hallo Jörg,

gegen eine manuell erstellte Beispielmappe spricht ja auch nix Ansonsten müsste man schauen, ob 36x wechseln geht (oder mehr?) Ich hab hier mal einfach das Alphabet rumgedreht und mal 4 (8) Buchstaben entsprechend ersetzt.
Hoffentlich empfiehlt mir jetzt niemand einen Arztbesuch

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	ARZT	ZJAG
2
3	A	Z
4	B	X
5	C	W
6	D	V
7	E	U
8	G	T
9	I	S
10	J	R
11	K	Q
12	L	P
13	M	O
14	N	N
15	O	M
16	P	L
17	Q	K
18	R	J
19	S	I
20	T	G
21	U	E
22	V	D
23	W	C
24	X	B
25	Z	A

Zelle	Formel
B1	=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"A";"#");"Z";"A");"#";"Z");"R";"#");"J";"R");"#";"J");"T";"#");"G";"T");"#";"G")
B3	=INDEX($A$3:$A$25;26-ZEILE();)
B4	=INDEX($A$3:$A$25;26-ZEILE();)
B5	=INDEX($A$3:$A$25;26-ZEILE();)
B6	=INDEX($A$3:$A$25;26-ZEILE();)
B7	=INDEX($A$3:$A$25;26-ZEILE();)
B8	=INDEX($A$3:$A$25;26-ZEILE();)
B9	=INDEX($A$3:$A$25;26-ZEILE();)
B10	=INDEX($A$3:$A$25;26-ZEILE();)
B11	=INDEX($A$3:$A$25;26-ZEILE();)
B12	=INDEX($A$3:$A$25;26-ZEILE();)
B13	=INDEX($A$3:$A$25;26-ZEILE();)
B14	=INDEX($A$3:$A$25;26-ZEILE();)
B15	=INDEX($A$3:$A$25;26-ZEILE();)
B16	=INDEX($A$3:$A$25;26-ZEILE();)
B17	=INDEX($A$3:$A$25;26-ZEILE();)
B18	=INDEX($A$3:$A$25;26-ZEILE();)
B19	=INDEX($A$3:$A$25;26-ZEILE();)
B20	=INDEX($A$3:$A$25;26-ZEILE();)
B21	=INDEX($A$3:$A$25;26-ZEILE();)
B22	=INDEX($A$3:$A$25;26-ZEILE();)
B23	=INDEX($A$3:$A$25;26-ZEILE();)
B24	=INDEX($A$3:$A$25;26-ZEILE();)
B25	=INDEX($A$3:$A$25;26-ZEILE();)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg