Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 21.02.2008, 22:50   #1
Новичок
 
Регистрация: 20.02.2008
Сообщений: 19
Сказал Спасибо: 0
Имеет 4 спасибок в 4 сообщенях
DeuX
По умолчанию

Так, понятно, 3 дня похерено зря >.<
Я уже дошёл до того, что поставил дельфи и ковыряю местные исходники )

За ответ большое спасибо.

Добавлено спустя 22 минуты 28 секунд:
viewtopic.php?f=6&t=135
брал отсюда.
Вот сурс
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Blowfish;

var
  a: Integer;
  b: L2Blowfish;
  key : String;
  code: String;
begin
  key:='_;5.]94-31==-%xT!^[$'+#0;
  b.Init(key, Length (key));
  code := #$54 + #$DA + #$4B + #$36 + #$1F + #$1E + #$DE + #$62;
  writeln (code);
  b.bfDecode(code[1], 8);
  writeln (code);
  writeln ('Hello World');
  read (a);
end.
что тут может быть не так?)
В дельфи я ноль, паскаль видел в последний раз больше 2 лет назад, поэтому за глупые ошибки ногами не пинать)
DeuX вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 06:36.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!