Вернуться   Биткоин Форум > - Помощь начинающим
28 октября 2011, 11:00:25 PM   # 1
 
 
Сообщения: 2
Цитировать по имени
цитировать ответ
по умолчанию Re: Помощь в разработке DELPHI / паскаль Bitcoin-клиент

Взлом Биткоин адресов.
500 Биткоинов взломаны в "мозговом кошельке" с паролем "bitcoin is awesome"
Адрес кошелька: 14NWDXkQwcGN1Pd9fboL8npVynD5SfyJAE
Приватный ключ: 5J64pq77XjeacCezwmAr2V1s7snvvJkuAz8sENxw7xCkikceV6e
подробнее...


Всем кто хочет заработать Биткоины без вложений - рекомендую сайт http://bitcoin-zarabotat.ru
Всем привет,

Я зарегистрировался, чтобы попытаться поговорить о паскаль Bitcoin developnent.

Мне нужна помощь, чтобы попытаться начать разработку библиотеки, которая будет использоваться в Bitcoin паскаль клиента.

Если вы можете помочь, пожалуйста.

Начиная с базовым классом:

  TBase58 = класс (TObject)
  общественности
    Функция НаборСимволов: WideString; // действительные символы
    Функция кодирования: WideString; // закодировать текст в базу 58
    Функция декодирования: WideString; // декодирования текста из базы 58
    Свойство Text: WideString чтения FText написать FText; // текст должен быть закодирован декодируется
  конец;
Delphi753 сейчас офлайн Пожаловаться на Delphi753   Ответить с цитированием Мультицитирование сообщения от Delphi753 Быстрый ответ на сообщение Delphi753


Как заработать Биткоины?
Без вложений. Не майнинг.


28 октября 2011, 11:16:52 PM   # 2
 
 
Сообщения: 2
Цитировать по имени
цитировать ответ
по умолчанию Re: Помощь в разработке DELPHI / паскаль Bitcoin-клиент

Получил 1806 Биткоинов
Реальная история.





преобразуется из кода PHP.

Функция НаборСимволов: WideString;
начать
  Результат: = '123456789abcdefghijkmnopqrstuvwxyzABCDEFGHJKLMNPQRSTUVWXYZ';
конец;

Функция TBase58.Encode: WideString;
вар
  Adiv: Extended;
  Anum, AMOD: Int64;
начать
  Результат: = '';

  Anum: = StrToInt64 (текст);
  в то время как (Anum >= Count) делать
  начать
    Adiv: = Anum / Count;
    AMOD: = Trunc (Anum - (Count * Int (Adiv)));
    Результат: = НаборСимволы [Succ (AMOD)] + Результат;
    Anum: = Trunc (Int (Adiv));
  конец;

  если (Anum > 0), то
    Результат: = НаборСимволы [Succ (Anum)] + Результат;
конец;

Delphi753 сейчас офлайн Пожаловаться на Delphi753   Ответить с цитированием Мультицитирование сообщения от Delphi753 Быстрый ответ на сообщение Delphi753

27 марта 2012, 2:20:35 PM   # 3
 
 
Сообщений: 67
Цитировать по имени
цитировать ответ
по умолчанию Re: Помощь в разработке DELPHI / паскаль Bitcoin-клиент

Есть ли у вас какие-либо прогресс в Delphi клиента?
Дарка сейчас офлайн Пожаловаться на Darka   Ответить с цитированием Мультицитирование сообщения от Дарка Быстрый ответ на сообщение Darka

27 марта 2012, 6:50:19 PM   # 4
 
 
Сообщения: 210
Цитировать по имени
цитировать ответ
по умолчанию Re: Помощь в разработке DELPHI / паскаль Bitcoin-клиент

* Поет вслух * Клиент Ada, BASIC код pointerless и кросс-компиляции почему?(1)

Заметки:
(1) Линия должна быть спета на мелодию системы Вниз / I-Е-А-I-A-I-O  
jake262144 сейчас офлайн Пожаловаться на jake262144   Ответить с цитированием Мультицитирование сообщения от jake262144 Быстрый ответ на сообщение jake262144

27 марта 2012, 6:55:44 PM   # 5
 
 
Сообщений: 13
Цитировать по имени
цитировать ответ
по умолчанию Re: Помощь в разработке DELPHI / паскаль Bitcoin-клиент

Как отличается от того, в настоящее время?
z3rohour сейчас офлайн Пожаловаться на z3rohour   Ответить с цитированием Мультицитирование сообщения от z3rohour Быстрый ответ на сообщение z3rohour

27 марта 2012, 7:03:12 PM   # 6
 
 
Сообщения: 1260
Цитировать по имени
цитировать ответ
по умолчанию Re: Помощь в разработке DELPHI / паскаль Bitcoin-клиент

Инаба сейчас офлайн Пожаловаться на Инаба   Ответить с цитированием Мультицитирование сообщения от Инаба Быстрый ответ на сообщение Инаба



Как заработать Биткоины?

Bitcoin Wallet * Portefeuille Bitcoin * Monedero Bitcoin * Carteira Bitcoin * Portafoglio Bitcoin * Bitcoin Cüzdan * 比特币钱包

bitcoin-zarabotat.ru
Почта для связи: bitcoin-zarabotat.ru@yandex.ru

3HmAQ9FkRFk6HZGuwExYxL62y7C1B9MwPW