AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

das bit eines bytes auf 1 setzen

Ein Thema von gangs-taas · begonnen am 1. Sep 2010 · letzter Beitrag vom 2. Sep 2010
Antwort Antwort
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#1

das bit eines bytes auf 1 setzen

  Alt 1. Sep 2010, 20:09
hey,
ich versuche mich gerade an einem steganografie-programm (für die schule)
und ich komme einfach nicht mehr weiter ..

könnt ihr mir sagen, wie ich möglichst einfach & elegant ein bestimmtes bit eines bytes auf 1 setzen kann ?
wenn da ein string wäre könnte ich ja einfach machen :

Delphi-Quellcode:
i : integer ;

i[8] := 1 ;
oder sowas
aber das geht bei integer's ja nicht ...

ein bzw. das letzte bit auf Null zu setzen ist ja kein problem.
Da hab ich durch recherschieren herausgefunden, dass man einfach

Delphi-Quellcode:
i := i shr 1 ;
i := i shl 1 ;
machen kann und schon ist das letzte bit null
aber mit 1 geht das auch nicht ...

könnt ihr mir da helfen ?

(in einer facharbeit über steganografie hab ich das hier gefunden :
Delphi-Quellcode:
function setze(Value: Byte; Stelle: Byte): Byte;
begin
  case Stelle of
    1: Result:=Value or $80;
    2: Result:=Value or $40;
    3: Result:=Value or $20;
    4: Result:=Value or $10;
    5: Result:=Value or $08;
    6: Result:=Value or $04;
    7: Result:=Value or $02;
    8: Result:=Value or $01;
  else result:=0;
  end;
end;
aber ich versteh nicht was Value or $80 bedeuten soll...
ich weiß auch nicht, wie ich danach bei google suchen soll...
falls das der einfachste weg ist, könnt ihr mir erklären, was das bedeutet ? )


ich hoffe ihr könnt mir helfen ..


danke schonmal

Geändert von mkinzler ( 1. Sep 2010 um 20:17 Uhr) Grund: Delphi-Tags eingefügt
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#2

AW: das bit eines bytes auf 1 setzen

  Alt 1. Sep 2010, 20:14
aber ich versteh nicht was Value or $80 bedeuten soll...
$80 ist in Delphi die Schreibweise für Hexwerte. $80 ist damit äquivalent zu binär 10000000. or ist die logische oder-Verknüpfung, wobie natürlich gilt
Code:
0 or 0 = 0
0 or 1 = 1
1 or 0 = 1
1 or 1 = 1
Value or $80 macht also nichts anderes, als das (von rechts) 8. Bit auf 1 zu setzen
Code:
Value: 100101010010
$80        10000000
or     100111010010
Leo S.
  Mit Zitat antworten Zitat
Benutzerbild von littleDave
littleDave

Registriert seit: 27. Apr 2006
Ort: München
556 Beiträge
 
Delphi 7 Professional
 
#3

AW: das bit eines bytes auf 1 setzen

  Alt 1. Sep 2010, 20:15
Wenn du dir das ganze Binär anschaust, wird es wahrscheinlich deutlicher:

$80 = 10000000 (binär)

Wenn du jetzt das erste Bit auf 1 setzen willst, passiert z.B. bei der Zahl 0 folgendes
Code:
00000000 (die 0)
   or
10000000 (die $80)
--------
10000000 ( = 128)
Das gleiche nochmal mit der Zahl (82 = $52 = 1010010 (binär))
Code:
01010010 (die 82)
   or
10000000 (die $80)
--------
11010010 ( = 210)
Hoffe, das bringt dich etwas weiter. Schau der am Besten auch mal die anderen Zahl ($40, ...) in Binär an.

[Edit] Red-Box hat wohl schon Feierabend [/Edit]
Jabber: littleDave@jabber.org
in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0

Geändert von littleDave ( 1. Sep 2010 um 20:17 Uhr)
  Mit Zitat antworten Zitat
gangs-taas

Registriert seit: 24. Mär 2009
364 Beiträge
 
#4

AW: das bit eines bytes auf 1 setzen

  Alt 1. Sep 2010, 20:19
danke für die schnelle antwort
ja ihr habt mir echt geholfen
dabei hatten wir heute sogar im unterricht über xor gesprochen

ich hatte irgendwie einen denkfehler

ich dachte das Value or $80 würde heißen "gib entweder Value ODER $80 zurück"

danke
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#5

AW: das bit eines bytes auf 1 setzen

  Alt 1. Sep 2010, 22:03
Bit-Operationen:
http://ryulib.googlecode.com/svn/trunk/Bit.pas
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#6

AW: das bit eines bytes auf 1 setzen

  Alt 2. Sep 2010, 09:05
Effizientes Arbeiten mit Bitmasken
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#7

AW: das bit eines bytes auf 1 setzen

  Alt 2. Sep 2010, 11:53
oder...:

Delphi-Quellcode:
// demo zu "BitStream.pas"

var
  i : Integer;
  BitStream : TBitStream;
  BitString : String;
const
  BitAsChar: Array[TBitValue] of Char = ('0', '1');
begin
  BitStream := TBitStream.Create;
  try
    BitStream.DigitCount := 32;
    { Bits setzen }
    for i := 0 to 7 do
      BitStream.Digits[i] := bitIsSet;
    BitStream.WriteWord( 8, 0 );
    BitStream.WriteByte( 24, $FF );
    { Bits auslesen und string befüllen }
    SetLength( BitString, BitStream.DigitCount );
    for i := 1 to BitStream.DigitCount do
      BitString[BitStream.DigitCount-i+1] := BitAsChar[BitStream.Digits[i-1]];
    { Ausgabe }
    ShowMessage( 'Bitstream:'#13#10 + BitString );
  finally
    BitStream.Free;
  end;
Angehängte Dateien
Dateityp: pas BitStream.pas (5,4 KB, 18x aufgerufen)
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Antwort Antwort


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 07:40 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