ascx dosyası mevcut ise yardımcı olabilirim ayrıca bir arkadaşın yazdığı örnek asp kodu paylaşıyorum inceleyebilirsin

<%
Dim Yasin

Yasin = "Yasin Gökdere" 'Kullanicinin Girdigi Deger

KacHaneli = Len(Yasin) 'Girilen Degerin Kaç Haneden Olustugunu Aliyoruz

For KacinciHarf = 1 to KacHaneli 'For Döngüsüyle Degerin Her Harfinin Ascii Karsilini Aliyoruz
BirinciDeger = Mid(Yasin,KacinciHarf,1) ' Burda Girilen Degerlerin Sirasiyla Karakterlerini Aliyoruz
Deger = CStr(BirinciDeger) 'Aldigimiz Degeri Stringe Dönüstürüyoruz, Ascii Karsiligini Alabilmek Için
Deger = Asc(Deger) ' Burda Sirasiyla Girilen Her Karakter Str Dönüsümünden Sonra Ascii ye Çevriliyor.
Deger = Cstr(Deger) ' Burdada Ascisi Alinan Degeri Tekrar String e Dönüstürüyoruz
TopDeger = TopDeger + Deger 'Sira Geldi Alinan Degerleri Sirasiyla Ascii Karsiliklarini Birlestirmeye.
Response.write(TopDeger) ' Burda Deneme Amaçli Her Birlestirme Sonucunda Çikan Degeri Ekrana Yazdiriyoruz.

Response.write("
") ' Burda Bir Alr Satira Geçmek Için bi br atiyoruz.




Next ' Üstteki For döngüsünün Son Buldugu Yer
Response.write("
") ' Burda Bir Alr Satira Geçmek Için bi br atiyoruz.
Response.write("
") ' Burda Bir Alr Satira Geçmek Için bi br atiyoruz.


Yasin2 = TopDeger ' Kullanicidan Aldigimiz Degeri Karakter Karakter Ascii Olarak Isledik. Ama Biz Isimizi Saglama Alalim.
TopDeger="" ' Yasin2 Artik TopDeger Ve TopDegeri Tekrar Kullanmak Için Bosalttik :)

KacHaneli2 = Len(Yasin2) ' Simdi Yasin2 nin Yani Kullanicinin Gimis oldugu Degerin Ascii Karsiliginin Kaç Karakter Oldugu

For KacinciHarf = 1 to KacHaneli2 ' Yine Bi Döngü Aldigimiz Degerin Ascii Karsiliginin Ascii Karsiligini Almak Için. Isimizi Saglama ALalim Dimi :)
BirinciDeger = Mid(Yasin2,KacinciHarf,1) ' Üstte Anlattik Ayni Islem Tekrar
Deger = CStr(BirinciDeger)' Üstte Anlattik Ayni Islem Tekrar
Deger = Asc(Deger) ' Üstte Anlattik Ayni Islem Tekrar
Deger = Cstr(Deger)' Üstte Anlattik Ayni Islem Tekrar
TopDeger = TopDeger + Deger ' Üstte Anlattik Ayni Islem Tekrar
Response.write(TopDeger) ' Üstte Anlattik Ayni Islem Tekrar

Response.write("
")' Üstte Anlattik Ayni Islem Tekrar




Next ' Üstte Anlattik Ayni Islem Tekrar

KacHane = TopDeger ' Simdi Teni TopDegerimiz Kullanicinin Girdigi Degerin Ascii Karsiliginin Ascii Karsiligi ve Bunu KaçHane Diye Bir Degiskene Aktaralim, Bakarsin Kullaniriz ;)
KacHaneAliyim = KacHane * KacHane ' Burdada Girilen Degerin Ascii sinin Ascisi, Ascisinin Ascisiyle Çarpiyiyoruz. Amaç Kafa Karistirmak ;) Bilirsiniz Lamer lere karsi önlem olurda veritabanina Sql Injection neyim Yaparlar. Sifreleri Saglama Almak Amaçli :)
KacHaneAliyim = Int(KachaneAliyim) ' Iki Tam Sayinin Çarpimindan Ondalikli Sayi Çikmaz ama Sakata Gelmeyelim Ne Olur Ne olmaz. Bu sayiyida Integer a çevirdik. Artik Bu kodlari Görmeyen Kimsenin Çözemeyecegi bi sifreleme Çikardik Ortaya :)
Response.Write(KacHaneAliyim) ' Iste Bu da Kullanicinin Girdigi Kodun Sifrelenmis Halide burda yaziyo :D

%>