wmaraci reklam

.NET ten asp ye çeviri

3 Mesajlar 896 Okunma
pst.net
wmaraci reklam

ediznural ediznural WM Aracı Kullanıcı
  • Üyelik 21.07.2014
  • Yaş/Cinsiyet 42 / E
  • Meslek turizm
  • Konum İzmir
  • Ad Soyad E** N**
  • Mesajlar 4
  • Beğeniler 0 / 0
  • Ticaret 0, (%0)
iyi günler static string[] karakterDizi = new string[]{
"1", "2", "3", "4", "5", "6", "7", "8", "9", "0",
"a", "b", "c", "ç", "d", "e", "f", "g", "ğ", "h", "ı", "i", "j", "k", "l", "m",
"n", "o", "ö", "p", "q", "r", "s", "ş", "t", "u", "ü", "v", "w", "x", "y", "z",
"A", "B", "C", "Ç", "D", "E", "F", "G", "Ğ", "H", "I", "İ", "J", "K", "L", "M",
"N", "O", "Ö", "P", "Q", "R", "S", "Ş", "T", "U", "Ü", "V", "W", "X", "Y", "Z",
"!", "'", "^" , "+", "%", "&", "/", "(", ")", "=", "?", "_", "£", "#", "$", "½",
"{", "[", "]", "}", "\\", "|", "*", "-", "~", "`", ",", ";", ".", ":", "<", ">",
"|", "@", "\"", "é", "€", "i", "¨", "æ", "ß", " "
};
public static string USifrele(string str)
{
Random rnd = new Random();
int sabit = rnd.Next(100, 870);
char[] dizi = str.ToCharArray();
string sonuc = "";
try
{
for (int i = 0; i < dizi.Length; i++)
{
int index = Array.IndexOf(karakterDizi, dizi[i].ToString());
sonuc += (sabit + index).ToString();
}
sonuc += sabit.ToString();
}
catch
{
return "@HatalıKarakterDizisi";
}
return sonuc;
}

public static string USifreCoz(string str)
{
string sonuc = "";
char[] dizi = str.ToCharArray();
int sabit = Convert.ToInt16(dizi[dizi.Length - 3].ToString() + dizi[dizi.Length - 2].ToString() + dizi[dizi.Length - 1].ToString());
try
{
for (int i = 0; i < dizi.Length - 3; i = i + 3)
{
int index = Convert.ToInt16(dizi[i].ToString() + dizi[i + 1].ToString() + dizi[i + 2].ToString());
index -= sabit;
if (index != -1)
sonuc += karakterDizi[index];
}
}
catch
{
return "@HatalıKarakterDizisi";
}
return sonuc;
}


şeklinde .NET ile hazırlanmış şifreleme sistemini klasik asp ye çevirmem gerekiyor ama yapamadım. allah raızası için bilen bir arkadaş varsa çevirebilir mi.
 

 

wmaraci
reklam

wolqen wolqen opss Bronz Üye
  • Üyelik 20.05.2015
  • Yaş/Cinsiyet 35 / E
  • Meslek CMPE
  • Konum Diğer
  • Ad Soyad V** B**
  • Mesajlar 358
  • Beğeniler 52 / 61
  • Ticaret 14, (%100)
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

%>

 

 

YazilimciHoroz YazilimciHoroz Üyeliği Durdurulmuş Banlı Kullanıcı
  • Üyelik 24.12.2014
  • Yaş/Cinsiyet 27 / E
  • Meslek Yazılım
  • Konum İstanbul Avrupa
  • Ad Soyad E** Ç**
  • Mesajlar 422
  • Beğeniler 25 / 98
  • Ticaret 3, (%100)
Ne gerek varki asp ye. Asp ogrenmek su devirde en bos seylerden biri. .net varken
wolqen

kişi bu mesajı beğendi.

wmaraci
Konuyu toplam 2 kişi okuyor. (0 kullanıcı ve 2 misafir)
Site Ayarları
  • Tema Seçeneği
  • Site Sesleri
  • Bildirimler
  • Özel Mesaj Al