Archiv 19. Dezember 2007

Mittwoch, 19. Dezember 2007

Banken in der Bredouille

The banks have been creating trillions of dollars of credit […] without maintaining the proportional capital reserves to back them up.

Quelle: Collapse of the Modern Day Banking System – Staring into the Abyss

Logische Schlussfolgerung: Wir ändern die Regeln während dem Spiel!

„The Financial Services Authority must go round and check that all banks are solvent, and then it should cut the Basel capital requirement level from 8pc to about 6pc.“

Quelle: Call to relax Basel banking rules

Tags: ,
Labels: USA, Wirtschaft

Keine Kommentare | neuen Kommentar verfassen

Mittwoch, 19. Dezember 2007

Excel Blattschutz aufheben


Blattschutz aufheben
Originally uploaded by emeidi

Wer nebenstehende Meldung zu Gesicht erhält, muss nicht darben. Im Netz gibt es nämlich funktionierende Anleitungen, wie der Blattschutz einer Excel-Datei auch ohne Kenntnis des Passwortes aufgehoben wird:

Binden Sie dazu einfach das Script pcwBreaker.BAS in Excel ein. Dazu starten Sie Excel, wählen „Extras, Makros, Visual Basic Editor“ und importieren das Script über „Datei, Datei importieren“ in ein neues Modul.
Laden Sie nun die Arbeitsmappe, öffnen Sie das geschützte Tabellenblatt, und starten Sie das Script über „Extras, Makro, Makros“. Nach einigen Minuten haben Sie vollen Zugriff auf das Tabellenblatt.

Quelle: pcwBreaker (Teil 1)

Da das Script bei PC Welt nicht abrufbar ist, habe ich eine „Sicherheitskopie“ im Netz gefunden. Ich gebe die Programmieranweisungen hier wieder und hoffe, kein geistiges Eigentum zu verletzen:

Sub pcwBreaker()

Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

Kennwort = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveSheet.Unprotect Kennwort
If ActiveSheet.ProtectContents = False Then
MsgBox "Fertig" & vbcr & "Das alternative Kennwort lautet:" & vbcr & Kennwort
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

Quelle: Excel Blattschutz aufheben

Tags: ,
Labels: Allgemein

4 Kommentare | neuen Kommentar verfassen

Mittwoch, 19. Dezember 2007

Flugangst

Natürlich konnte ich es nicht lassen, zwei Kollegen, die für die „nationale“ Airline ihren Dienst verrichten, darauf anzusprechen. „Was würdest du in so einem Fall tun?“, fragte ich beide. Eine der Antworten lautete folgendermassen:

*muahaha*…dasch leid..würd säge restraine, sack übere gring,
kreuzbeige…buscopan, nitrolingual, zolben und zäpfli, travvell, heissi
suppe überd chose..und finito! ;)

(Ich wusste gar nicht, dass anscheinend auf jedem Flug so weisse Plastic-Handschellen an Bord sind und „restrainment kit“ genannt werden …)

Tags: ,
Labels: Funny

Keine Kommentare | neuen Kommentar verfassen