替換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;