Programlama yapalım ve Öğrenelim.

neoturk: Forum - "md5 ile şifreleme"

var

i: integer;

str1, str2: string;

begin

IdCoderMD51.Reset;

IdCoderMD51.AutoCompleteInput := True;

str1 := IdCoderMD51.CodeString('merhaba');

str2 := '';

for i := 0 to Length(str1) do

begin

str2 := str2 + LowerCase(IntToHex(BYTE(str1[i]), 2));

end;

showmessage('merhaba metninin şifrelenmiş hali = '+str1+' dir.');

showmessage('ve md5 metninin hex karşılığı da = '+str2+' dir.');

end;

*************************

md5 kullanımı yöntem-2

*************************

//alıntıdır

unit MD5;

interface

type

Dizi= Array of integer;

function MD_5(str: string): string;

implementation

function rhex(num: integer): string;

var

str,hex_chr: string;

j: integer;

begin

hex_chr:='0123456789abcdef';

str:=";

for j:=0 to 3 do

str:=str+hex_chr[((num shr (j*8+4)) and $F)+1]+hex_chr[((num shr (j*8)) and $F)+1];

Result:=str;

end;

function str2blks_MD5(str: string): Dizi;

var

nblk: integer;

blks: Dizi;

i: integer;

begin

nblk:=((length(str)+8) shr 6)+1;

SetLength(blks,nblk*16);

for i:=0 to nblk*16-1 do blks[i]:=0;

for i:=0 to length(str)-1 do

blks[i shr 2]:=blks[i shr 2] or ((ord(str[i+1]) shl ((i mod 4)*8)));

blks[i shr 2]:=blks[i shr 2] or ($80 shl ((i mod 4)*8));

blks[nblk*16-2]:=length(str)*8;

Result:=blks;

end;

function add(x,y: integer): integer;

var

lsw,msw: integer;

begin

lsw:=(x and $FFFF)+(y and $FFFF);

msw:=(x shr 16)+(y shr 16)+(lsw shr 16);

Result:=(msw shl 16) or (lsw and $FFFF);

end;

function rol(num,cnt: integer): integer;

begin

Result:=(num shl cnt) or (num shr (32 - cnt));

end;

function cmn(q, a, b, x, s, t: integer): integer;

begin

Result:= add(rol(add(add(a, q), add(x, t)), s), b);

end;

