Autoit Fileread .exeyi String Olarak Okumuyor?

[luger]

İyi günler tüm forum halkına,

Bu benim forumdaki ilk mesajım. :)

 

Arkadaşlar bu sıralar autoit üzerinde çalışıyorum. 

 

Aşağıdaki kodlar .exe dosyasını okumak için yazıldı. FileRead fonksiyonu dosyayı string olarak

okumalı. Ama tamamını okumuyor. Yada başka bir yerde sorun var . $string değişkenine sadece "mz" ifadesini atıyor.

Ben daha dosyanın geri kalanını görmeyi başaramadım FileRead'le :)

#include <File.au3>
#include <String.au3>

$dosya=FileOpen("oku.exe", $FO_READ )
$string=FileRead($dosya)

MsgBox(0, "a", $string)

Kullandığım kodlar yukarıda. Çıkan sonuç aşağıdaki gibi.

 

Ama görmem gereken yaklaşık aşağıdaki resimdeki gibi olmalıydı diye biliyorum :)

Ve elbette daha fazlası...

 

Arkadaşlar bu durum için ne diyorsunuz? Nasıl elde edebilirim FileRead'le veriyi string olarak. Gerçekten elde edilen veri nereye gidiyor. Ben göremiyorum :)

 

Kullandığım dosya:http://tr.rghost.net/52173713

Edited February 3, 2014 by luger

[blackman12]

FileOpen($sFilePath,16) olarak kullan.

[luger]

@blackman12: Yardımınız için çok teşekkür ederim.

Sizin verdiğiniz durumda dosyayı binary olarak okuyorum. Ama string olarak lazım olduğundan durum aşağıdaki gibi oluyor gene.. :(

#include <File.au3>
#include <String.au3>

$dosya=FileOpen("oku.exe", 16)
$string=FileRead($dosya)
MsgBox(0, "1", BinaryToString($string, 1))
MsgBox(0, "2", BinaryToString($string, 4)) 

Ayrıca Autoit versiyonum : 3.3.10.2

Edited February 3, 2014 by luger

[blackman12]

sen napıcanı söyle istersen o exeyi okutup çünkü binary ile de istediğin işlemi yapabilirsin.

[luger]

#include <File.au3>
#include <String.au3>

$dosya=FileOpen("oku.exe", 16)
$dosya_oku=FileRead($dosya)
$string=BinaryToString($dosya_oku, 4)

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", "site_adi". False)

$oHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=---------------------------31972514120")
$oHTTP.SetRequestHeader("User-Agent", "...")
$oHTTP.SetRequestHeader("Pragma", "no-cache")

$dosya_adi='"oku.exe"'
$veri="-----------------------------31972514120" & @CRLF & _
'Content-Disposition: form-data; name="file"; filename='& $dosya_adi & @CRLF & _
'Content-Type: application/x-msdownload' &@CRLF&@CRLF& _
$string & @CRLF & _
"-----------------------------31972514120" & @CRLF & _
'Content-Disposition: form-data; name="apikey"' & @CRLF & @CRLF & _
"" & @CRLF & _
"-----------------------------31972514120--" & @CRLF

$oHTTP.Send($veri) 

@blackman12: Yukarıda işlemi yapmak istiyorum hocam. Binary veya hex'le okutamam çünkü gidecek veri string olmalı. Diğer durumlarda giden_veri.lenght uzunluğu ve veri yapısı değişir ve gönderilen dosya o şekilde olmamalı :)

 

Ayrıca Autoit'le ilgili çoğu bilgiyi Autoit'in kendi help dosyasından öğrendim.

Edited February 4, 2014 by luger

[blackman12]

Sen dosya upload mu yapıcaksın? dosyayı nereye göndermeye çalışıyorsun böyle?

[radyofon]

FileReadLine dener misin?

 

Ya da;

 

$file = FileOpen("oku.exe",0)

$FileContent = FileRead($file)
MsgBox(0, "Content:", $FileContent)

FileClose($file)

Edited February 4, 2014 by radyofon

[luger]

@blackman12: Evet hocam dosya upload yapıcaktım. Oraya "site_adi" şeklinde yazdım. :) Ad vermek istesem verirdim :)

