AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Stegano - Das Programm für Steganografie in Bildern
Thema durchsuchen
Ansicht
Themen-Optionen

Stegano - Das Programm für Steganografie in Bildern

Ein Thema von Oldy · begonnen am 11. Okt 2009 · letzter Beitrag vom 11. Okt 2009
Antwort Antwort
Seite 2 von 3     12 3      
Oldy
Registriert seit: 12. Dez 2008
Tag´schö
Ich habe vor einigen Monaten mal ein kleines Programm geschrieben, das es dem Nutzer ermöglicht, Texte in BMP-Bildern zu verstecken und auszulesen. Nun wollte ich wissen, ob es auch brauchbar ist

Besonderheit:
Das Programm kann die Texte meist auch nach der Konvertierung in JPG und Zurück wieder auslesen.

- Nutzung -
  • Zuerst lädt man ein Bild rein
  • Wenn du wissen willst, ob schon was im Bild steht, drückst du "Bild >> Text"
  • Jetzt kannst du den Text ändern & mit "Text >> Bild" ins Bild schreiben.
  • Dann speichern


Bei Nachfrage hänge ich das noch als Zip ran

// In Bearbeitung:
- Die möglichkeit, JPG´s direkt zu nutzen.






!! Bitte beachtet !!
Steganografie ist in manchen Ländern illegal!
Angehängte Dateien
Dateityp: rar stegano_513.rar (471,7 KB, 71x aufgerufen)
 
Benutzerbild von Matze
Matze

 
Turbo Delphi für Win32
 
#11
  Alt 11. Okt 2009, 13:15
Das Bild kann ich auslesen.

Vom Betriebssystem sollte sowas i.d.R. nicht abhängig sein, da du lediglich ein Bild manuell veränderst, denke ich mal.

Ich nutze Win XP Prof. SP3

Edit: Auch in dein Bmp kann ich nichts speichern. Da kommt wieder nur Wirrwar heraus.
  Mit Zitat antworten Zitat
Oldy

 
Delphi 7 Enterprise
 
#12
  Alt 11. Okt 2009, 13:18
wundert mich sehr
Alexander
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

 
Delphi XE2 Professional
 
#13
  Alt 11. Okt 2009, 13:18
Kann Matze bestätigen: Aus "Hallo, dies ist ein Test" wird "gEMfINOg- *Cg#N4M# "


Nur mal aus interesse... wie machst du das? Ich dachte zum einlesen der Daten braucht man dann immer das Original und das veränderte Bild?
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze

 
Turbo Delphi für Win32
 
#14
  Alt 11. Okt 2009, 13:19
Wenn ich das richtig verstehe hängt er nur den Text ans Ende der Datei an.
  Mit Zitat antworten Zitat
Oldy

 
Delphi 7 Enterprise
 
#15
  Alt 11. Okt 2009, 13:21
eigendlich lösche ich den text, schreibe neuen rein, hänge in eine neue Zeile eine Variable (das Gemfino mitn n paar zeichen nocH) , ab der dann alles gelöscht wird.
Der Rest wird automatisch zum Buddy-text, der nicht mit geladen wird.
und der Text wird in den Pixeln des Bildes Versteckt.



//Edit
@alleinherrscher
Siehe hier
Alexander
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

 
Delphi XE2 Professional
 
#16
  Alt 11. Okt 2009, 13:34
Okay, danke für die Infos... aber wenn es bei dir klappt, Oldy, vielleicht machen wir ja auch was in der Bedienung falsch? Oder muss das Bild ein bestimmtes Format haben oder sowas?
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

 
Turbo Delphi für Win32
 
#17
  Alt 11. Okt 2009, 13:35
Das direkte Anhängen ist aber dann nicht mehr "Steganographie"

@alleinherrscher
Schau dir meine Sourcen an, da wurde das ausführlich erklärt.
To sum it up:
1 Byte an Daten wird in 2 Bytes an Pixeldaten wie folgt versteckt:
1 DatenByte in 2x4Bit aufsplitten und diese dann in die Least Significant Bits der folgenden 2 Pixeldaten einfügen:

Beispiel:
N Val Bin[MSB|LSB]
D = 88 -> 0101 1000
P1 = 150 -> 1001 0110
P2 = 210 -> 1101 0010

-> P1 = 1001 0101
-> P2 = 1101 1000

P1Neu = 149
P2Neu = 216

Da der maximale Wert von 4 Binären stellen = 2^3 + 2^2 + 2^1 + 2^0 also = 16 ist, gibts ne Abweichung von -8 bis +8 beim neuen Pixelwert.

MfG
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze

 
Turbo Delphi für Win32
 
#18
  Alt 11. Okt 2009, 13:37
Selbst mit seinem Beispielbild geht es nicht. Also kann's nicht am Bidformat liegen. Und bei einem Bmp mit Farbtiefe < 16 Bit kommt auch eine entsprechende Hinweismeldung, dass mind. 16 Bit vorliegen müssen.

Die Bedienung hat er im 1. Beitrag geschrieben und das sieht somit auch korrekt aus. Den Fortschrittsbalken sehe ich auch beim Speichern und beim laden. Somit macht das Tool schon irgendwas (komisches).
  Mit Zitat antworten Zitat
Oldy

 
Delphi 7 Enterprise
 
#19
  Alt 11. Okt 2009, 13:38
wundert mich echt dass das bei euch nich geht
Alexander
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze

 
Turbo Delphi für Win32
 
#20
  Alt 11. Okt 2009, 13:44
Ich erkläre mal Schritt für Schritt, was ich mache. Das "Leerbild" ist angehängt.

- Exe starten

Text speichern:
- Reiter "Bild": "Bild laden"
- angehängtes Bmp wählen
- Zum Reiter "Text" wechseln
- Text eingeben, bsp. "Matze"
- Button "Text >> Bild" anklicken (Fortschrittsbalken erscheint und das Tool wechselt zum Reiter "Bild")
- Dort "Bild speichern" anklicken

Text auslesen:
- gespeichertes Bild über "Bild laden" laden
- Button "Bild >> Text" anklicken (Fortschrittsbalken erscheint und das Tool wechselt zum Reiter "Text")

Als Text sehe ich dann nur das, was angehängt ist (es wäre sinnvoll, wenn du die Dateiendung ".txt" dem Dateinamen automatisch anhängen würdest).
Angehängte Grafiken
Dateityp: bmp test_266.bmp (90,2 KB, 16x aufgerufen)
Angehängte Dateien
Dateityp: txt text_157.txt (10,5 KB, 6x aufgerufen)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz