آموزش هك از پايه

[ADRIEN]

[ADRIEN]

[ADRIEN]

بزودی مقاله ای جدید در مورد ابزاره بک ترک (صحیحترش سیستم عامل بک ترک)
Please Wait


انشالله نحوه ی نوشتن یک برنامه جاسوسی رو هم با زبانهای مختلف خواهم گذاشت

i'm Back

[ADRIEN]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
یاهو مس ور 10 - ویندوز هشت - زبان برنامه وی بی 6

[ADRIEN]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Amir Hossein]

سلام
آشیانه , انجمن تخصصی هـک و امنیت با اون همه تالار های مختلف
خیلی ها نا امید ازش بیرون میان
بعد ما میخوایم توی یه تاپیک اینجا به مملکت هـک یاد بدیم؟
اگه پی سی ورلد میخواد قدمی تو این کار برداره حد اقل باید یه تالار جدید برای هـک باز کنه

[SNOW PATROL]

سلام
آشیانه , انجمن تخصصی هـک و امنیت با اون همه تالار های مختلف
خیلی ها نا امید ازش بیرون میان
بعد ما میخوایم توی یه تاپیک اینجا به مملکت هـک یاد بدیم؟
اگه پی سی ورلد میخواد قدمی تو این کار برداره حد اقل باید یه تالار جدید برای هـک باز کنه

داداش قبلا هم اینجا خوب بود دوستانی بودند که متاسفانه از جمع ما رفتند
به هر حال مقایسه یک انجمن تخصصی مثل اشیانه با اون ساپورت دولتی که خودتون بهتر تز من میدونید
با پی سی ورلد زیاد جالب نیست
اما کلا موافقم باید تغیرات جدی در این قسمت انجمن ایجاد بشه
اولین کار از فیلتر در اوردن کلمه حک !!!
بعد اجازه ارسال تاپیک جدید
حالا خوبه تا چند وقت پیش اصلا این قسمت حتی ناظر هم نداشت !!
اما الان دیدم که اقا مهران حضور دارند

tapatalk

[samasara]

مشکل اینه که هر کس می خواد هکری یا ضد حک رو بصورت قرصی یاد بگره ... یا این که تا می نینند آدم یک سایت رو حک کرده کلی پخ می دن که افلان سایت

دانشگاهی رو -- می کنید من بدبختم بیچارم .. من کنکور قبول نشدم ... من فلانم .. سایت فلانی رو حک کنید از این جور حرفا ..

از اون طرف هم مدیرای سایت ها که کلی باد به قبقب می دازند که سایت ما 100 درصد که نه بلکه اگر ناسا هم -- بشه سایت ما -- نمی شه ... وقتی هم

بهشون یک باگ رو می گید یا می گید استاد فلان پلاگینی که استفاده کردی باگ داره کلی بهشون برمی خوره و هی می خوان بگن که خیلی دانش بالایی دارند

و تحدید می کنند شکایت می کنند از این جور حرفا .. اخه کسی نیست بهشون بگه که آقای عزیز من اگر می خواستم به شما خسارت بزم که زده بودم ..

اما در کل با آموزش بک ترک کاملا موافقم البته بررسی کامل نه فقط ابزار هایی مثل متا اسپلویت تو غیره .. ابزار های -- بلوتوس یا کرک یا حتی نسوس ..

اما هر چی باشه خوبه فقط سیستم ها و تاکتیک های دفاعی و سناریو های دفاع و حمله رو هم برسسی بشه دیگه عالی میشه

(ببخشید یکم درد دل بود)

[ADRIEN]

سلام
به خدا راه انداختن این مبحث کار آسونی نیست
نمیدونم میشه گفت حداقل از 100 درصد 25 صدم درصد دینمو به این تایپیک ادا کرده باشم یا نه (قضاوت با شما)
اگه خدا کمک کنه میخام جبران کنم
امیدوارم ایجاد پست جدید باز شه

[ADRIEN]

