Bonjour à tous
je viens de recupérer un code dont j'ai besoin pour faire un p'tit soft, le seul problème, est que c'est programmé en C++,
et que moi je develloppe en vb2005 express.
Y aurait_il sur le forum une bonne âme suffisemment calé en c++ et vb pour me faire une traduction approximative ?
je vous joins un bout du code :

procedure Generate_CRC_Table(Seed:longword);
var x,i:word;
    a:longword;
begin
   x:=0;
   while (x<256) do
     begin
       a:=x shl 24;
       for i:= 0 to 7 do
        begin
           if (a and $80000000)= $80000000 then
             begin
               a:= a + a;
               a:= a xor Seed;
             end
           else
             begin
               a:= a shl 1;
             end;
        end;
       CRC_Table[x]:=a;
       inc(x);
     end;
end;


@+
greg38bj

salut
voici ce qui précedait le code :

var CRC_Table : array[0..255] of longword;
var BinSize:longword;

et voici une partie de la suite :
var Buffer : array[0..2097151] of byte; // Max size of a flash

procedure TFormMain.cmdFileOpenClick(Sender: TObject);
var F:TFileStream;
    s:string;
begin
  if OpenDialogBin.Execute then
    begin
      F:=TFileStream.Create(OpenDialogBin.FileName,fmOpenRead);
      F.Read(Buffer,F.Size);
      BinSize:=F.Size;
      F.Free;
      cmdFileOpen.Caption:=ExtractFileName(OpenDialogBin.FileName);
      memo.Clear;
      s:='File size = '+ inttostr(BinSize)+ ' bytes ( '+inttostr(round(BinSize/1024))+' kB )';
      if BinSize <= 2031616 then
         s:=s+' - User Data Saved'
      else
         s:=s+' - User Data Overwitten';
      memo.Lines.Add(s);
      FixCRC;
    end
  else
   cmdFileOpen.Caption:='Click to select a file...';
end;

function Get4Bytes(adr:longword):longword;
begin
  Result:=Buffer[adr] shl 24 + Buffer[adr+1] shl 16 + Buffer[adr+2] shl 8 + Buffer[adr+3];
end;


function BufferGetString(adr:longword):string;
var i:integer;
begin
   i:=0;
   Result:='';
   while (i<16) and (buffer[adr+i]<>0) do
    begin
     Result:=Result+chr(buffer[adr+i]);
     inc(i);
    end;
end;

function TFormMain.CalculateCRC(Start,Stop:longword):longword;
var CRC : longword;
    i:integer;
begin
   i:=Start;
   CRC := $FFFFFFFF;
   while (i <= Stop) do
      begin
       CRC := (CRC shl 8) xor (CRC_table[buffer[i] xor (CRC shr 24)]);
       inc(i);
      end;
   Result := CRC;
end;


procedure TFormMain.FixCRC;
var BlockID,offset,len,crc,newCRC:longword;
    ptr:longword;
    s:string;
begin
  Generate_CRC_Table(FidMergerSeed);
  Memo.Lines.Add('CRC Table Calculated!');
  ptr:=0;
  BlockID:=Get4Bytes(ptr);
  Memo.Lines.Add('BlockID = '+inttohex(BlockID,8));
  if BlockID = $E3000010 then
    begin
      Memo.Lines.Add('Boot loader -> NO CRC');
      Buffer[12]:=ord('N');
      Buffer[13]:=ord('C');
      Buffer[14]:=ord('R');
      Buffer[15]:=ord('C');
    end;
  offset:=Get4Bytes(ptr+8);
  ptr:=offset;
  // check for rest
  while (PTR+16 < BinSize) do
    begin
      BlockID:=Get4Bytes(ptr);
      len:=Get4Bytes(ptr+4);
      offset:=Get4Bytes(ptr+8);
      CRC:=Get4Bytes(ptr+12);
      s:='BlockID = '+inttohex(BlockID,8);
      s:=s+' SIZE = '+inttohex(len,8);
      s:=s+' OFFSET = '+inttohex(offset,8);
      s:=s+' Actual CRC = '+inttohex(crc,8);
      Memo.Lines.Add(s);
      s:='Bloc Name = '+BufferGetString(ptr+16);
      s:=s+' Version = '+BufferGetString(ptr+32);
      s:=s+' Date = '+BufferGetString(ptr+48);
      Memo.Lines.Add(s);
      newcrc:=CalculateCRC(ptr+16,ptr+16+len-1);
      s:='Calculate CRC = ' + inttohex(newcrc,8);
      if newCRC = CRC then
        s:=s+' - CRC OK!'
      else
        s:=s+' - CRC FAIL!';
      memo.Lines.Add(s);
      // Fix CRC
      if offset=0 then
       ptr:=ptr+len
      else
       ptr:=ptr+offset;
    end;
cet algo permet le decryptage du crc de plusieurs fichiers sur lesquels je bosse en ce moment
merci encore

@+
greg38bj

salut
et merci Casy
en fait, j'avais avancé de mon côté et traduit ces lignes de code, j'étais presque arrivé au même résultat ...
Si j'ai insisté et abusé, c'est parce que ça ne marche pas du tout
je me trouve avec des depassement de capacité, des index hors du tableau etc ...
Après avoir navigué sur la toile, je me suis rendu compte que c'est un problème récurrent en vb.
j'essaye donc maintenant de contourner ces problèmes ...
Le code que je t'ai envoyé ci-dessus en deux fois est complet pour cette partie du soft.
Donc encore une fois, merci de ta patience et pour la solution apportée et désolé d'avoir abusé

@+
greg38bj

est-ce que quelqu'un serait assez sympathique pour me traduire cette expression en vb.net : var i:byte; begin listbox1.Sorted:=false; listbox1.Sorted:=true; i:=0; while i<(listbox1.Items.Count-1)-i do begin listbox1.Items.Exchange(i,(listbox1.Items.Count-1)-i); inc(i); end; end;

var i:byte; begin listbox1.Sorted:=false; listbox1.Sorted:=true; i:=0; while i<(listbox1.Items.Count-1)-i do begin listbox1.Items.Exchange(i,(listbox1.Items.Count- 1)-i); inc(i); end; end;