Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Java программирование > Общие вопросы по Java, Java SE, Kotlin
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.04.2011, 15:33   #1
zzxx
Новичок
Джуниор
 
Регистрация: 26.04.2011
Сообщений: 1
По умолчанию Java -> Delphi

Хочу перевести данный код с java на delphi
но как-то в java не силен, подскажите кто может
что тут да как!

Код:
                              public static void doHandshake(String s1)
129	                           {
130	                               boolean flag = false;
131	                               String as[] = { "MNfw9809", "90981qFS", "412.Fdq.", "..13fS4.", "41!!vs%&" };
132	                               StringTokenizer stringtokenizer = new StringTokenizer(s1 + "#", "#");
133	                               BitSet bitset = new BitSet(64);
134	 
135	                                  for(int i1 = 0; i1 < 5; i1++)
136	                                  {
137	                                      BitSet bitset1 = a(as[i1].toCharArray());
138	                                      int j1 = Integer.parseInt(stringtokenizer.nextToken());
139	 
140	                                    for(int l1 = 0; l1 < j1; l1++)
141	                                      bitset1 = a(bitset1);
142	                                      bitset.xor(bitset1);
143	                                  }
144	                                   char ac[] = a(bitset, 8);
145	 
146	                                    for(int k1 = 0; k1 < 8; k1++)
147	                                       if(ac[k1] == 0 || ac[k1] == '\n' || ac[k1] == '\r')
148	                                       ac[k1] = (char)(ac[k1] | 0x80);
149	                                 try
150	                                 {
151	                                         out.writeBytes("~b#" + 13 + "#");
152	                                      for(int i2 = 0; i2 < ac.length; i2++)
153	                                        out.write((byte)(ac[i2] & 0xff));
154	                                        out.writeBytes("\n");
155	                                        out.flush();
156	                                   return;
157	                                  }
158	                                    catch(Exception exception)
159	                                    {
160	                                      System.out.print("ERROR: HandShake Exception: ");
161	                                      exception.printStackTrace();
162	                                      return;
163	                                    }
164	                         }
zzxx вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод программы с delphi на Java zlobagi Фриланс 1 15.05.2010 17:54
Программа на Delphi/C++/Java Ryuu Фриланс 11 23.02.2010 13:20
Java в Delphi? Olzhik Помощь студентам 3 04.03.2009 13:30
перевести код с delphi на java. Neymexa Фриланс 1 21.11.2008 16:07
java в delphi? steck Общие вопросы Delphi 2 03.04.2007 01:24