function ff(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn((b and c) or ((not b) and d), a, b, x, s, t);

end;

function gg(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn((b and d) or (c and (not d)), a, b, x, s, t);

end;

function hh(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn(b xor c xor d, a, b, x, s, t);

end;

function ii(a, b, c, d, x, s, t: integer): integer;

Begin

Result:= cmn(c xor (b or (not d)), a, b, x, s, t);

end;

function MD_5(str: string): string;

var

x: dizi;

a,b,c,d,olda,oldb,oldc,oldd: integer;

i: integer;

begin

x:= str2blks_MD5(str);

a:= 1732584193;

b:= -271733879;

c:= -1732584194;

d:= 271733878;

i:=0;

while i<length(x) do

begin

olda := a;

oldb := b;

oldc := c;

oldd := d;

a := ff(a, b, c, d, x[i+ 0], 7 , -680876936);

d := ff(d, a, b, c, x[i+ 1], 12, -389564586);

c := ff(c, d, a, b, x[i+ 2], 17, 606105819);

b := ff(b, c, d, a, x[i+ 3], 22, -1044525330);

a := ff(a, b, c, d, x[i+ 4], 7 , -176418897);

d := ff(d, a, b, c, x[i+ 5], 12, 1200080426);

c := ff(c, d, a, b, x[i+ 6], 17, -1473231341);

b := ff(b, c, d, a, x[i+ 7], 22, -45705983);

a := ff(a, b, c, d, x[i+ 8], 7 , 1770035416);

d := ff(d, a, b, c, x[i+ 9], 12, -1958414417);

c := ff(c, d, a, b, x[i+10], 17, -42063);

b := ff(b, c, d, a, x[i+11], 22, -1990404162);

a := ff(a, b, c, d, x[i+12], 7 , 1804603682);

d := ff(d, a, b, c, x[i+13], 12, -40341101);

c := ff(c, d, a, b, x[i+14], 17, -1502002290);

b := ff(b, c, d, a, x[i+15], 22, 1236535329);

a := gg(a, b, c, d, x[i+ 1], 5 , -165796510);

d := gg(d, a, b, c, x[i+ 6], 9 , -1069501632);

c := gg(c, d, a, b, x[i+11], 14, 643717713);

b := gg(b, c, d, a, x[i+ 0], 20, -373897302);

a := gg(a, b, c, d, x[i+ 5], 5 , -701558691);

d := gg(d, a, b, c, x[i+10], 9 , 38016083);

c := gg(c, d, a, b, x[i+15], 14, -660478335);

b := gg(b, c, d, a, x[i+ 4], 20, -405537848);

a := gg(a, b, c, d, x[i+ 9], 5 , 568446438);

d := gg(d, a, b, c, x[i+14], 9 , -1019803690);

c := gg(c, d, a, b, x[i+ 3], 14, -187363961);

b := gg(b, c, d, a, x[i+ 8], 20, 1163531501);

a := gg(a, b, c, d, x[i+13], 5 , -1444681467);

d := gg(d, a, b, c, x[i+ 2], 9 , -51403784);

c := gg(c, d, a, b, x[i+ 7], 14, 1735328473);

b := gg(b, c, d, a, x[i+12], 20, -1926607734);

a := hh(a, b, c, d, x[i+ 5], 4 , -378558);

d := hh(d, a, b, c, x[i+ 8], 11, -2022574463);

c := hh(c, d, a, b, x[i+11], 16, 1839030562);

b := hh(b, c, d, a, x[i+14], 23, -35309556);

a := hh(a, b, c, d, x[i+ 1], 4 , -1530992060);

d := hh(d, a, b, c, x[i+ 4], 11, 1272893353);

c := hh(c, d, a, b, x[i+ 7], 16, -155497632);

b := hh(b, c, d, a, x[i+10], 23, -1094730640);

a := hh(a, b, c, d, x[i+13], 4 , 681279174);

d := hh(d, a, b, c, x[i+ 0], 11, -358537222);

c := hh(c, d, a, b, x[i+ 3], 16, -722521979);

b := hh(b, c, d, a, x[i+ 6], 23, 76029189);

a := hh(a, b, c, d, x[i+ 9], 4 , -640364487);

d := hh(d, a, b, c, x[i+12], 11, -421815835);

c := hh(c, d, a, b, x[i+15], 16, 530742520);

b := hh(b, c, d, a, x[i+ 2], 23, -995338651);

a := ii(a, b, c, d, x[i+ 0], 6 , -198630844);

d := ii(d, a, b, c, x[i+ 7], 10, 1126891415);

c := ii(c, d, a, b, x[i+14], 15, -1416354905);

b := ii(b, c, d, a, x[i+ 5], 21, -57434055);

a := ii(a, b, c, d, x[i+12], 6 , 1700485571);

d := ii(d, a, b, c, x[i+ 3], 10, -1894986606);

c := ii(c, d, a, b, x[i+10], 15, -1051523);

b := ii(b, c, d, a, x[i+ 1], 21, -2054922799);

a := ii(a, b, c, d, x[i+ 8], 6 , 1873313359);

d := ii(d, a, b, c, x[i+15], 10, -30611744);

c := ii(c, d, a, b, x[i+ 6], 15, -1560198380);

b := ii(b, c, d, a, x[i+13], 21, 1309151649);

a := ii(a, b, c, d, x[i+ 4], 6 , -145523070);

d := ii(d, a, b, c, x[i+11], 10, -1120210379);

c := ii(c, d, a, b, x[i+ 2], 15, 718787259);

b := ii(b, c, d, a, x[i+ 9], 21, -343485551);

a := add(a, olda);

b := add(b, oldb);

c := add(c, oldc);

d := add(d, oldd);

inc(i,16);

end;

Result:= rhex(a) + rhex(b) + rhex(c) + rhex(d);

end;

end.

//kullanımı

showmessage('merhaba şifrelenmiş hali ='+MD_5('merhaba'));

umarım yardımcı olmuşumdur...

kolay gelsin...

neoturk: Forum- "edit üzerinde rastgele sayı üreten fonksiyon"

cevaplarsanız sevinirim Bugün 14:26

bir edit üzerinde 5000 milsaniyede rastgele sayı üreten kod lar

nelerdir acaba nasıl yapabilirim

greenplover

cevap:

güzel bir soru...

aşağıdaki şekilde teorik olarak kodu yazıyorum,

muhtemelen çalışmasını bekliyorum.....

function rastgeleuret(uzunluk: Integer): string;

var

str: string;

begin

Randomize;

str := '0123456789';

Result := '';

repeat

Result := Result + str[Random(Length(str)) + 1];

until (Length(Result) = uzunluk)

end;

//kullanımı

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(rastgeleuret(20));// 20 haneli sayısal şifre

end;

karışık harflerden şifre üretmek istiyorsan,

str:= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

şeklinde değiştirebilirsin. ( türkçe karakterleri eklemedim )

her ikisi de olsun diyorsan,

str:= '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

şeklinde değiştirebilirsin.

biraz daha düzenlersek:

function rastgeleuret(uzunluk: Integer;tur:byte): string;

var

str: string;

begin

Randomize;

//tur 1 ise sadece rakamlar olsun

//tur 2 ise sadece harfler olsun

//tur 3 ise karışık olsun

case tur of

1:str:= '0123456789';

2:str:= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

3:str:= '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

end;

Result := '';

repeat

Result := Result + str[Random(Length(str)) + 1];

until (Length(Result) = uzunluk)

end;

//kullanımı

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(rastgeleuret(20,1));// 20 haneli sayısal şifre

showmessage(rastgeleuret(10,2));// 10 haneli string şifre

showmessage(rastgeleuret(30,3));// 30 haneli karışık şifre

end;

milisaniye ayarını da sen yaparsın artık. ( timer nesnesi ile )

umarım faydamız olmuştur..........

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................

neoturk: Forum- "edit üzerinde rastgele sayı üreten fonksiyon"

cevaplarsanız sevinirim Bugün 14:26

bir edit üzerinde 5000 milsaniyede rastgele sayı üreten kod lar

nelerdir acaba nasıl yapabilirim

greenplover

cevap:

güzel bir soru...

aşağıdaki şekilde teorik olarak kodu yazıyorum,

muhtemelen çalışmasını bekliyorum.....

function rastgeleuret(uzunluk: Integer): string;

var

str: string;

begin

Randomize;

str := '0123456789';

Result := '';

repeat

Result := Result + str[Random(Length(str)) + 1];

until (Length(Result) = uzunluk)

end;

//kullanımı

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(rastgeleuret(20));// 20 haneli sayısal şifre

end;

karışık harflerden şifre üretmek istiyorsan,

str:= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

şeklinde değiştirebilirsin. ( türkçe karakterleri eklemedim )

her ikisi de olsun diyorsan,

str:= '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

şeklinde değiştirebilirsin.

biraz daha düzenlersek:

function rastgeleuret(uzunluk: Integer;tur:byte): string;

var

str: string;

begin

Randomize;

//tur 1 ise sadece rakamlar olsun

//tur 2 ise sadece harfler olsun

//tur 3 ise karışık olsun

case tur of

1:str:= '0123456789';

2:str:= 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

3:str:= '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';

end;

Result := '';

repeat

Result := Result + str[Random(Length(str)) + 1];

until (Length(Result) = uzunluk)

end;

//kullanımı

procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage(rastgeleuret(20,1));// 20 haneli sayısal şifre

showmessage(rastgeleuret(10,2));// 10 haneli string şifre

showmessage(rastgeleuret(30,3));// 30 haneli karışık şifre

end;

milisaniye ayarını da sen yaparsın artık. ( timer nesnesi ile )

umarım faydamız olmuştur..........

neoturk: Forum - "internet bağlantısının olup olmadığını hangi nesne ile anlarız "

internetin olup olmadığının anlaşılması? Bugün 13:54

program içerisinde internetin olup olmadığının hengi nesne

ile nasıl anlarız?

kolay gelsin...

xmx

cevap:

**********************

yöntem 1:

**********************

local internet nesnelerini kullanarak var olan IP

numaranı öğrenebilirsin.

örneğin,

( form üzerine bu nesnelerden istediğin 1 tanesini yerleştir )

nmstrm komponentleri içinde bulunan FTP nesnesini kullanarak,

( delphi 6 )

showmessage('IP adresim = '+nmftp1.LocalIP);

indy komponentleri içinde bulunan IPwatch nesnesini kullanarak,

( delphi 6 - delphi 7 )

showmessage('IP adresim = '+idipwatch1.LocalIP);

**********************

yöntem 2:

**********************

kodlama ile IP numarasını veya Bağlantı metodunu öğrenebilirsin.

//bağlantı türünü verir

{************** get connection kind *********************}

//uses wininet

function Get_ConnectionKind(sender:Tobject;var strKind: string): Boolean;

const

MODEM = 1;

LAN = 2;

PROXY = 4;

BUSY = 8;

var

flags: DWORD;

begin

strKind := '';

Result := InternetGetConnectedState(@flags, 0);

if Result then

begin

if (flags and MODEM) = MODEM then strKind := 'Modem';

if (flags and LAN) = LAN then strKind := 'LAN';

if (flags and PROXY) = PROXY then strKind := 'Proxy';

if (flags and BUSY) = BUSY then strKind := 'Modem Busy';

end;

{

//kullanımı

procedure TForm1.Button1Click(Sender: TObject);

var

strKind: string;

begin

if GetConnectionKind(strKind) then

ShowMessage(strKind);

end;

}

//pc nin local IP sini verir

{***************** detect host ip ***********************}

//uses winsock

function DetectHostIP(sender:Tobject;var IP: string): Boolean;

var

wsdata : TWSAData;

hostName : array [0..255] of char;

hostEnt : PHostEnt;

addr : PChar;

begin

WSAStartup ($0101, wsdata);

try

gethostname (hostName, sizeof (hostName));

hostEnt := gethostbyname (hostName);

if Assigned (hostEnt) then

if Assigned (hostEnt^.h_addr_list) then begin

addr := hostEnt^.h_addr_list^;

if Assigned (addr) then begin

IP := Format ('%d.%d.%d.%d', [byte (addr [0]),

byte (addr [1]), byte (addr [2]), byte (addr [3])]);

Result := True;

end

else

Result := False;

end

else

Result := False

else begin

Result := False;

end;

finally

WSACleanup;

end

end;

{

//kullanımı

var userip:string;

begin

detecthostip(userip);

showmessage(userip);

end;

}

benim tavsiyem, kodlama ile yapman...

seçim senindir...

bunları gereken şekilde kullanarak pc nin internete bağlı olup

olmadığını öğrenebilirsin...

**********************

not:

**********************

her IP numarasının olması ( 127.0.0.1 den farklı olan ),

o pc nin internete bağlı olduğu anlamına gelmez....

internete bağlı olmayan, fakat network içerisinde olan pc lerin de,

ip numaraları mevcuttur...

aynı zamanda, local IP sonucunda yanılgıya düşmemek için,

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then

ShowMessage('pc networke bağlıdır') else

ShowMessage('pc networke bağlı değildir');

kod bloğunu da kontrol amaçlı kullanabilirsiniz...

sonuç olarak şöyle bir mantık elde edebiliriz,

if (myip<>'127.0.0.1') and (networke_bağlı_değilsen) and (bağlantı_türün_modem_ise) then

showmessage('internete bağlıdır');

( local bir pc için ve network yok ise kesin çözüm olarak görüyorum )

if (networke_bağlı_isen) and (bağlantı_türün_modemden_farklı_ise) then

showmessage('internete bağlıdır');

( networke bağlı olan bir pc, ana pcden dolayı internete çıkış yapabilir )

genel bilgi olarak:

192.168.*.* şeklindeki IP numaraları network client pc lerinde geçerlidir.

gereken düzenekleri kendinize göre kurgulayabilirsiniz...

kolay gelsin...

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................

neoturk: Forum - "internet bağlantısının olup olmadığını hangi nesne ile anlarız "

internetin olup olmadığının anlaşılması? Bugün 13:54

program içerisinde internetin olup olmadığının hengi nesne

ile nasıl anlarız?

kolay gelsin...

xmx

cevap:

**********************

yöntem 1:

**********************

local internet nesnelerini kullanarak var olan IP

numaranı öğrenebilirsin.

örneğin,

( form üzerine bu nesnelerden istediğin 1 tanesini yerleştir )

nmstrm komponentleri içinde bulunan FTP nesnesini kullanarak,

( delphi 6 )

showmessage('IP adresim = '+nmftp1.LocalIP);

indy komponentleri içinde bulunan IPwatch nesnesini kullanarak,

( delphi 6 - delphi 7 )

showmessage('IP adresim = '+idipwatch1.LocalIP);

**********************

yöntem 2:

**********************

kodlama ile IP numarasını veya Bağlantı metodunu öğrenebilirsin.

//bağlantı türünü verir

{************** get connection kind *********************}

//uses wininet

function Get_ConnectionKind(sender:Tobject;var strKind: string): Boolean;

const

MODEM = 1;

LAN = 2;

PROXY = 4;

BUSY = 8;

var

flags: DWORD;

begin

strKind := '';

Result := InternetGetConnectedState(@flags, 0);

if Result then

begin

if (flags and MODEM) = MODEM then strKind := 'Modem';

if (flags and LAN) = LAN then strKind := 'LAN';

if (flags and PROXY) = PROXY then strKind := 'Proxy';

if (flags and BUSY) = BUSY then strKind := 'Modem Busy';

end;

{

//kullanımı

procedure TForm1.Button1Click(Sender: TObject);

var

strKind: string;

begin

if GetConnectionKind(strKind) then

ShowMessage(strKind);

end;

}

//pc nin local IP sini verir

{***************** detect host ip ***********************}

//uses winsock

function DetectHostIP(sender:Tobject;var IP: string): Boolean;

var

wsdata : TWSAData;

hostName : array [0..255] of char;

hostEnt : PHostEnt;

addr : PChar;

begin

WSAStartup ($0101, wsdata);

try

gethostname (hostName, sizeof (hostName));

hostEnt := gethostbyname (hostName);

if Assigned (hostEnt) then

if Assigned (hostEnt^.h_addr_list) then begin

addr := hostEnt^.h_addr_list^;

if Assigned (addr) then begin

IP := Format ('%d.%d.%d.%d', [byte (addr [0]),

byte (addr [1]), byte (addr [2]), byte (addr [3])]);

Result := True;

end

else

Result := False;

end

else

Result := False

else begin

Result := False;

end;

finally

WSACleanup;

end

end;

{

//kullanımı

var userip:string;

begin

detecthostip(userip);

showmessage(userip);

end;

}

benim tavsiyem, kodlama ile yapman...

seçim senindir...

bunları gereken şekilde kullanarak pc nin internete bağlı olup

olmadığını öğrenebilirsin...

**********************

not:

**********************

her IP numarasının olması ( 127.0.0.1 den farklı olan ),

o pc nin internete bağlı olduğu anlamına gelmez....

internete bağlı olmayan, fakat network içerisinde olan pc lerin de,

ip numaraları mevcuttur...

aynı zamanda, local IP sonucunda yanılgıya düşmemek için,

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then

ShowMessage('pc networke bağlıdır') else

ShowMessage('pc networke bağlı değildir');

kod bloğunu da kontrol amaçlı kullanabilirsiniz...

sonuç olarak şöyle bir mantık elde edebiliriz,

if (myip<>'127.0.0.1') and (networke_bağlı_değilsen) and (bağlantı_türün_modem_ise) then

showmessage('internete bağlıdır');

( local bir pc için ve network yok ise kesin çözüm olarak görüyorum )

if (networke_bağlı_isen) and (bağlantı_türün_modemden_farklı_ise) then

showmessage('internete bağlıdır');

( networke bağlı olan bir pc, ana pcden dolayı internete çıkış yapabilir )

genel bilgi olarak:

192.168.*.* şeklindeki IP numaraları network client pc lerinde geçerlidir.

gereken düzenekleri kendinize göre kurgulayabilirsiniz...

kolay gelsin...

saygılarımla_

neoturk [ xxnt03@lycos.co.uk ]

Delphi - .....................................