PsyChaos

Son bir kaç gündür deli ötesi yoğun olduğum için blogcuğuma (ne demekse (:) yazı yazamıyordum. Bu gün az bir vakit buldum ve hemen birşeyler karalıyayım dedim..

Havalar artık iyice bunaltıcı oldu. Dün akşamdan beri yağmur yağmasına rağmen, havanın bunaltıcılığı halen devam etmekte.. Bayağı sıkılıyor insan.. Birde hiç terlemeyen ben, bu havalarda baraj gibi oluyorum.. Deli gibi ter şeyettiriyorum :)

Ama havaların kapalı olmasından ziyade açık olmasını tercih ederim. Çünkü ruhum aydınlanıyor diyebilirim :P

Bir kaç sene önce arkadaşlarla mahallede veya Yahoo'nun satranç odalarında deli gibi satranç oynuyordum. Satranç'ı çok seviyorum.. Lakin arada sıkmıyor değil. Ama her ne olursa olsun insan beynine, çok güzel jimnastik yaptırdığı gözardı edilecek birşey değil.

Bir kaç gündür yanımda çalışan iş arkadaşımla yine Yahoo'nun satranç odalarına dadandık. Boş vaktimiz oldumu dalıveriyoruz oraya. Güzel oluyor. Sizede tavsiye ederim. Arada beyninizi başka şeylerde kullanın :)

Dün, daha önce ASP ile yazmış olduğum bir fonksiyonu C# diline çevirmeye çalışıyordum. Bilindiği üzere C# dilinde veri tanımlamalar, tamamen veri tiplerine göre yapılmaktadır. Bende tam bu nokta üzerinde sorunlar yaşamaktaydım. Fonksiyonu doğru yazdığıma emin olmama rağmen saçma saçma sonuçlar üretiyordu. Sorunun Cevabını ancak bu gün bulabildim.

Soruda Bulunan Kodlar :

ASP
Public Function Encrypt(byVal Value)
Uzunluk = Len(Value) : psy = 1 : Randomize
If (Uzunluk < 5) AND (Uzunluk > 0) Then strRnd = MakeChars(5) Else strRnd = MakeChars(Uzunluk) End If
For psy = 1 To Uzunluk
RndSayi = Chr(int(8 * Rnd) + 49)
Char = Char &"-"& (Asc(Mid(Value,psy,1)) * RndSayi) & RndSayi
Next
Encrypt = "{"& Right(Char,Len(Char)-1) &"-"& strRnd &"}"
End Function

---------------------------------------

C#
private int Asc(char ch)
{
return (int)ch;
}
private char Chr(int i)
{
return Convert.ToChar(i);
}

public string Encrypt(int Value)
{
int Uzunluk = Value.ToString().Length;
int psy = 0;
string strRnd = null;
string Text = null;
char Sayi;
string Char = Value.ToString();

Random rnd = new Random();
if((Uzunluk < 5) && (Uzunluk > 0))
strRnd = MakeChars(5);
else
strRnd = MakeChars(Uzunluk);

for(;psy < Uzunluk; psy++)
{
Sayi = Chr(rnd.Next(49,57));
Text += "-"+ (Asc(Chr(Convert.ToInt32(Char.Substring(psy,1)))) * Sayi) + Sayi.ToString();
}
return "{"+ Text.Substring(1) +"-"+ strRnd +"}";
}

Ve sorunun cevabı;

Chr() ve Asc() fonksiyonlarını iptal ettim.

public string Encrypt(int Value)
{
int Uzunluk = Value.ToString().Length;
string strRnd = null, Text = null, Sayi = null;
string Char = Value.ToString();

Random rnd = new Random();
if((Uzunluk < 5) && (Uzunluk > 0))
strRnd = MakeChars(5);
else
strRnd = MakeChars(Uzunluk);

for(int psy = 0; psy < Uzunluk; psy++)
{
Sayi = Convert.ToChar(rnd.Next(49,57)).ToString();
Text += "-"+ (Encoding.ASCII.GetBytes(Char.Substring(psy,1))[0] * Convert.ToInt32(Sayi)) + Sayi;
}
return "{"+ Text.Substring(1) +"-"+ strRnd +"}";
}

Soruyu Sorduğum Yerler;
» MaxiASP.Net Forumları
» CSharpNedir? Forumları
» Ceviz.Net Forumları
» ANET news'leri (C# Bölümü)

Geçen hafta iş çıkışı, işin verdiği yorgunluğu atmak amacıyla arkadaşla bir yere içmeye gittik. Bir yandan içerken bir yandan da öğrenebilen robotlar üzerinde konuşmaya başladık. Muhabbet ilerleyen zamanlarda daha da bi hararetlendi ve bir o kadar güzel oldu. Bana bu tür sistemlerin nasıl olduğunu anlattı. Bunun içinde güzel bir örnek verdi. Bu örnek çok hoşuma gitti. Daha önce buna benzer şeyler yapıldığını biliyordum. Ama hiç içerken düşündüğüm gibi düşünmemiştim. Bunun yanında Alice diye bir chat botunun olduğunuda biliyorum. Gayet güzel birşeydi.

Lakin benim yapmaya kalkışacağım şey bir chat robotu değil. O iş yapacağım işten daha zor. Ben ilkten daha basit bir şeyle başlayacağım. Şu anda ne yapacağımı söylemeyeceğim. Projeye başladıktan sonra detayları ile burda makale makale yazacağım.