Ama sorum dosyayı string olarak okumak olduğundan dolayı verdiğim bilgilerin yeterli olduğunu düşünüyorum. :)

 

@radyofon:

Durum 1: FileReadLine denemesi

 

FileReadline'de tek tek satır okuyor gibi. Ama satırları birbirine eklemede veriyi yine elde göremiyorum. Ayrıca string satır okuma olursa asıl satır ayırması @LF durumuna göre olmalı. Diğer durumlar işe yaramıyor. Ama satırları bir tek değişkende görüp tutabilirsem @LF ayrımını kendim de yapabilirim. :)

#include <File.au3>
#include <String.au3>

$dosya=FileOpen("oku.exe", 0)

Local $k, $ekle, $ekle_sira
   For $k=1 To  _FileCountLines("oku.exe")
	  $ekle_sira= FileReadLine($dosya, $k)
	  $ekle&= FileReadLine($dosya, $k)
      MsgBox(0, $k, $ekle_sira)
	  MsgBox(0, $k, $ekle)
   Next

 

Durum 2: Aşağıdaki dediğin konu başındaki yazımla aynı. ( 0=$FO_READ ) :)

$file = FileOpen("oku.exe", 0)  ;$FO_READ (0) = Read mode (default)(konu başındaki işleme eşit)

$FileContent = FileRead($file)
MsgBox(0, "Content:", $FileContent)

FileClose($file)

 

Ayrıca Teşekkür ederim herkese yardımları için.. 

Edited February 4, 2014 by luger

[blackman12]

Tahminimce senin çözümün burda:

 

http://www.autoitscript.com/forum/topic/147257-upload-file-by-winhttp/

[luger]

@blackman12: Hocam ben bu kodlarla ilk upload yapan kişi olarak tarihe geçmek istiyordum. :) Winhttp'de kodları şimdi tekrar yazmam gerekecek ve sanırım verdiğiniz linkte konunun başında "FileRead($FileHandle)" fonksiyonu değişken içerisinde kullanılmış.Yani hata vericek. Ve bunun gibi bir sürü başka hatalar var gibi. (Bi de "Binary($sData)" yapılıyor gönderirken)  :) Tek çare winhttp diyormusunuz hocam? :D

Edited February 4, 2014 by luger

[blackman12]

Daha önce denemedim dosya upload etmeyi API desteği veren site açıklamasını da yapar hangi formatta yollaman gerektiğine dair diye düşünüyorum. Ayrıca msgbox ile deneyerek filereadin başarılı mı başarısız mı olduğuna bakmak yerine aldığın değeri yeni bir dosyaya yazdır ve uzantısını exe yapıp çalıştırmayı dene. Daha mantıklı olur ayrıca @extended ile okuduğu byte ı da console a yazdırırsan bu da bi sağlama yapmana yarar.

[luger]

@blackman12: Api desteği için örnek vermiş. Ama Python dilinde. Bizde simülite etmeye çalışıyoruz. :D

 

Durum yukarıdaki gibi. Yazdırmada sorun çıkmadı. Çalıştırmada çalıştı. Ama nasıl Msgbox'ta string veriyi göremiyorsam veriyi göndermedede giden veriyi göremiyorum.  Veriyi görebilmem ve elle tutabilmem çok önemli :) ben görmeyince programda görmüyor. :D

$open = FileOpen("oku.exe", 16)
$size = FileGetSize ("oku.exe")
$string = FileRead ("oku.exe", $size)
ConsoleWrite(@extended)
FileWrite("Test.txt", $string)

;Test.txt'den .exe'ye dönüştürüldü.
$open2 = FileOpen("Test.exe", 16)
$size2 = FileGetSize ("Test.exe")
$string2 = FileRead ("Test.exe", $size2)
ConsoleWrite(@CR&@extended&@cr)

