Primo ce code ne contient pas l'algo de bobdown :P En effet c'est l'autre unité fournie qui contient tout le code !!
Deuxio, j'te souhaite bonne chance ! convertir comme ça à l'aveuglette ça doit être chaud.
J'ai bien mieux : Moffer (l'auteur de ce prog) c'est un baleze en delphi et encore plus en vb... t'as qu'à lui demander sur notre site : www.cryptzone.fr.st, il se fera un plaisir de la traduire j'en suis sûr.
moi j'ai fait le gangkiller 3.1 ^^ Enjoy !
-------------------------------
Réponse au message :
-------------------------------
> salut
>
> moi je dis assez toi meme :
> converti avec ce tableau
> Delphi VB
> ' "
> := =
> MidStr Mid$
> instruction; instruction
> begin
> Nom: Type Nom as type
> procedure... public sub
> function function
> end end sub ou function
>
> ainsi de suite
>
> à ma connaissance il n'y a pas de convertisseur
>
> voila
>
> ShareVB
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > salut voila je voudrai convertir envb se code
> >
> >
> >
> > unit UnitFrmMain;
> >
> > interface
> >
> > uses
> > Forms, Dialogs, Menus, ToolWin, ComCtrls, Grids, StdCtrls, Controls,
> > Classes, SysUtils, StrUtils;
> >
> > type
> > TFrmMain = class(TForm)
> > OpenDialog1: TOpenDialog;
> > MainMenu1: TMainMenu;
> > Fichier1: TMenuItem;
> > Ouvrir1: TMenuItem;
> > N2: TMenuItem;
> > Quitter1: TMenuItem;
> > GroupBox1: TGroupBox;
> > Label1: TLabel;
> > Edit_Createur: TEdit;
> > Edit_Team: TEdit;
> > Edit_Site: TEdit;
> > Edit_UrlBanniere: TEdit;
> > Edit_MaxThreads: TEdit;
> > Label2: TLabel;
> > Label4: TLabel;
> > Label5: TLabel;
> > Label6: TLabel;
> > Label3: TLabel;
> > Sauverlaliste1: TMenuItem;
> > SaveDialog1: TSaveDialog;
> > Edit_NomListe: TEdit;
> > GroupBox2: TGroupBox;
> > StringGrid1: TStringGrid;
> > ToolBar1: TToolBar;
> > procedure FormCreate(Sender: TObject);
> > procedure Quitter1Click(Sender: TObject);
> > procedure Ouvrir1Click(Sender: TObject);
> > procedure proposdeUnBoB1Click(Sender: TObject);
> > procedure Sauverlaliste1Click(Sender: TObject);
> > procedure Edit_NomListeClick(Sender: TObject);
> > procedure Edit_CreateurClick(Sender: TObject);
> > procedure Edit_TeamClick(Sender: TObject);
> > procedure Edit_SiteClick(Sender: TObject);
> > procedure Edit_UrlBanniereClick(Sender: TObject);
> > procedure Edit_MaxThreadsClick(Sender: TObject);
> > private
> > { Déclarations privées }
> > public
> > { Déclarations publiques }
> > end;
> >
> > var
> > FrmMain: TFrmMain;
> >
> > procedure DispList;
> >
> > implementation
> >
> > {$R *.dfm}
> >
> > uses
> > UnitDecode;
> >
> > procedure DispList;
> > var
> > I, J, K: Cardinal;
> > RecNum, NextByte, TotLine: Cardinal;
> > begin
> > I := Cardinal(StrToInt(CmdBuf[2]));
> > with FrmMain do
> > begin
> > Edit_NomListe.Text := CmdBuf[1];
> > Edit_Createur.Text := CmdBuf[I + 3];
> > Edit_Site.Text := CmdBuf[I + 4];
> > Edit_UrlBanniere.Text := CmdBuf[I + 5];
> > Edit_Team.Text := CmdBuf[I + 6];
> > Edit_MaxThreads.Text := CmdBuf[I + 7];
> > end;
> > TotLine := StrToInt(CmdBuf[2]);
> > with FrmMain.StringGrid1 do
> > begin
> > RowCount := TotLine + 1;
> > for I := 0 to TotLine - 1 do
> > begin
> > K := Length(CmdBuf[I + 3]);
> > RecNum := 0;
> > NextByte := 1;
> > for J := 1 to K do
> > begin
> > if CmdBuf[I + 3][J] = SEPCHAR then
> > begin
> > Cells[RecNum, I + 1] := MidStr(CmdBuf[I + 3], NextByte, J - NextByte);
> > Inc(RecNum);
> > NextByte := J + 1;
> > end
> > else if J = K then
> > Cells[RecNum, I + 1] := RightStr(CmdBuf[I + 3], K - NextByte + 1);
> > end;
> > end;
> > end;
> > end;
> >
> > function SaveList(TxtFile: String): Boolean;
> > var
> > FileIndex: array of String;
> > Buf: String;
> > wFile: TextFile;
> > I, J, K: Cardinal;
> > RecNum, NextByte, TotLine: Cardinal;
> > begin
> > I := Cardinal(StrToInt(CmdBuf[2]));
> > try
> > AssignFile(wFile,TxtFile);
> > Rewrite(wFile);
> > TotLine := StrToInt(CmdBuf[2]);
> > for I := 0 to TotLine - 1 do
> > begin
> > FileIndex := nil;
> > K := Length(CmdBuf[I + 3]);
> > RecNum := 0;
> > NextByte := 1;
> > for J := 1 to K do
> > begin
> > if CmdBuf[I + 3][J] = SEPCHAR then
> > begin
> > Inc(RecNum);
> > SetLength(FileIndex, RecNum);
> > FileIndex[RecNum - 1] := MidStr(CmdBuf[I + 3], NextByte, J - NextByte);
> > NextByte := J + 1;
> > end
> > else if J = K then
> > begin
> > Inc(RecNum);
> > SetLength(FileIndex, RecNum);
> > FileIndex[RecNum - 1] := RightStr(CmdBuf[I + 3], K - NextByte + 1);
> > end;
> > end;
> > if StrToInt(FileIndex[5]) = -1 then
> > Buf := Format('http://%s:%s@%s%s%s',
> > [FileIndex[3], FileIndex[4], FileIndex[1], FileIndex[2], FileIndex[0]])
> > else
> > Buf := Format('ftp://%s:%s@%s:%s%s%s',
> > [FileIndex[3], FileIndex[4], FileIndex[1], FileIndex[5], FileIndex[2], FileIndex[0]]);
> > Writeln(wFile, Buf);
> > end;
> > CloseFile(wFile);
> > except
> > Result := false;
> > Exit;
> > end;
> > Result := true;
> > end;
> >
> > function SaveHtmlList(TxtFile: String): Boolean;
> > var
> > FileIndex: array of String;
> > Buf: String;
> > wFile: TextFile;
> > I, J, K: Cardinal;
> > RecNum, NextByte, TotLine: Cardinal;
> > begin
> > I := Cardinal(StrToInt(CmdBuf[2]));
> > try
> > AssignFile(wFile,TxtFile);
> > Rewrite(wFile);
> > Writeln(wFile, '<html>');
> > Writeln(wFile, '<head>');
> > Writeln(wFile, Format('<title>%s</title>', [CmdBuf[1]]));
> > Writeln(wFile, '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
> > Writeln(wFile, '<style type="text/css">');
> > Writeln(wFile, 'a:link {');
> > Writeln(wFile, TABCHAR + 'color: #0000FF;');
> > Writeln(wFile, TABCHAR + 'text-decoration: none;');
> > Writeln(wFile, '}');
> > Writeln(wFile, 'a:visited {');
> > Writeln(wFile, TABCHAR + 'color: #0000FF;');
> > Writeln(wFile, TABCHAR + 'text-decoration: none;');
> > Writeln(wFile, '}');
> > Writeln(wFile, 'a:hover {');
> > Writeln(wFile, TABCHAR + 'color: #0000FF;');
> > Writeln(wFile, TABCHAR + 'text-decoration: underline;');
> > Writeln(wFile, '}');
> > Writeln(wFile, '.texte {');
> > Writeln(wFile, TABCHAR + 'font-family: Verdana, Arial, Helvetica, sans-serif;');
> > Writeln(wFile, TABCHAR + 'font-size: 80%;');
> > Writeln(wFile, '}');
> > Writeln(wFile, '.titre {');
> > Writeln(wFile, TABCHAR + 'font-family: Verdana, Arial, Helvetica, sans-serif;');
> > Writeln(wFile, TABCHAR + 'font-size: 140%;');
> > Writeln(wFile, TABCHAR + 'font-weight: bold;');
> > Writeln(wFile, TABCHAR + 'color: #000080;');
> > Writeln(wFile, '}');
> > Writeln(wFile, '</style>');
> > Writeln(wFile, '</head>');
> > Writeln(wFile, '');
> > Writeln(wFile, '<body>');
> > Writeln(wFile, Format('<p><span class="titre">%s</span>', [_APPNAME]));
> > Writeln(wFile, '<hr>');
> > Writeln(wFile, '</p>');
> > Writeln(wFile, '<blockquote>');
> > Writeln(wFile, '<table border="0" cellpadding="0" cellspacing="0" class="texte">');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Version</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [_VERSION]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Auteur</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [_AUTHOR]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Contact</td>');
> > Writeln(wFile, Format(' <td><a href="mailto:%s">%s</a></td>', [_CONTACT, _CONTACT]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Date</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [FormatDateTime('dd/mm/yy', Now)]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Heure</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [FormatDateTime('hh:mm:ss', Now)]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, '</table>');
> > Writeln(wFile, '</blockquote>');
> > Writeln(wFile, '<p> </p>');
> > Writeln(wFile, '<p><span class="titre">Propriétés</span>');
> > Writeln(wFile, '<hr>');
> > Writeln(wFile, '</p>');
> > Writeln(wFile, '<blockquote>');
> > Writeln(wFile, '<table border="0" cellpadding="0" cellspacing="0" class="texte">');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Nom de la liste</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [CmdBuf[1]]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Créateur</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [CmdBuf[I + 3]]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Site</td>');
> > if not (CmdBuf[I + 4] = NOSTR) then
> > Writeln(wFile, Format(' <td><a href="%s">%s</a></td>', [CmdBuf[I + 4], CmdBuf[I + 4]]))
> > else
> > Writeln(wFile, Format(' <td>%s</td>', [NOSTR]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Url Bannière</td>');
> > if not (CmdBuf[I + 5] = NOSTR) then
> > Writeln(wFile, Format(' <td><a href="%s">%s</a></td>', [CmdBuf[I + 5], CmdBuf[I + 5]]))
> > else
> > Writeln(wFile, Format(' <td>%s</td>', [NOSTR]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">Team</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [CmdBuf[I + 6]]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, ' <tr>');
> > Writeln(wFile, ' <td width="150">MaxThreads</td>');
> > Writeln(wFile, Format(' <td>%s</td>', [CmdBuf[I + 7]]));
> > Writeln(wFile, ' </tr>');
> > Writeln(wFile, '</table>');
> > Writeln(wFile, '</blockquote>');
> > Writeln(wFile, '<p> </p>');
> > Writeln(wFile, '<p><span class="titre">Liste</span>');
> > Writeln(wFile, '<hr>');
> > Writeln(wFile, '</p>');
> > Writeln(wFile, '<blockquote>');
> > Writeln(wFile, '<table border="0" cellpadding="0" cellspacing="0" class="texte">');
> > Writeln(wFile, ' <tr bgcolor="#CCCCCC">');
> > Writeln(wFile, ' <td>Fichier</td>');
> > Writeln(wFile, ' <td>Serveur</td>');
> > Writeln(wFile, ' <td>Répertoire</td>');
> > Writeln(wFile, ' <td>User</td>');
> > Writeln(wFile, ' <td>Pass</td>');
> > Writeln(wFile, ' <td>Port</td>');
> > Writeln(wFile, ' <td>Taille</td>');
> > Writeln(wFile, ' <td>Destination</td>');
> > Writeln(wFile, ' </tr>');
> > TotLine := StrToInt(CmdBuf[2]);
> > for I := 0 to TotLine - 1 do
> > begin
> > FileIndex := nil;
> > K := Length(CmdBuf[I + 3]);
> > RecNum := 0;
> > NextByte := 1;
> > for J := 1 to K do
> > begin
> > if CmdBuf[I + 3][J] = SEPCHAR then
> > begin
> > Inc(RecNum);
> > SetLength(FileIndex, RecNum);
> > FileIndex[RecNum - 1] := MidStr(CmdBuf[I + 3], NextByte, J - NextByte);
> > NextByte := J + 1;
> > end
> > else if J = K then
> > begin
> > Inc(RecNum);
> > SetLength(FileIndex, RecNum);
> > FileIndex[RecNum - 1] := RightStr(CmdBuf[I + 3], K - NextByte + 1);
> > end;
> > end;
> > if StrToInt(FileIndex[5]) = -1 then
> > Buf := Format('http://%s:%s@%s%s%s',
> > [FileIndex[3], FileIndex[4], FileIndex[1], FileIndex[2], FileIndex[0]])
> > else
> > Buf := Format('ftp://%s:%s@%s:%s%s%s',
> > [FileIndex[3], FileIndex[4], FileIndex[1], FileIndex[5], FileIndex[2], FileIndex[0]]);
> > if I mod 2 = 0 then
> > Writeln(wFile, ' <tr>')
> > else
> > Writeln(wFile, ' <tr bgcolor="#DDDDDD">');
> > Writeln(wFile, Format(' <td nowrap><a href="%s">%s</a> </td>', [Buf, FileIndex[0]]));
> > Writeln(wFile, Format(' <td nowrap>%s </td>', [FileIndex[1]]));
> > Writeln(wFile, Format(' <td nowrap>%s </td>', [FileIndex[2]]));
> > Writeln(wFile, Format(' <td nowrap>%s </td>', [FileIndex[3]]));
> > Writeln(wFile, Format(' <td nowrap>%s </td>', [FileIndex[4]]));
> > Writeln(wFile, Format(' <td nowrap>%s </td>', [FileIndex[5]]));
> > Writeln(wFile, Format(' <td nowrap><div align="right">%s Ko </div></td>', [FormatCurr('#,##0', StrToInt(FileIndex[6]) div 1024)]));
> > Writeln(wFile, Format(' <td nowrap>%s </td>', [FileIndex[7]]));
> > Writeln(wFile, ' </tr>');
> > end;
> > Writeln(wFile, '</table>');
> > Writeln(wFile, '</blockquote>');
> > Writeln(wFile, '</body>');
> > Writeln(wFile, '</html>');
> > CloseFile(wFile);
> > except
> > Result := False;
> > Exit;
> > end;
> > Result := True;
> > end;
> >
> > procedure TFrmMain.FormCreate(Sender: TObject);
> > begin
> > Left := (Screen.Width - Width) div 2;
> > Top := (Screen.Height - Height) div 2;
> > with StringGrid1 do
> > begin
> > ColWidths[0] := 200;
> > ColWidths[1] := 100;
> > ColWidths[2] := 200;
> > ColWidths[3] := 80;
> > ColWidths[4] := 80;
> > ColWidths[5] := 60;
> > ColWidths[6] := 80;
> > ColWidths[7] := 200;
> > Cells[0, 0] := 'Fichier';
> > Cells[1, 0] := 'Serveur';
> > Cells[2, 0] := 'Répertoire';
> > Cells[3, 0] := 'User';
> > Cells[4, 0] := 'Pass';
> > Cells[5, 0] := 'Port';
> > Cells[6, 0] := 'Taille';
> > Cells[7, 0] := 'Destination';
> > end;
> > frmMain.Caption := Format('%s v%s', [_APPNAME, _VERSION]);
> > end;
> >
> > procedure TFrmMain.Quitter1Click(Sender: TObject);
> > begin
> > Application.Terminate;
> > end;
> >
> > procedure TFrmMain.Ouvrir1Click(Sender: TObject);
> > begin
> > with OpenDialog1 do
> > begin
> > DefaultExt := '*.bob';
> > Filter := 'Fichier Bobdown (*.bob)|*.BOB';
> > InitialDir := GetCurrentDir;
> > Options := [ofFileMustExist];
> > if Execute then
> > begin
> > if not DecodeFile(FileName) then
> > begin
> > MessageDlg(
> > 'Erreur de lecture !' + CRLFCHAR +
> > FileName, mtError, [mbOk], 0);
> > Exit;
> > end;
> > Caption := Format('%s - %s v%s', [ExtractFileName(FileName), _APPNAME, _VERSION]);
> > MainMenu1.Items[0].Items[1].Enabled := True;
> > end;
> > end;
> > end;
> >
> > procedure TFrmMain.proposdeUnBoB1Click(Sender: TObject);
> > begin
> > MessageDlg(Format(
> > '%s v%s développé par %s' + CRLFCHAR +
> > 'Contact web: %s' + CRLFCHAR + CRLFCHAR +
> > 'Code source dispo sur http://www.delphifr.com/'
> > , [_APPNAME, _VERSION, _AUTHOR, _CONTACT]), mtInformation, [mbOk], 0);
> > end;
> >
> > procedure TFrmMain.Sauverlaliste1Click(Sender: TObject);
> > const
> > FILE_EXT: array[1..4] of String = ('.html', '.htm', '.txt', '.lst');
> > var
> > Buf, FileExt: String;
> > Exec: Boolean;
> > begin
> > with SaveDialog1 do
> > begin
> > DefaultExt := #42 + FILE_EXT[1];
> > Buf := ExtractFileName(OpenDialog1.FileName);
> > FileName := LeftStr(Buf, Length(Buf) - Length(ExtractFileExt(Buf)));
> > Filter :=
> > 'Fichier HTML (*.html;*.htm)|*.html;*.htm|' +
> > 'Fichier Texte (*.txt)|*.txt|' +
> > 'Fichier Liste (*.lst)|*.lst';
> > InitialDir := ExtractFilePath(OpenDialog1.FileName);
> > Options := [ofOverwritePrompt, ofExtensionDifferent];
> > if Execute then
> > begin
> > FileExt := ExtractFileExt(FileName);
> > if (FileExt = FILE_EXT[1]) or (FileExt = FILE_EXT[2]) then
> > Exec := SaveHtmlList(FileName)
> > else if (FileExt = FILE_EXT[3]) or (FileExt = FILE_EXT[4]) then
> > Exec := SaveList(FileName)
> > else
> > Exit;
> > if not Exec then
> > MessageDlg(
> > 'Erreur d'#39'écriture !' + CRLFCHAR +
> > FileName, mtError, [mbOk], 0);
> > end;
> > end;
> > end;
> >
> > procedure TFrmMain.Edit_NomListeClick(Sender: TObject);
> > begin
> > Edit_NomListe.SelectAll;
> > end;
> >
> > procedure TFrmMain.Edit_CreateurClick(Sender: TObject);
> > begin
> > Edit_Createur.SelectAll;
> > end;
> >
> > procedure TFrmMain.Edit_TeamClick(Sender: TObject);
> > begin
> > Edit_Team.SelectAll;
> > end;
> >
> > procedure TFrmMain.Edit_SiteClick(Sender: TObject);
> > begin
> > Edit_Site.SelectAll
> > end;
> >
> > procedure TFrmMain.Edit_UrlBanniereClick(Sender: TObject);
> > begin
> > Edit_UrlBanniere.SelectAll;
> > end;
> >
> > procedure TFrmMain.Edit_MaxThreadsClick(Sender: TObject);
> > begin
> > Edit_MaxThreads.SelectAll;
> > end;
> >
> > end.
> >
> >
> >
> >
> >
> >
> >
> > si s'est possible merci d'avance a tous
> >
>