Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> Delphi
Autor
Nachricht
Pseudo
Newbie
Newbie

Anmeldedatum: 13.04.2010
Beiträge: 1
Hilfe steganographie
Verfasst am: 13.04.2010, 13:59
Erstmal Hallo,

Und zwar habe ein Problem mit Delphi und zwar es geht um steganographie ich wollte eine funktion schreiben die den buchstaben oder zahl was auch immer in einen ascci code umwandelt und dann in nen binärcode hier mal mein fortschritt. Leider komm ich grade nicht weiter.
Als Info ihn Delphi bin ich noch Blutiger Anfänger ; )

Code:
var
zeichen : integer;
ergebnisbin : string;
z: char;
begin
edit1.text := z;
zeichen :=ord(z);
ShowMessage(IntToStr(Ord(z)));
while trunc(zeichen) <> 0 do
begin
ergebnisbin := IntToSTr(zeichen mod 2) + ergebnisbin;
zeichen := trunc(zeichen mod 2);
end;
while length(ergebnisbin) <> 8 do
begin
ergebnisbin := '0' + ergebnisbin;
showmessage(ergebnisbin);
end;
edit2.text := ergebnisbin;
ergebnisbin := '';
end;

_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> Delphi

Tags: delphi

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Problem mit always on top funktion 1038 30.10.2009, 11:26
Keine neuen Beiträge IntStr()funktion 1176 11.10.2007, 08:49
Keine neuen Beiträge TopMost Funktion unter DirectX 921 27.07.2007, 10:48
Keine neuen Beiträge Wie Funktion nutzen ? 1098 29.06.2007, 20:59
Keine neuen Beiträge update funktion einbauen 1341 28.01.2007, 23:11
 




[ Time: 0.1595s ][ Queries: 81 (0.0429s) ][ GZIP on - Debug on ]