میخام بکم هم در مورد مبناها بگم چون خیلی به درد بخور هستند
بدون شرح-----به زبان پاسکال By me
{Program For Convert Decimal to Binary and Binary To Decimal
If for Big value Not Working Change array and Var}
{\\\\\\\\\+++++++++++++++/////////////}
{Write By:M A J 3 3 D
Jan - 2009
I.R.IRAN}
{/////////+++++++++++++++\\\\\\\\\\\\\}

program Bin2Dec2Bin;
uses crt;
var f:array[1..80] of longint;
ch:array[1..80] of char;
b:byte;
st:char;
i,j,h,num,sum:longint;

{/////////////////////////////////////////}

function power(m,n:longint):longint;
var t,i,p,q:longint;
begin
p:=m;
q:=n;
t:=1;
for i:=1 to q do
t:=t*p;
power:=t;
end;

{/////////////////////////////}

{decimal 2 binary & Binary 2 Decimal}

procedure dec2bin;
begin
write('Plz Enter Decimal Value :');
readln(num);
i:=1;
while num > 0 do
begin
f[i]:=num mod 2;
num:=num div 2;
i:=i+1;
end;
for j:=i-1 downto 1 do
write(f[j]);
readln;
end;

{/////////////////////////////}

procedure bin2dec;
begin
writeln('Enter Binary Value :');
readln(num);
i:=1;
while num > 0 do
begin
f[i]:=num mod 10;
num:=num div 10;
i:=i+1;
end;
for j:=i-1 downto 1 do
begin
sum:=sum+(f[j]*power(2,j-1));
end;
write(sum);
readln;
end;

{///////////////////////////////////}

{Decimal 2 octa & octa 2 Decimal}

procedure dec2oct;
begin
writeln('Enter Decimal Value :');
readln(num);
i:=1;
while num > 0 do
begin
f[i]:=num mod 8;
num:=num div 8;
i:=i+1;
end;
for j:=i-1 downto 1 do
write(f[j]);
readln;
end;


procedure oct2dec;
begin
writeln('Enter Oct Value :');
readln(num);
i:=1;
while num > 0 do
begin
f[i]:=num mod 10;
num:=num div 10;
i:=i+1;
end;

for j:=i-1 downto 1 do
begin
sum:=sum+(f[j]*power(8,j-1));
end;
write(sum);
readln;
end;

{/////////////////////////////////////}

{Decimal 2 hexadecimal & hexadecimal 2 Decimal}

procedure dec2hex;
begin
writeln('Enter Decimal Value :');
readln(num);

i:=1;
while num > 0 do
begin
h:=num mod 16;
case h of
0:ch[i]:='0';
1:ch[i]:='1';
2:ch[i]:='2';
3:ch[i]:='3';
4:ch[i]:='4';
5:ch[i]:='5';
6:ch[i]:='6';
7:ch[i]:='7';
8:ch[i]:='8';
9:ch[i]:='9';
10:ch[i]:='a';
11:ch[i]:='b';
12:ch[i]:='c';
13:ch[i]:='d';
14:ch[i]:='e';
15:ch[i]:='f';
end;

num:=num div 16;
i:=i+1;
end;

for j:=i-1 downto 1 do
write(ch[j]);
readln;
end;

{////////////////////////////////}

procedure hex2dec;
var s,s1,n,r:integer;
begin
n:=0;
r:=0;
writeln('Attention: Enter Lowcase Character(a,b,c,d,e,f) & Put "." End of Line (3ca.)');
writeln('Now Enter HexaDecimal Value');

repeat {read hexa number and calculate length of it}
inc(r);
read(ch[r]);
until ch[r]='.';
dec(r); {for "." 1 value decrease on r}
n:=r;

for i:=1 to n do
begin
st:=ch[i];
case st of
'0':f[i]:=0;
'1':f[i]:=1;
'2':f[i]:=2;
'3':f[i]:=3;
'4':f[i]:=4;
'5':f[i]:=5;
'6':f[i]:=6;
'7':f[i]:=7;
'8':f[i]:=8;
'9':f[i]:=9;
'a':f[i]:=10;
'b':f[i]:=11;
'c':f[i]:=12;
'd':f[i]:=13;
'e':f[i]:=14;
'f':f[i]:=15;
end;
end;

s:=n-1;
s1:=1;

while s>-1 do
begin
sum:=sum+f[s1]*power(16,s);
s:=s-1;
s1:=s1+1;
end;

writeln(sum);
readln;
readln;
end;

procedure all;
begin
dec2bin;
dec2oct;
dec2hex;
end;

{////////////////////M A I N//////////////////////}

begin
clrscr;

writeln('1ecimal Value To Binary(example 17 > 10001)');
writeln('2:Binary Value To Decimal(example 10001 > 17)');
writeln;
writeln('3ecimal Value To Octa(example 191 > 277)');
writeln('4:Octa Value To Decimal(example 277 > 191)');
writeln;
writeln('5ecimal Value To Hex(example 200 > C8)');
writeln('6:Hex Value To Decimal(example C8 > 200)');
writeln;
writeln('7:Enter 7 For Convert Decimal Number To All');
readln(b);

case b of
1:dec2bin;
2:bin2dec;

3:dec2oct;
4:oct2dec;

5:dec2hex;
6:hex2dec;

7:all;

else

Writeln('Plz Enter Value 1 or 2');
readln;
end;

end.