Saturday, August 18, 2007

play3w nedir (hack)

play3w nedir? torrent aleminde aXXo nickli elemanın dünyayı hackleme planıdır. arkadaş azmedip basit bir player yazmış torrentden çekdiğiniz axxo nickli avilerde ortaya çıkıo. playon.play3w.com a gidip player ı indiriosunuz kullanıyorsunuz hesapta basit player bir trojan herkez öyle dio en azından ben kullanmam öle bilmediğim şeyi neyse. bu durum deli edio neden çünkü güzel güzel izleyecekken pat diye bir uyarı çıkıo hadi onu çek bunu kur nedir bu ayıp...
neyse nasıl hacklenir konusunun cevabı
http://forum.mininova.org/index.php?showtopic=234994521

de yatıyor. kısaca aşşağıdaki kodu pl uzantılı bir dosyaya kaydedin ve "perl dosya.pl in.avi out.avi" komutunu çalıştırıp kurtulun. perl için activstate buradan alın.

# Turn of output buffer
$|++;

# The key for XOR decryption
my $key = 'UIERYQWORTWEHLKDNKDBISGLZNCBZCVNBADFIEYLJ' . chr(0);

print "Reading from \"$ARGV[0]\":\n";
$insize = -s $ARGV[0];
# Open the bogus AVI file
open(IN, $ARGV[0]) or die $!;
binmode IN;

# Read Header to check
read(IN, $buffer, 4);
if ($buffer ne 'RIFF') {
print " ERROR: \"$ARGV[0]\" is not an AVI\n";
close IN;
exit(1);
}
# Get Length of the unencrypted movie
read(IN, $buffer, 4);
$offset = unpack 'L', $buffer;
print " End of the unencrypted movie is at byte offset $offset\n";

# Jump to the read offset
seek(IN, $offset, 0);

# The next 4 or 8 Bytes seem to be either an unsinged long
# or an unsigned quad. This is another offset to jump
# over some filler bytes. Right now I can't really tell if
# it's 4 or 8 bytes, because I only have 1 file to test with.
# I assume it's a quad.

# low word
read(IN, $buffer, 4);
$offlo = unpack 'L', $buffer;
# high word
read(IN, $buffer, 4);
$offhi = unpack 'L', $buffer;
# Calculate offset
$offset = $offhi * 4294967296 + $offlo;

print " Offset after the unencrypted movie is $offset\n";
seek(IN, $offset, 0);

# Then there seem to be another 100 filler bytes
# with value 0xff. Jump over those too, to get
# to the offset where the real movie starts.
printf " Adding extra filler bytes, final offset is %s\n", $offset+100;
seek(IN, 100, 1);

# Update the size
$insize -= $offset+100;

# Open a file for writing the decrypted data to
print "Decrypting to \"$ARGV[1]\":\n";
open(OUT, ">$ARGV[1]");
binmode OUT;
truncate OUT, 0;

$bytes = 0;
$klen = length($key);
# Read key length bytes, decrypt them and
# write them to the output file untill you reach
# the end of the file
while ( read(IN, $buffer, $klen) ) {
$buffer ^= $key;
print OUT $buffer;
$bytes += $klen;
# print the status
printf "\r %d written (% .1f %%)", $bytes, ($bytes / $insize * 100);
}
# Close both files
close OUT;
close IN;
print "\n\nDONE!\n";

4 comments:

Unknown said...

haklısın verdiğin kodları denicem.
teşekkür ederim

Onur Ünlü said...

dostum eline koluna sağlık çok sağolda abi biz bu kodlardan ne anlarız sen bize şunu bakkal hesabı bi sölesen ya en basit ve kısa sürede nasıl yaparız .bende böle indiripte izleyemedğim 2 tane film var ya :( ..Yinede sağol .

ozzy said...

http://play3w.googlepages.com/3wplayer.zip bunu indir içinden çıkan exe nin ilk kutuya izleyemediğin aviyi ver ikinciyede c:\out.avi yaz start hack de. o temizliyip c ye gerekeni bırakır çıkan dosyayı izleyebilirsin c:\out.avi de olucaktır.

daha da detaylı anlatım için
burdaki commentleri oku.

Onur Ünlü said...

usta aynen yaptım dediklerini amma velakin yine 3 saniyelik dom player yükle de izle yazısı çıktı :) .Bendeki filmin orjnalide bu hrld :) . yinede çok saol . :)

odd string diff

 https://leetcode.com/problems/odd-string-difference/ Beats 19.92% of users with Java   class Solution { public String oddString ( S...