Veri giderken olması gereken:

Yukarıda ilk 4 no hariç geri kalan @LF ile olmaktadır.

 

Gerçekte olan : :D

Edited February 4, 2014 by luger

[MostWanted]

pyhton örneğini gösterir misin?String orda bitme sebeplerinden biri olarak null karaktere gelmiş olabilir autoit sorunudur muhtemelen.

Edited February 4, 2014 by MostWanted

[luger]

@MostWanted: Örnek aşağıdaki gibi. Ama kod farklı gelebilir. Açıkçası python kodlarını hiç bilmiyorum. :)

import postfile
host = "site_adi"
sec = "yükleme_linki"
fields = [("apikey", "ca978112ca1bbdcafac231b39a23dc4da786eff8147c4e72b9807785afee48bb")]
dosya_to_send = open("test.txt", "rb").read()
dosya = [("file", "test.txt", dosya_to_send)]
sonuc = postfile.post_multipart(host, sec, fields, dosya)
print sonuc

Edited February 4, 2014 by luger

[MostWanted]

Bu iş blackman'in yazdığı gibi winhttp ile çözülecek zaten pyhton kodunda da post metodu (postfile.py nin içinde stackoverflowda gördüm.) kullanılmış ama exenin okurken neden bi kesilmeye uğruyor onu anlayamadım.Belki buraya koyarsan ( özel değilse ) inceleme yapabilirim.

[luger]

@MostWanted: Neyi buraya koymalıyım. Anlıyamadım :) Ayrıca winhttp'de de dosyayı okuyup string olarak elde tutamamaktan korkuyorum :D

Edited February 4, 2014 by luger

[MostWanted]

Okumaya çalıştığın exe'yi.

[luger]

@MostWanted: Hocam konum tam. :) En başta işi sağlam tutup linkini vermiştim. Exe konumun başında. :)

Edited February 4, 2014 by luger

[blackman12]

Okumaya çalıştığı exeyi yukarıda koymuş canım ama örnekte verilen "rb" modundaki r read, b ise binary demek yani fileopen ı 16 parametresiyle kullanacaksın sana söylediğim gibi.

 

Edit:

 

Yani buranın autoit karşılığı

 

dosya_to_send = open("test.txt", "rb").read()

 

$a = FileOpen("test.txt",16)

$dosya_to_send = FileRead($a)

FileClose($a)

 

dır.

 

Edit 2:

 

Phyton File Open için Mode açıklamaları kısa ve öz:

https://www.inkling.com/read/learning-python-mark-lutz-4th/chapter-36/using-text-and-binary-files

[luger]

@blackman12: Dosyayı binary olarak açtım ve gönderdim. Gönderim şekli aşağıdaki gibi.   :)

$dosya=FileOpen($adres, 16) 
$string=FileRead($dosya)

 

Olması gereken(Biliyorsunuz :D) :

Edited February 4, 2014 by luger

[blackman12]

iyi de verdiğin phyton örneğindeki veri bu şekilde.

• sonuc = postfile.post_multipart(host, sec, fields, dosya)

bu satırdaki fonksiyonun içeriğini incele derim.

 

Şu an resmen farazi olarak konuşuyoruz hangi upload sitesi bilmiyoruz, ne yapmaya çalışıyoruz bilmiyoruz upload sitesini bilsek belki daha kısayolunu biliyorumdur :D

 

ilgili fonksiyona da baktım ben bu arada:

 

https://github.com/gialloporpora/ViRusTotalCL/blob/master/postfile.py

 

bence şu an içerikle ilgili ufak bir sorunun var. upload etmeye çalıştığın siteyi buraya yaz, deneyerek çözebilelim.

 

Mesela verdiğin resimde APIKey gorunmuyor, bu sebepten upload olmuyor olabilir.

[luger]

@blackman12: 

