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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 14.09.2015, 23:36   #11
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

Цитата:
Сообщение от ScythLab Посмотреть сообщение
Даю подсказку: это прога была написана на Delphi с Ansi строками, я так думаю, ты сейчас используешь более свежую версию Делфей с Unicode строками. Как исправишь эту часть, тогда уже нужно будет думать о сервере и его защите.
Цитата:
Сообщение от controller Посмотреть сообщение
Делфи 7...
Не в этом дело.

Пусть controller наконецто попробует залогиниться на другому сервер.
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
Yegor вне форума   Ответить с цитированием
Старый 15.09.2015, 10:24   #12
Местный
 
Аватар для ScythLab
 
Регистрация: 24.10.2014
Сообщений: 190
Сказал Спасибо: 4
Имеет 42 спасибок в 40 сообщенях
ScythLab пока неопределено
По умолчанию

Да, мой косяк: не увидел упоминание седьмой делфи.
ТС, слушай дяденьку Yegor, он плохого не посоветует
__________________
Хобби: разработка бота для Lineage.
ScythLab вне форума   Ответить с цитированием
Старый 15.09.2015, 21:43   #13
Пользователь
 
Регистрация: 29.09.2010
Сообщений: 34
Сказал Спасибо: 18
Имеет 1 спасибку в 1 сообщении
controller пока неопределено
По умолчанию

я слушаю, и говорил что пробывал. Но вы видимо не увидели, что у меня при попытке зайти на сервер, а именно при вызове RequestAuthLogin, вылетает ошибка, и указывает на строку
While (temp1[1] = '0') And (temp1 <> '0') Do delete(temp1, 1, 1);
в коде

Procedure Base256StringToFGInt
(str256 : String; Var FGInt : TFGInt);
Var
temp1 : String; i : longint;
trans : Array[0..255] Of String;
Begin
temp1 := '';
initialize8(trans);
For i := 1 To length(str256) Do temp1 := temp1 + trans[ord(str256[i])]
; While (temp1[1] = '0') And (temp1 <> '0') Do delete(temp1, 1, 1); Base2StringToFGInt(temp1, FGInt);
End;
И в итоге результат нулевой.
controller вне форума   Ответить с цитированием
Старый 16.09.2015, 12:38   #14
Местный
 
Аватар для ScythLab
 
Регистрация: 24.10.2014
Сообщений: 190
Сказал Спасибо: 4
Имеет 42 спасибок в 40 сообщенях
ScythLab пока неопределено
По умолчанию

Ты просил пример? Тебе его дали, примеры нужны для того чтобы их изучать и пытаться в них разобраться. Ты же пример пытаешься использовать как рабочий механизм, который должен работать в твоих условиях и на твоем сервере.
Хочешь учиться? Читай статьи, ищи инфу по FGInt, по RSA, читай статьи по пакетам ла2 (благо их в 2006-2009 года написали в избытке, в том числе ссылки на пару статей приведены на нашем сайте).

От тебя всего-то требовалось понять, что функция Base256StringToFGInt вызывается из функции RSAEncrypt, по названию можно понять, что RSAEncrypt шифрует данные по алгоритму RSA, если бы ты посмотрел код, то понял, что шифрация идет с помощью библиотеки FGInt (в том числе с помощью функции Base256StringToFGInt), если шифрация не срабатывает, то скорей всего неверные данные на вход функции RSAEncrypt, с которыми и нужно разбираться.
И даже если для тебя шифрация слишком сложна и разбираться c ней впадлу (тема действительно не самая тривиальная для начинающего и чрезмерно амбициозного программиста), то можно было бы задаться одним простым вопросом: зачем отправлять RequestAuthLogin если тебе даже не пришел пакет GGAuth и дисконнект происходит после твоего пакета RequestGGAuth? Статьи TechnoWiz@rd и KyberPrizrak по очередности обмена данных клиент-сервера ла2, я надеюсь, ты читал?
__________________
Хобби: разработка бота для Lineage.
ScythLab вне форума   Ответить с цитированием
Старый 16.09.2015, 13:52   #15
Пользователь
 
Регистрация: 29.09.2010
Сообщений: 34
Сказал Спасибо: 18
Имеет 1 спасибку в 1 сообщении
controller пока неопределено
По умолчанию

очередность обмена пакетами я читал в текcтовом файле LOGIN RCF из примера la2_emu_client
controller вне форума   Ответить с цитированием
Старый 16.09.2015, 14:46   #16
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

Цитата:
Сообщение от controller Посмотреть сообщение
а именно при вызове RequestAuthLogin, вылетает ошибка, и указывает на строку
While (temp1[1] = '0') And (temp1 <> '0') Do delete(temp1, 1, 1);
в коде
Епрст. Уже пытаюсь вторую страницу разглядеть. Так какая именно ошибка? Что пишет? Exception вылетает? CheckRangeError? Что именно?
__________________
Продажа чистых аккаунтов 4G, L2 EU, AARu, AA EU, Aion EU, Tera RU, Tera EU (ICQ 594297609)
Продажа VK авторег аккаунтов (ICQ 594297609)
Yegor вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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