ti posto qui il codice della crittografia del seriale di un programma di cui non faccio nome solo x farti un esempio. Il problema è ke è in delphi e io di delphi ne so ben poco, anke se è facilmente traducibile in vb.
codice:
function TForm1.Keygen(Username: String): String;
var
  l, r, c, q, q2: Integer;
  ch, cg2: Char;
begin
  l := length(Username);
  if l < 5 then begin
    Result := 'Your user name must have at least 5 chars!';
    Exit;
  end;

  ch := Username[l-3];
  c := 1;
  r := $40;

  while l > 0 do begin
    q := (c mod 3);
    q2 := Integer(ch) mod (c + $10);
    ch2 := Username[c];

    if(q-1 < 0) then
      r := r + ((Integer(ch2) * q2) xor $aa)
    else if(q-1 = 0) then
      r := r + ((Integer(ch2) * q2) xor $cc)
    else if(q-2 = 0) then
      r := r + ((Integer(ch2) * q2) xor $1c);

    inc(c);
    dec(l);
  end;

  while r > $2710 do
    r := r - $2710;

  q := ((r mod 9) +1) * length(Username);

  while q > $64 do
    q := q - $64;

  Result := IntToStr(q) + IntToStr(r);
end;