替换TMemoryStream中的字节

Question

我通过Internet将数据发送为TmemoryStream，现在我想使用简单的算法对其进行加密。

所以我想在tmemorystream中替换每个和每个字节来引用它。

看起来像

例如（以字节为单位一个MemoryStream）：

[123] [233] [122] [001] [123] [233] [122] [001] [123] [233] [122] [001]

例如（以ASCII密码）

HI = [72] [73]

encription

[123 + 72] [233 + 73] [122 + 72] [001 + 73] [72 123+] [233 + 73] [122 + 72] [001 + 73] [123 + 72] [233 + 73] [122 + 72] [001 + 73]

终值 [195] [51] [194] [74] ...

我如何在使用Delphi的单个解析中做这种替换

和

如何在单个解析中替换memeorystream中的字节以实现此目的。

=======================更新====================== ========================

var pq: integer ; 
.... 
    LLine := // from a stream 

     //start blocjk 
      //my encription 
       p := LLine.Memory; 
        for i := 0 to LLine.Size-1 do 
        begin 

        pp := p^ ; 
        pq := pp + 72 ; 

        if pq > 255 then 
        begin 
        pq := pq - 255 ; 
        end; 
        P^ := Byte(pq) ; 


        inc(p); 
        end; 

       // my encription end 
       //my decription 
       LLine.Position := 0; 
     p := LLine.Memory; 
        for i := 0 to LLine.Size-1 do 
        begin 

        pp := p^ ; 
        pq := pp - 72 ; 

        if pq < 0 then 
        begin 
        pq := pq + 255 ; 
        end; 
        P^ := Byte(pq) ; 


        inc(p); 
        end; 
     //end 

     //end blocjk 





     Image1.Picture.Graphic.LoadFromStream(LLine); 

Answer 1

TMemoryStream暴露了一个名为Memory属性指向流的第一个字节。所以，你可以做这样的事情：

var 
    i: Integer; 
    p: ^Byte; 
... 
    p := MemoryStream.Memory; 
    for i := 0 to MemoryStream.Size-1 do 
    begin 
    EncryptByte(p^); 
    inc(p); 
    end; 

凡EncryptByte会这样定义：

procedure EncryptByte(var b: Byte); 

，并修改它被就地通过字节。

对于你那些鸡毛蒜皮的加密方案，你可以写这样的代码：

p := MemoryStream.Memory; 
    for i := 0 to MemoryStream.Size-1 do 
    begin 
    inc(p^, 72 + (i mod 2)); 
    inc(p); 
    end; 

我一直有点懒这里，并写入修改直接进入循环，因为它需要当前索引的知识。

您将需要确保为该代码块禁用范围检查。

---

在你的代码中的错误，在更新的问题，是需要由256而不是255转移。

if pq > 255 then 
begin 
    pq := pq - 256; 
end; 

... 

if pq < 0 then 
begin 
    pq := pq + 256; 
end;