| Вопрос: Перевод из Delphi. | Добавлено: 06.03.06 13:06 |
Автор вопроса:  psinetron | ICQ: 218945948 |
|
юди, помогите пожалуйста перевести этот код в VB
program blablabla;
uses Windows, SysUtils; const b64alphabet2: PChar = '+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; ///////// Примочки, задействующие алгоритм дешифровки ///////////////// function DecodeBaseTB(Value: String): String; ////////// вспомог. //////// function DecodeChunk(const Chunk: String): String; var W: LongWord; i: Byte; begin try W := 0; Result := ''; for i := 1 to 4 do if Pos(Chunk[i], b64alphabet2) <> 0 then W := W + Word((Pos(Chunk[i], b64alphabet2) - 1)) shl ((4 - i) * 6); for i := 1 to 3 do Result := Result + Chr(W shr ((3 - i) * 8) and $ff); except end; end; end. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 07.03.06 01:59 |
www.vbkiev.ua смотри тама готовые алгоритмы 
|
||
Страница: 1 |