Original Link
WikiNews
Budapest Times

Wikinews has learned that according to an Internet posting made just over 24 hours ago, the Church of Scientology's website is being attacked by hackers, causing the site to shut down. The attack was launched on Wednesday by a user labelled "Anonymous", on the website "Insurgency Wiki", a spinoff of [zensiert].

So far, it's the Internet: 1, Scientology: 0. But it's a long game.
Matthew Ingram

Dieser LINK lässt eine langsame SQL-Query auf einem RIAA Server laufen. Klicke nicht darauf, es wäre falsch ;-)

Die Recording Industry Association of America ist eine Interessengemeinschaft, die Unternehmen aus der Musikindustrie in den USA repräsentiert. Die RIAA ist weltweit durch die Konflikte mit Tauschbörsen in die Medien gekommen.

www.japanesebugfights.com

1. 2 Käfer für einen Kampf
2. Die Kämpfe dauern so lange sie dauern müssen.
3. Keine Waffen

ZWEI KÄFER BEGINNEN
EIN KÄFER BEENDET ES

Die Japaner scheinen ganz angetan davon zu sein. Irgendwie ist es auch ziemlich spannend. Man weiß ja meistens nicht mal wie sich die Niederlage äußert. Es wird gestochen, gebissen, zerquetscht. Ich tippe übrigens auf die Hornisse. Die Gottesanbeterin ist eine Pussy.

Der silberne Audi A8 ist nicht silberfarbend, sondern aus SILBER gemacht!

Wenn man an Tourette denkt, denkt man an zufällige Schimpfwörter. Der folgende Scherz tut genau das! Wenn ein Word-Dokument geöffnet ist, wirft der VBA-Code zufällg Schimpfwörter aus.

Schritt 1: Öffne Word

Schritt 2: Öffne den VBA-Editor (Alt + F11)

Schritt 3: Doppelklick auf 'ThisDocument'


Schritt 4: Kopiere folgenden Code. Manchmal muss man die Anführungszeichen (") per Hand ersetzen, da das Format beim Kopieren verloren geht.

Sub typeRand()
Dim counter As String
counter = CStr(Int((30 - 1 + 1) * Rnd + 1))

Application.OnTime When:=Now + TimeValue(”00:00:” + counter), _
Name:=”TimedClose”

End Sub

Sub TimedClose()

Dim maindocument As Document
Set maindocument = activedocument
counter = CStr(Int((5 - 1 + 1) * Rnd + 1))

Select Case counter
Case 1
Selection.TypeText Text:=” FUCK ”
Case 2
Selection.TypeText Text:=” ARSCHLOCH ”
Case 3
Selection.TypeText Text:=” SCHEISSE ”
Case 4
Selection.TypeText Text:=” SCHLAMPE ”
Case 5
Selection.TypeText Text:=” SCHWANZ ”
End Select

Call typeRand

End Sub

Schritt 5: Speichern & Word schließen

Schritt 6: Enjoy


Wenn man die Schritte korrekt ausgeführt hat, wird sich das Skript beim nächsten Laden von Word aktivieren. Es gibt 5 Wörter, die in zufälligen Abständen zwischen 30 und 1 Sekunde auftauchen. Der Effekt betrifft Word und Outlook.

Um den Code zu löschen einfach Word wieder öffnen, Alt + F11 drücken und den Code löschen.

Original Link
Project Chanology


Scientology Kirche Berlin e.V.
Otto-Suhr-Allee 30
10585 Berlin
Tel: +49 - (0)30 - 33 77 80 79
+49 - (0)30 36 40 76-0
+49 - (0)30 8 51 10 72

Celebrity Centre Scientology Kirche München e.V.
Landshuter Allee 42
80637 München
+49 - (0)89 1 23 60 4
Scientology Kirche Bayern e.V.
Beichstr. 12
80802 München
+49 - (0)89 33 73 24
+49 - (0)89 3 86 07-0

Scientology Kirche Deutschland Hubbard Scientology Organisation
Nordendstr. 3
80799 München
+49 - (0)89 27 81 77 32

Celebrity Center Rheinland Scientology Kirche e.V.
Wiesenstr. 134
40549 Düsseldorf
+49 - (0)211 - 38 75 - 0

Scientology Kirche Frankfurt
FAX: 069 230467

Scientology Gemeinde Baden-Württemberg e.V.
Hohenheimerstrasse 9
70184 Stuttgart
+49 - (0)711 - 24 25 31/36
E-mail: stuttgart@scientology.net

Ruft doch mal an.. die freuen sich ;-)