Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
Kimler Çevrimiçi |
Toplam: 2 kullanıcı aktif » 0 Kayıtlı » 2 Ziyaretçi
|
Son Aktiviteler |
Nes Emulator Oyunları PC ...
Forum: Emulator Oyunları
Son Yorum: Overniusher78
20-11-2024, 06:30
» Yorumlar: 3
» Okunma: 9,885
|
Yaptığım proje hakkında t...
Forum: C/C++
Son Yorum: kasimir
19-09-2023, 03:06
» Yorumlar: 0
» Okunma: 3,184
|
[Python] ConnectTA (Turkc...
Forum: Genel
Son Yorum: root
26-06-2023, 17:14
» Yorumlar: 0
» Okunma: 2,523
|
Db Türkçe Karakter Sorunu
Forum: Teknik Destek
Son Yorum: root
27-02-2023, 13:25
» Yorumlar: 1
» Okunma: 989
|
C# Bir Sayının Asal Olup ...
Forum: C#
Son Yorum: root
27-02-2023, 11:06
» Yorumlar: 0
» Okunma: 2,611
|
[Javascript] Javascritp i...
Forum: Javascript
Son Yorum: root
23-09-2022, 21:59
» Yorumlar: 0
» Okunma: 3,591
|
[Python] themoviedb Get F...
Forum: Genel
Son Yorum: root
31-08-2022, 14:33
» Yorumlar: 0
» Okunma: 5,136
|
[Javascript] Enter The Co...
Forum: Javascript
Son Yorum: root
16-08-2022, 14:37
» Yorumlar: 0
» Okunma: 6,279
|
[Javascript] Progress Bar...
Forum: Javascript
Son Yorum: root
13-08-2022, 11:41
» Yorumlar: 0
» Okunma: 6,345
|
[Javascript] Google Authe...
Forum: Javascript
Son Yorum: root
08-08-2022, 19:31
» Yorumlar: 0
» Okunma: 6,411
|
|
|
Delphi ile MD5 Kullanımı |
Yazar: Administrator - 19-11-2015, 19:47 - Forum: Delphi
- Yorumlar (2)
|
|
Merhaba arkadaşlar,
Geliştirdiğiniz uygulamalarda güvenlik ve doğrulama ile ilgili kısımlar varsa MD5 kullanmanız gereken durumlar olabilir.
Delphi ile MD5 nasıl kullanabiliriz?
Delphi xe* sürümleri ile md5 kullanmak için "IdHashMessageDigest" sınıfından yararlanabiliriz.
Öncelikle gerekli sınıf için ekleme yapıyoruz;
Kod: Uses IdHashMessageDigest;
Kullanım :
Kod: procedure TForm1.Button1Click(Sender: TObject);
var
md5 : TIdHashMessageDigest5;
begin
md5 := TIdHashMessageDigest5.Create;
try
ShowMessage('Girdiğiniz içeriğin MD5 Karşılığı : ' + md5.HashStringAsHex(edit1.Text));
finally
md5.Free;
end;
end;
--------------------------------------------------------------------------
Eğer, Delphi 7 gibi eski bir sürümde kullanmak isterseniz;
Kod: 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.
Üstte bulunan kodları kopyala yapıştır ile yeni bir metin belgesine yapıştırıyoruz. Adını Md5.pas yapıp kaydediyoruz.
Kaydettiğimiz dosyayı projemizin klasörüne atıyoruz ve projemizde;
Tanımlamamızdan sonra işlem tamam.
Kullanım:
Kod: procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text := MD_5(edit1.Text);
end;
|
|
|
CSS Bulanıklık Efekti |
Yazar: Administrator - 19-11-2015, 14:53 - Forum: Css
- Yorum Yok
|
|
Merhaba arkadaşlar,
Sizlerle, CSS ile bulanıklık efekti vermeye ilişkin ufak bir örnek paylaşmak istiyorum.
Bulanıklık efekti için filter: blur kullanmamız yeterli.
Kod: <style>
.bulanik{
filter: blur(4px);
-webkit-filter: blur(4px);
}
</style>
Kullanım:
Kod: <div class="bulanik" style="font-size:50px">
Turkishcode.com
</div>
Resme bulanıklık vermeyi içeren bir örnek:
Kod: <!Doctype html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>CSS Bulanıklık Efekti</title>
<style>
.bulanik{
filter: blur(4px);
-webkit-filter: blur(4px);
}
.bulanikImgKutu
{
border:1px solid #333;
width:200px;
height:75px;
padding-top:5px;
}
.bulanikImgKutu:hover img
{
filter: blur(5px);
-webkit-filter: blur(5px);
}
.bulanikImgKutu:hover > .Aciklama
{
visibility:visible;
}
.Aciklama {
position: absolute;
margin-top:20px;
margin-left:65px;
color:#0072C6;
font-weight:bold;
visibility:hidden;
z-index:999;
}
</style>
</head>
<body>
<center>
<div class="bulanik" style="font-size:50px">
Turkishcode.com
</div>
<br>
<div class="bulanikImgKutu">
<a href="http://www.turkishcode.com" class="Aciklama">TurkishCode</a>
<img src="http://turkishcode.com/tema/TCode/images/logo.png" />
</div>
</center>
</body>
</html>
|
|
|
DNS Değiştirici v1 [Tek Tuşla DNS Değiştir] |
Yazar: root - 18-11-2015, 21:11 - Forum: Ücretsiz Programlar
- Yorumlar (2)
|
|
Merhaba Arkadaşlar;
Bugün sizler için yazdığım bu ufak ama işlevsel programı paylaşmak istiyorum.
DNS ayarı denince akla ilk gelen, Türkiye'den erişime kapalı olan yasaklı sitelere girmek için yapılması gereken bağlantı ayarıdır. Nasıl yapılacağını bilen için tabide durum çok kolaydır ama bilgisayar bilgisi zayıf arkadaşlar bu ayarı yapmada zorlanmakta ve bir bilene yaptırmak zorunda kalmaktadırlar.
İşte tam da bu durumda bilenler tamam ama bilmeyenler için çok gerekli olan bu programı bilgisayarınıza indirip çalıştırmanız ve halihazırda tanımlı olan dns lerden birini uygulamanız yeterli olacaktır. Tıkla, çalıştır, değiştir kolaylığı sayesinde bilgisayar bilgisi zayıf olan arkadaşlarda zorlanmadan dns ayarı yapıp amaçlarına ulaşabilceklerdir.
Not: Programa sağ tık menüsünden yönetici olarak çalıştırmayı unutmayın.
|
|
|
C# LinkLabel'e Link Tanımlama |
Yazar: root - 18-11-2015, 17:16 - Forum: C#
- Yorum Yok
|
|
Merhaba Arkadaşlar;
C# projemize eklediğimiz linklabel'e link vermek için o nesnenin tıklanma eylemine aşağıdaki kodu ekliyoruz
Kod: private void linkLabel1_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
System.Diagnostics.Process.Start("http://www.turkishcode.com");
}
|
|
|
C# Metin Dosyasını Satır Satır Okuma |
Yazar: root - 18-11-2015, 17:11 - Forum: C#
- Yorum Yok
|
|
Merhaba Arkadaşlar;
Bu içerikte size Metin dosyasını satır satır okuma yapan, listBox veya richTextBox'a yazdırmamızı sağlayacak olan kod parçasını paylaştım.
Öncelikle gerekli kütüphanemizi tanımlıyoruz.
Sonra aşağıdaki kodu ihtiyaca göre kullanıyoruz.
Kod: StreamReader SW = new StreamReader(Application.StartupPath + "\\metin.txt");
string satir;
int say;
while ((satir = SW.ReadLine()) != null)
{
listBox.Items.Add(satir)
richTextBox.AppendText(satir + "\n");
say++;//kaç Satır var
}
SW.Close();
label1.Text = say + " Tane Listelendi";
|
|
|
C# Metin Dosyasının Son Satırına Yazı Ekleme |
Yazar: root - 18-11-2015, 16:55 - Forum: C#
- Yorum Yok
|
|
Merhaba Arkadaşlar
C# ile metin dosyasının sonuna duruma göre satır eklemek istediğimizde nasıl yapacağımıza dair kodları sizelerle paylaşmak istiyorum.
Öncelikle System.IO kütüphanemizi tanımlıyoruz.
Daha sonra aşağıdaki kodları ihtiyaca göre kullanıyoruz. İlk kod satırında metin eklenecek dosya yolunu belirtiyoruz.
2. ve 3. kod satırında eklenecek metinleri yazıyoruz.
4. kod satırında dosyayı kapatıyoruz.
Kod: StreamWriter SW = File.AppendText(Application.StartupPath + "\\dosya.txt");
SW.WriteLine("En son satıra eklendi");
SW.WriteLine("En son satıra eklendi 2");
SW.Close();
|
|
|
Css ile 3 Boyutlu (3d) Yazı |
Yazar: Administrator - 18-11-2015, 10:34 - Forum: Css
- Yorum Yok
|
|
Merhaba arkadaşlar,
Css ile 3d yazı yazmak için güzel bir stil örneği...
Kod: <style>
.UcDtext{
color: #FFF;
font: 900 100px/1 'Source Sans Pro', Arial, sans-serif;
text-align:center;
text-shadow: 0 1px 0 #ccc,
0 2px 0 #c9c9c9,
0 3px 0 #bbb,
0 4px 0 #b9b9b9,
0 5px 0 #aaa,
0 6px 1px rgba(0,0,0,.1),
0 0 5px rgba(0,0,0,.1),
0 1px 3px rgba(0,0,0,.3),
0 3px 5px rgba(0,0,0,.2),
0 5px 10px rgba(0,0,0,.25),
0 10px 10px rgba(0,0,0,.2),
0 20px 20px rgba(0,0,0,.15);
}
</style>
Kullanım:
Kod: <div class="UcDtext">
Turkishcode.com
</div>
Örnek Sayfa :
Kod: <!Doctype html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Css 3D Text</title>
<style>
.UcDtext{
color: #FFF;
font: 900 100px/1 'Source Sans Pro', Arial, sans-serif;
text-align:center;
text-shadow: 0 1px 0 #ccc,
0 2px 0 #c9c9c9,
0 3px 0 #bbb,
0 4px 0 #b9b9b9,
0 5px 0 #aaa,
0 6px 1px rgba(0,0,0,.1),
0 0 5px rgba(0,0,0,.1),
0 1px 3px rgba(0,0,0,.3),
0 3px 5px rgba(0,0,0,.2),
0 5px 10px rgba(0,0,0,.25),
0 10px 10px rgba(0,0,0,.2),
0 20px 20px rgba(0,0,0,.15);
}
</style>
</head>
<body>
<div class="UcDtext">
Turkishcode.com
</div>
</body>
</html>
|
|
|
|