Montag, 11. Mai 2015
Visual Basic .net eine Textspalte einer Datagridview mit Zeilenumbruch versehen
Datagridview.Columns(4).DefaultCellStyle.WrapMode = DataGridViewTriState.True
Samstag, 9. Mai 2015
Bitte spenden!!!
Wer die Software gut findet, kann gerne Bitcoins spenden ;)
Bitcoin-Adresse:
Wie man Bitcoins spendet: http://franzhuber23.blogspot.de/2015/05/bitcoins-spenden-howto.html
Meine Homepage: http://softwareload24.de.tl/
Bitcoins spenden-HowTo
1. Registriere dich auf Litebit.eu (Standorte Niederlande!) und bestätige deine E-Mail Adresse
2. Logge dich ein und klicke auf "Kaufen"
3. Trage beim Betrag den Spendenbetrag in Euro ein.
4. Trage bei Empfangsadresse unsere Bitcoin Adresse ein:
5. Wähle bei Zahlungsmethode: Sofort (Sofortüberweisung) oder GiroPay aus
6. Klicke auf "Nächste" und der Rest erklärt sich von selbst!
Zahlungsinformationen
URI:
Adresse:
Bezeichnung: Software-Hämmer Electronics
AES-TextCryptor
AES-TextCryptor
Ein Programm, um Texte mit AES zu verschlüsseln.
Download (GDrive)
Download (Dropbox)
Download (Sourceforge)
Lizenz
Manual (Englisch)
Manual (Deutsch)
Download (GDrive)
Download (Dropbox)
Download (Sourceforge)
Lizenz
Manual (Englisch)
Manual (Deutsch)
Plattform: Windows mit .Net 4.5.1
Freitag, 8. Mai 2015
Visual Basic.net RSA-Verschlüsselung für Texte
'RSA
' Verschlüsseln
Public Function RSAEncrypt(ByVal RSAKeySize As Int32, ByVal DataToEncrypt() As Byte, ByVal RSAKeyInfo As RSAParameters, ByVal DoOAEPPadding As Boolean) As Byte()
Try
Dim encryptedData() As Byte
'Create a new instance of RSACryptoServiceProvider.
Using RSA As New RSACryptoServiceProvider(RSAKeySize)
'Import the RSA Key information. This only needs
'toinclude the public key information.
RSA.ImportParameters(RSAKeyInfo)
'Encrypt the passed byte array and specify OAEP padding.
'OAEP padding is only available on Microsoft Windows XP or
'later.
encryptedData = RSA.Encrypt(DataToEncrypt, DoOAEPPadding)
End Using
Return encryptedData
'Catch and display a CryptographicException
'to the console.
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
' Entschlüsseln
Public Function RSADecrypt(ByVal RSAKeySize As Int32, ByVal DataToDecrypt() As Byte, ByVal RSAKeyInfo As RSAParameters, ByVal DoOAEPPadding As Boolean) As Byte()
Try
Dim decryptedData() As Byte
'Create a new instance of RSACryptoServiceProvider.
Using RSA As New RSACryptoServiceProvider(RSAKeySize)
'Import the RSA Key information. This needs
'to include the private key information.
RSA.ImportParameters(RSAKeyInfo)
'Decrypt the passed byte array and specify OAEP padding.
'OAEP padding is only available on Microsoft Windows XP or
'later.
decryptedData = RSA.Decrypt(DataToDecrypt, DoOAEPPadding)
'Catch and display a CryptographicException
'to the console.
End Using
Return decryptedData
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
'RSA
' Verschlüsseln
Public Function RSAEncrypt(ByVal RSAKeySize As Int32, ByVal DataToEncrypt() As Byte, ByVal RSAKeyInfo As RSAParameters, ByVal DoOAEPPadding As Boolean) As Byte()
Try
Dim encryptedData() As Byte
'Create a new instance of RSACryptoServiceProvider.
Using RSA As New RSACryptoServiceProvider(RSAKeySize)
'Import the RSA Key information. This only needs
'toinclude the public key information.
RSA.ImportParameters(RSAKeyInfo)
'Encrypt the passed byte array and specify OAEP padding.
'OAEP padding is only available on Microsoft Windows XP or
'later.
encryptedData = RSA.Encrypt(DataToEncrypt, DoOAEPPadding)
End Using
Return encryptedData
'Catch and display a CryptographicException
'to the console.
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
' Entschlüsseln
Public Function RSADecrypt(ByVal RSAKeySize As Int32, ByVal DataToDecrypt() As Byte, ByVal RSAKeyInfo As RSAParameters, ByVal DoOAEPPadding As Boolean) As Byte()
Try
Dim decryptedData() As Byte
'Create a new instance of RSACryptoServiceProvider.
Using RSA As New RSACryptoServiceProvider(RSAKeySize)
'Import the RSA Key information. This needs
'to include the private key information.
RSA.ImportParameters(RSAKeyInfo)
'Decrypt the passed byte array and specify OAEP padding.
'OAEP padding is only available on Microsoft Windows XP or
'later.
decryptedData = RSA.Decrypt(DataToDecrypt, DoOAEPPadding)
'Catch and display a CryptographicException
'to the console.
End Using
Return decryptedData
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
'RSA
Visual Basic.net Textdatei schreiben
Try
' Datei öffnen
Dim fs As FileStream = New FileStream(DATEINAME, FileMode.OpenOrCreate, FileAccess.Write)
'Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
'Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
'Zeilen schreiben
w.Write("Test")
w.WriteLine()
'Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.toString) 'Fehlermeldung ausgeben
End Try
' Datei öffnen
Dim fs As FileStream = New FileStream(DATEINAME, FileMode.OpenOrCreate, FileAccess.Write)
'Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
'Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
'Zeilen schreiben
w.Write("Test")
w.WriteLine()
'Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.toString) 'Fehlermeldung ausgeben
End Try
Visual Basic.net Textdatei lesen
Try
'Datei öffnen
Dim fs As FileStream = New FileStream(DATEINAME, FileMode.OpenOrCreate, FileAccess.ReadWrite)
'Stream öffnen
Dim r As StreamReader = New StreamReader(fs)
'Zeiger auf den Anfang
r.BaseStream.Seek(0, SeekOrigin.Begin)
'Alle Zeilen lesen und an Console ausgeben
While r.Peek() > -1
MessageBox.Show((r.ReadLine()))
End While
'Reader und Stream schließen
r.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.toString) 'Fehlermeldung ausgeben
End Try
'Datei öffnen
Dim fs As FileStream = New FileStream(DATEINAME, FileMode.OpenOrCreate, FileAccess.ReadWrite)
'Stream öffnen
Dim r As StreamReader = New StreamReader(fs)
'Zeiger auf den Anfang
r.BaseStream.Seek(0, SeekOrigin.Begin)
'Alle Zeilen lesen und an Console ausgeben
While r.Peek() > -1
MessageBox.Show((r.ReadLine()))
End While
'Reader und Stream schließen
r.Close()
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.toString) 'Fehlermeldung ausgeben
End Try
Mittwoch, 6. Mai 2015
Montag, 4. Mai 2015
Visual Basic.net CSV-Export speichern
Dim CSV_SaveFileDialog As New SaveFileDialog
CSV_SaveFileDialog.InitialDirectory = "C:"
CSV_SaveFileDialog.Filter = "CSV-Dateien|*.csv"
CSV_SaveFileDialog.Title = "Wählen Sie einen Dateititel zum Speichern aus"
If CSV_SaveFileDialog.ShowDialog() = DialogResult.OK Then
MsgBox("Datei gespeichert unter: " & CSV_SaveFileDialog.FileName)
Else
MsgBox("Abbruch")
End If
CSV_SaveFileDialog.InitialDirectory = "C:"
CSV_SaveFileDialog.Filter = "CSV-Dateien|*.csv"
CSV_SaveFileDialog.Title = "Wählen Sie einen Dateititel zum Speichern aus"
If CSV_SaveFileDialog.ShowDialog() = DialogResult.OK Then
MsgBox("Datei gespeichert unter: " & CSV_SaveFileDialog.FileName)
Else
MsgBox("Abbruch")
End If
Visual Basic.net Äquivalent zu App.Path in Visual Basic 6
System.AppDomain.CurrentDomain.BaseDirectory()
Visual Basic.net Mails per SMTP-Server versenden
https://www.vb-paradise.de/index.php/Thread/6931-E-Mail-senden-per-SMTP-Simple-Mail-Transfer-Protocol/
https://msdn.microsoft.com/de-de/library/bb979096.aspx
Dim Message As New MailMessage
Dim Login As New System.Net.NetworkCredential
Login.UserName = "andreas@absender.de"
Login.Password = "Passwort des Absenders"
Message.IsBodyHtml = False
Dim SMTPServer As New SmtpClient()
SMTPServer.Host = "smtp.web.de" 'bei web.de
SMTPServer.Port = 25
SMTPServer.UseDefaultCredentials = False
SMTPServer.Credentials = Login
Try
Message.From = New MailAddress("andreas@absender.de")
Message.To.Add("entchen@empfänger.de")
Message.Subject = "Betreff"
Message.Body = "Inhalt"
SMTPServer.Send(Message)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(ex.Message) 'Fehlermeldung ausgeben
End Try
https://msdn.microsoft.com/de-de/library/bb979096.aspx
Dim Message As New MailMessage
Dim Login As New System.Net.NetworkCredential
Login.UserName = "andreas@absender.de"
Login.Password = "Passwort des Absenders"
Message.IsBodyHtml = False
Dim SMTPServer As New SmtpClient()
SMTPServer.Host = "smtp.web.de" 'bei web.de
SMTPServer.Port = 25
SMTPServer.UseDefaultCredentials = False
SMTPServer.Credentials = Login
Try
Message.From = New MailAddress("andreas@absender.de")
Message.To.Add("entchen@empfänger.de")
Message.Subject = "Betreff"
Message.Body = "Inhalt"
SMTPServer.Send(Message)
MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information")
Catch ex As Exception
MsgBox(ex.Message) 'Fehlermeldung ausgeben
End Try
Visual Basic.net-Double-Zahlen für SQL-Befehl formatieren
Value.ToString("G", New System.Globalization.CultureInfo("en-US")))
--> Ändert 1,00 auf 1.00
Kalenderwoche aus Datum berechnen-C# und Visual Basic.net
C#:
public static int berechneKalenderwoche(DateTime datum)
{
int kalenderwoche = (datum.DayOfYear/7)+1;
if (kalenderwoche == 53) kalenderwoche = 1;
return kalenderwoche;
}
{
int kalenderwoche = (datum.DayOfYear/7)+1;
if (kalenderwoche == 53) kalenderwoche = 1;
return kalenderwoche;
}
Visual Basic.net:
Public Shared Function berechneKalenderwoche(datum As DateTime) As Integer
Dim kalenderwoche As Integer = (datum.DayOfYear / 7) + 1
If kalenderwoche = 53 Then
kalenderwoche = 1
End If
Return kalenderwoche
End Function
Dim kalenderwoche As Integer = (datum.DayOfYear / 7) + 1
If kalenderwoche = 53 Then
kalenderwoche = 1
End If
Return kalenderwoche
End Function
Samstag, 2. Mai 2015
Eigenen Linux vServer mit Apache Web- und MySQL Server unter Windows aufsetzen [Deutsch][HD]
Donnerstag, 30. April 2015
Visual Basic .net Strings mit AES verschlüsseln
Option Strict On
Imports System.Security.Cryptography
Public Class cCrypt
#Region "Zustandsvariablen"
Private EncryptedString_ As String
Private DecryptedString_ As String
#End Region
Public Sub New()
End Sub
#Region "Methoden"
' Verschlüsseln
Public Sub Encrypt(ByVal AESKeySize As Int32, _
ByVal DecryptedString As String, _
ByVal Password As String)
' Der Salt-Wert ist eine zufällig gewählte Zeichenfolge,
' wenn man so will ein zweites Passwort.
' Nur wer den Salt-Wert und das Passwort kennt,
' kann entschlüsseln.
' Durch Verwendung eines Salt-Wertes ist es deutlich
' schwerer das Passwort zu knacken.
' Wird das Passwort selber zur Erstellung des Salt-Wertes
' verwendet, muss dieses mindestens 8 Zeichen haben.
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
' Mit Hilfe des Passwortes und des Salt wird ein Key (Hash-Wert)
' generiert, der später zur Initialisierung des
' AES-Algorithmus verwendt wird.
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts mit 256-bit
' oder 256-bit Schlüssel und 256-bit Block-Size
Dim AES As New AesManaged
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateEncryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), _
CryptoStreamMode.Write)
' Daten verschlüsseln:
Dim Data() As Byte
Data = System.Text.Encoding.UTF8.GetBytes(DecryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Verschlüsselte Daten als String ausgeben:
EncryptedString_ = Convert.ToBase64String(ms.ToArray)
ms.Close()
AES.Clear()
End Sub
' Entschlüsseln
Public Sub Decrypt(ByVal AESKeySize As Int32, _
ByVal EncryptedString As String, _
ByVal Password As String)
' Der Salt-Wert und das Passwort müssen mit dem übereinstimmen,
' das bei der Verschlüsselung verwendet wurde:
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts:
Dim AES As New AesManaged
' Ein mit 256 bit verschlüsselter String kann
' auch nur mit 256 bit entschlüsselt werden!
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateDecryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), _
CryptoStreamMode.Write)
Try ' Daten entschlüsseln:
Dim Data() As Byte
Data = Convert.FromBase64String(EncryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Die entschlüsselten Daten als String ausgeben:
DecryptedString_ = System.Text.Encoding.UTF8.GetString(ms.ToArray)
ms.Close()
AES.Clear()
Catch ex As Exception
DecryptedString_ = "Ungültiges Passwort!"
End Try
End Sub
#End Region
#Region "Eigenschaften"
ReadOnly Property EncryptedString() As String
Get
Return EncryptedString_
End Get
End Property
ReadOnly Property DecryptedString() As String
Get
Return DecryptedString_
End Get
End Property
#End Region
End Class
Imports System.Security.Cryptography
Public Class cCrypt
#Region "Zustandsvariablen"
Private EncryptedString_ As String
Private DecryptedString_ As String
#End Region
Public Sub New()
End Sub
#Region "Methoden"
' Verschlüsseln
Public Sub Encrypt(ByVal AESKeySize As Int32, _
ByVal DecryptedString As String, _
ByVal Password As String)
' Der Salt-Wert ist eine zufällig gewählte Zeichenfolge,
' wenn man so will ein zweites Passwort.
' Nur wer den Salt-Wert und das Passwort kennt,
' kann entschlüsseln.
' Durch Verwendung eines Salt-Wertes ist es deutlich
' schwerer das Passwort zu knacken.
' Wird das Passwort selber zur Erstellung des Salt-Wertes
' verwendet, muss dieses mindestens 8 Zeichen haben.
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
' Mit Hilfe des Passwortes und des Salt wird ein Key (Hash-Wert)
' generiert, der später zur Initialisierung des
' AES-Algorithmus verwendt wird.
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts mit 256-bit
' oder 256-bit Schlüssel und 256-bit Block-Size
Dim AES As New AesManaged
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateEncryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateEncryptor(), _
CryptoStreamMode.Write)
' Daten verschlüsseln:
Dim Data() As Byte
Data = System.Text.Encoding.UTF8.GetBytes(DecryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Verschlüsselte Daten als String ausgeben:
EncryptedString_ = Convert.ToBase64String(ms.ToArray)
ms.Close()
AES.Clear()
End Sub
' Entschlüsseln
Public Sub Decrypt(ByVal AESKeySize As Int32, _
ByVal EncryptedString As String, _
ByVal Password As String)
' Der Salt-Wert und das Passwort müssen mit dem übereinstimmen,
' das bei der Verschlüsselung verwendet wurde:
Dim Salt() As Byte
Salt = System.Text.Encoding.UTF8.GetBytes( _
"12345")
Dim GenerierterKey As New Rfc2898DeriveBytes(Password, Salt)
' Instanzierung des AES-Algorithmus-Objekts:
Dim AES As New AesManaged
' Ein mit 256 bit verschlüsselter String kann
' auch nur mit 256 bit entschlüsselt werden!
AES.KeySize = AESKeySize ' möglich sind 128 oder 256 bit
AES.BlockSize = 128
' Algorithmus initialisieren:
AES.Key = GenerierterKey.GetBytes(AES.KeySize \ 8)
AES.IV = GenerierterKey.GetBytes(AES.BlockSize \ 8)
' Memory-Stream und Crypto-Stream erzeugen -> CreateDecryptor()
Dim ms As New IO.MemoryStream
Dim cs As New CryptoStream(ms, AES.CreateDecryptor(), _
CryptoStreamMode.Write)
Try ' Daten entschlüsseln:
Dim Data() As Byte
Data = Convert.FromBase64String(EncryptedString)
cs.Write(Data, 0, Data.Length)
cs.FlushFinalBlock()
cs.Close()
' Die entschlüsselten Daten als String ausgeben:
DecryptedString_ = System.Text.Encoding.UTF8.GetString(ms.ToArray)
ms.Close()
AES.Clear()
Catch ex As Exception
DecryptedString_ = "Ungültiges Passwort!"
End Try
End Sub
#End Region
#Region "Eigenschaften"
ReadOnly Property EncryptedString() As String
Get
Return EncryptedString_
End Get
End Property
ReadOnly Property DecryptedString() As String
Get
Return DecryptedString_
End Get
End Property
#End Region
End Class
Visual Basic .net-Datagridview Spalten auf Datum/ Währung formatieren
Me.dataGridView1.Columns("UnitPrice").DefaultCellStyle.Format = "c"
Me.dataGridView1.Columns("ShipDate").DefaultCellStyle.Format = "d"
Me.dataGridView1.Columns("ShipDate").DefaultCellStyle.Format = "d"
Visual Basic .net-Datagridview sortieren
DataGridView.Sort(DataGridView.Columns(1), System.ComponentModel.ListSortDirection.Ascending)
DataGridView.Sort(DataGridView.Columns(1), System.ComponentModel.ListSortDirection.Descending)
DataGridView.Sort(DataGridView.Columns(1), System.ComponentModel.ListSortDirection.Descending)
Samstag, 11. April 2015
Dienstag, 7. April 2015
Freitag, 3. April 2015
Montag, 30. März 2015
Freitag, 27. März 2015
Auf Android und unter Windows fernsehen mit Gratistool
Auf Android und unter Windows fernsehen mit Gratistool
Dienstag, 24. März 2015
Zitatverdreher-Die Welt ohne Eigenschaften war eher Eigenschaften ohne Welt
"Die Welt ohne Eigenschaften war eher Eigenschaften ohne Welt"
Max Mustermann
Zitatverdreher-Der Mensch ist frei geboren und liegt doch überall in Ketten
"Der Mensch ist frei geboren und liegt doch überall in Ketten"
Holiday Inn
Zittverdreher-Ich habe keine besonderen Talente. Ich bin nur leidenschaftlich neugierig.
"Ich habe keine besonderen Talente. Ich bin nur leidenschaftlich neugierig."
Barack Obama
Donnerstag, 19. März 2015
Zitatverdreher-Nichts ist mächtiger als eine Idee, deren Zeit gekommen ist
"Nichts ist mächtiger als eine Idee, deren Zeit gekommen ist"
Paris Hilton
Zitatverdreher-There's no business like show business
"There's no business like show business"
Muammar al Gaddafi
Zitatverdreher-Die Macht hat großen Einfluss auf die geistig schwachen
"Die Macht hat großen Einfluss auf die geistig schwachen"
Obi Wan Kenobi
Zitatverdreher-Niemand hat die Absicht, eine Mauer zu errichten
"Niemand hat die Absicht, eine Mauer zu errichten"
Bob, der Baumeister
Titatverdreher-Mailand oder Madrid-Hauptsache Italien
"Mailand oder Madrid-Hauptsache Italien"
Papst Benedikt XVI.
Zitatverdreher-Schön, die Phönizier haben das Geld erfunden. Aber warum so wenig?
"Schön, die Phönizier haben das Geld erfunden. Aber warum so wenig?"
Buddha
Zitatverdreher-Die Macht ist nicht etwas,was man erwirbt, wegnimmt, teilt, was man bewahrt oder verliert; Die Macht ist etwas, was sich von unzähligen Punkten aus und im Spiel ungleicher und beweglicher Beziehungen vollzieht
"Die Macht ist nicht etwas,was man erwirbt, wegnimmt, teilt, was man bewahrt oder verliert; Die Macht ist etwas, was sich von unzähligen Punkten aus und im Spiel ungleicher und beweglicher Beziehungen vollzieht."
Darth Vader
Zitatverdreher-Ihr Völker dieser Welt, schaut auf diese Stadt
"Ihr Völker dieser Welt, schaut auf diese Stadt"
Klaus Wowereit
Zitatverdreher-Die Proletarier haben nichts zu verlieren als ihre Ketten
"Die Proletarier haben nichts zu verlieren als ihre Ketten"
Heidi Klum
Zitatverdreher-Handle nur nach derjenigen Maxime, durch die du zugelich wollen kannst, dass sie ein allgemeines Gesetz werde
"Handle nur nach derjenigen Maxime, durch die du zugelich wollen kannst, dass sie ein allgemeines Gesetz werde."
Silvio Berlusconi
Zitatverdreher-Liebe deinen nächsten so wie dich selbst
"Liebe deinen nächsten so wie dich selbst"
Kurt Cobain
Zitatverdreher-Ich schaue mir meine Filme nicht an, sie sind mir zu brutal
"Ich schaue mir meine Filme nicht an, sie sind mir zu brutal"
Jennifer Aniston
Zitatverdreher-Wer sagt, hier herrscht Freiheit, der lügt. Denn die Freiheit herrscht nicht.
"Wer sagt, hier herrscht Freiheit, der lügt. Denn die Freiheit herrscht nicht."
Barack Obama
Zitatverdreher-Alles hat ein Ende, nur die Wurst hat 2
"Alles hat ein Ende, nur die Wurst hat 2"
Albert Einstein
Zitatverdreher-Geld stinkt nicht
"Geld stinkt nicht"
"Pecunia non olet"
Bischof Franz-Peter Tebartz-van Elst
Zitatverdreher-Je öfter eine Dummheit wiederholt wird, desto mehr bekommt sie den Anschein von Klugheit
"Je öfter eine Dummheit wiederholt wird, desto mehr bekommt sie den Anschein von Klugheit"
The Lehman brothers
Zitatverdreher-Macht kaputt, was euch kaputt macht
"Macht kaputt, was euch kaputt macht"
Axel Springer
Zitatverdreher-Wer mit 20 kein Kommunist war, hat kein Herz. Aber, wer mit 40 noch Kommunist ist, der hat keinen Verstand
"Wer mit 20 kein Kommunist war, hat kein Herz. Aber, wer mit 40 noch Kommunist ist, der hat keinen Verstand"
Josef Stalin
.jpg)
Samstag, 14. März 2015
Zitatverdreher-... treibt die Schuldiger hinaus
"... treibt die Schuldiger hinaus"
Wolfgang Schäuble
Zitatverdreher-Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat
"Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat"
Peter Hartz
Zitatverdreher-Hier bin ich Mensch, hier kauf ich ein
"Hier bin ich Mensch, hier kauf ich ein"
Friedrich Schiller
Zitatverdreher-Wenn man ein 0:2 kassiert, dann ist ein 1:1 nicht mehr möglich
"Wenn man ein 0:2 kassiert, dann ist ein 1:1 nicht mehr möglich"
Satz des Phytagoras
Abonnieren
Posts (Atom)