MostWanted arkadaşımızın isteği üzerine python api kodlarını verdim. O api kodlarının gerçekte nasıl çalıştığını hiç bilmiyorum ve denemedim. Python dilini de bilmiyorum :) Kodlara aldanmamak lazım :D

 

Ben tam olarak o kodlara göre similüte yapmıyorum. Bu işi yapan sitenin yazdığı kendi programı var. Ben ordan similüte yapıyordum :D

 

İlla hocam site adı diye tutturdunuz.  Site: Virüs Total Api'sidir. Şu anda kendimi tarihi bişey açıklıyorum gibi hissediyorum. :D

 

Öğrenmek için çok uğraştınız be hocam. Ne çektiniz be.. :D

----------------------------------------------------------------------------------------------------------------------------------

Ayrıca aşağıdaki koda dikkat ederseniz "apikey" / $string değişkeninden sonra yer alıyor

$dosya_adi='"oku.exe"'
$veri="-----------------------------31972514120" & @CRLF & _
'Content-Disposition: form-data; name="file"; filename='& $dosya_adi & @CRLF & _
'Content-Type: application/x-msdownload' &@CRLF&@CRLF& _
$string & @CRLF & _
"-----------------------------31972514120" & @CRLF & _
'Content-Disposition: form-data; name="apikey"' & @CRLF & @CRLF & _
"" & @CRLF & _
"-----------------------------31972514120--" & @CRLF

Edited February 5, 2014 by luger

[luger]

Okunan String verinin ConsoleWrite ile yazılmaya çalışılması sonucu: :D

 

Durum: Başarısız :D

#include <String.au3>
#include <File.au3>

$open = FileOpen("oku.exe", $FO_READ)
$size = FileGetSize ("oku.exe")
$string = FileRead ("oku.exe", $size)
ConsoleWrite(@CR&$string)

String olarak şu veriyi bir elde göremedik gitti.  :fkyeah:   <_<  :D

Edited February 5, 2014 by luger

[luger]

Elde edilen son hal:

 

Kaç saattir uğraşıyorum. Ancak yukarıdaki hale getirebildim. Orjinal olması gereken ise aşağıdaki gibi. Hayır o değilde aşağıdaki dosyaya gönderme aşamasında başına ne gelmiş olabilir ki bir türlü o hale sokamadık. :D Yolda kaza mı geçirdi ne oldu :D :D :D

Gerçi kusura bakmayın yukardaki daha fazla kaza geçirmiş gibi duruyor ama. :D :D

 

Orjinal hal :

Edited February 5, 2014 by luger

[luger]

Evet. Artık bu konuyu bir sonuca bağlamalıyız. Öyle inanıyorum ki "$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")" durumunda veri göndermede string olarak bir sonuca varamıyacaz. Autoit hex olarak "00" ı, char olarak "0" ı süzüyor böylelikle msgbox'ta veya consolewrite'de bişey görmüyoruz.(Ayrıca $oHTTP.Send($veri) ifadesindede süzme gerçekleşiyor ki maşallah süzmediği yer yok :D ) Ben ilk başlarda durumun okuyamamaktan veya string içerisinde tutumamaktan kaynaklandığını düşünüyordum. Artık düşüncem değişti. Veri hem string olarak okunuyor hem de değişkende tutuluyor. Bunun ispatı ise elde edilen verinin  "Filewrite" ile yazılması. Benim gibi illa veriyi görmek istiyorum diyorsanız aşağıda yapılmış örneğini veriyorum.

#include <File.au3>
#include <String.au3>

$dosya=FileOpen("oku.exe", 0)
$string=FileRead($dosya)

$string=StringReplace($string, Chr(0), chr(1), 0)
MsgBox(0, "", $string)

Ayrıca @MostWanted arkadaşıma teşekkür ederim. Bu işin içeriğinden o bana bahsetti.

 

Evet yeni maceralara akmak gerek. Winhttp'ye geçiyoruz. :D

Edited February 5, 2014 by luger