0
Kayıt Ol

Türkce karakter function

2

●

834

  • 30-04-2015, 17:10:22
    #1
    m.sahin
    m.sahin
    Üyeliği durduruldu
    Arkadaslar elinde gelenveri = Replace(gelenveri ,Chr(199),"Ç",1,-1,0)

    function olan var mi ? komple tüm türkce karakterlerin büyük kücük karfine göre cevirecek. ?

    Misal bendeki söyle ama yanlis ;büyügüde kücügüde ayni yapiyor ?
    gelenveri = Replace(gelenveri ,Chr(208),"g",1,-1,0)
    gelenveri = Replace(gelenveri ,Chr(240),"g",1,-1,0)
  • 30-04-2015, 17:45:57
    #2
    ismailix
    ismailix
    böyle birşey mi



    Alıntı
    Function cevir(data)
    data = Replace (data ,"ı","i",1,-1,1)
    data = Replace (data ,"ğ","g",1,-1,1)
    data = Replace (data ,"ü","u",1,-1,1)
    data = Replace (data ,"ş","s",1,-1,1)
    data = Replace (data ,"ö","o",1,-1,1)
    data = Replace (data ,"ç","c",1,-1,1)
    data = Replace (data ,"I","i",1,-1,1)
    data = Replace (data ,"i","i",1,-1,1)
    data = Replace (data ,"Ğ","g",1,-1,1)
    data = Replace (data ,"Ü","u",1,-1,1)
    data = Replace (data ,"Ş","s",1,-1,1)
    data = Replace (data ,"İ","i",1,-1,1)
    data = Replace (data ,"Ç","c",1,-1,1)
    data = Replace (data ,"Ö","o",1,-1,1)
    data = Replace (data ," ","-",1,-1,1)
    data = Replace (data ,"E","e",1,-1,1)
    data = Replace (data ,"A","a",1,-1,1)
    data = Replace (data ,"C","c",1,-1,1)
    data = Replace (data ,"D","d",1,-1,1)
    data = Replace (data ,"B","b",1,-1,1)
    data = Replace (data ,"F","f",1,-1,1)
    data = Replace (data ,"s","s",1,-1,1)
    data = Replace (data ,"G","g",1,-1,1)
    data = Replace (data ,"H","h",1,-1,1)
    data = Replace (data ,"J","j",1,-1,1)
    data = Replace (data ,"K","k",1,-1,1)
    data = Replace (data ,"L","l",1,-1,1)
    data = Replace (data ,"M","m",1,-1,1)
    data = Replace (data ,"N","n",1,-1,1)
    data = Replace (data ,"O","o",1,-1,1)
    data = Replace (data ,"P","p",1,-1,1)
    data = Replace (data ,"R","r",1,-1,1)
    data = Replace (data ,"S","s",1,-1,1)
    data = Replace (data ,"T","t",1,-1,1)
    data = Replace (data ,"U","u",1,-1,1)
    data = Replace (data ,"V","v",1,-1,1)
    data = Replace (data ,"Y","y",1,-1,1)
    data = Replace (data ,"Z","z",1,-1,1)
    data = Replace (data ,"I","i",1,-1,1)
    data = Replace (data ,";","",1,-1,1)
    data = Replace (data ,"?","",1,-1,1)
    data = Replace (data ,"(","",1,-1,1)
    data = Replace (data ,")","",1,-1,1)
    data = Replace (data ,"'","",1,-1,1)
    data = Replace (data ,"`","",1,-1,1)
    data = Replace (data ,"$","",1,-1,1)
    data = Replace (data ,"&","",1,-1,1)
    data = Replace (data ,"\","",1,-1,1)
    data = Replace (data ,"!","",1,-1,1)
    data = Replace (data ,"%C3%9C","u",1,-1,1)




    cevir=data
    End Function
  • 08-05-2015, 12:21:26
    #3
    berdos
    berdos
    m.sahin adlı üyeden alıntı: mesajı görüntüle
    Arkadaslar elinde gelenveri = Replace(gelenveri ,Chr(199),"Ç",1,-1,0)

    function olan var mi ? komple tüm türkce karakterlerin büyük kücük karfine göre cevirecek. ?

    Misal bendeki söyle ama yanlis ;büyügüde kücügüde ayni yapiyor ?
    gelenveri = Replace(gelenveri ,Chr(208),"g",1,-1,0)
    gelenveri = Replace(gelenveri ,Chr(240),"g",1,-1,0)

    Ben kendi kullandığım fonksiyon dosyamı paylaşayım. İşinin görebilir. Lazım olabilecek bir çok fonksiyon var.

    <%

Function LOGINKT(veri) ' Login için özel karakter temizleme
                 If veri = "" Then Exit Function 
            
                  '// Zararlı Kodlar Burada Ayıklanıyor 
                 veri = Replace(veri, "<", "&lt;") 
                 veri = Replace(veri, ">", "&gt;") 
                 veri = Replace(veri, "[", "[") 
                 veri = Replace(veri, "]", "]") 
                 veri = Replace(veri, """", "", 1, -1, 1) 
                 veri = Replace(veri, "=", "=", 1, -1, 1) 
                 veri = Replace(veri, "'", "''", 1, -1, 1) 
                 veri = Replace(veri, "select", "select", 1, -1, 1) 
                 veri = Replace(veri, "join", "join", 1, -1, 1) 
                 veri = Replace(veri, "union", "union", 1, -1, 1) 
                 veri = Replace(veri, "where", "where", 1, -1, 1) 
                 veri = Replace(veri, "insert", "insert", 1, -1, 1) 
                 veri = Replace(veri, "delete", "delete", 1, -1, 1) 
                 veri = Replace(veri, "update", "update", 1, -1, 1) 
                 veri = Replace(veri, "like", "like", 1, -1, 1) 
                 veri = Replace(veri, "drop", "drop", 1, -1, 1) 
                 veri = Replace(veri, "create", "create", 1, -1, 1) 
                 veri = Replace(veri, "modify", "modify", 1, -1, 1) 
                 veri = Replace(veri, "rename", "rename", 1, -1, 1) 
                 veri = Replace(veri, "alter", "alter", 1, -1, 1) 
                 veri = Replace(veri, "cast", "cast", 1, -1, 1) 
            
                 LOGINKT = veri 
            
End Function 
                 
Function KT(veri)  ' Genel amaçlı özel karakter temizleme
               If veri = "" Then Exit Function 
                'veri = Replace(veri, "<", "&lt;") 
                'veri = Replace(veri, ">", "&gt;") 
                 veri = Replace(veri, "[", "[") 
                 veri = Replace(veri, "]", "]") 
                'veri = Replace(veri, "'", "‘")
                 veri = Replace(veri, "'", "`")
                'veri = Replace(veri, """", "", 1, -1, 1) 
                 veri = Replace(veri, "=", "=", 1, -1, 1) 
                'veri = Replace(veri, "'", chr(34), 1, -1, 1) 
                'veri = Replace(veri, "'", "&acute;") 
                 veri = Replace(veri, "select", "select", 1, -1, 1) 
                 veri = Replace(veri, "join", "join", 1, -1, 1) 
                 veri = Replace(veri, "union", "union", 1, -1, 1) 
                 veri = Replace(veri, "where", "where", 1, -1, 1) 
                 veri = Replace(veri, "insert", "insert", 1, -1, 1) 
                 veri = Replace(veri, "delete", "delete", 1, -1, 1) 
                 veri = Replace(veri, "update", "update", 1, -1, 1) 
                 veri = Replace(veri, "like", "like", 1, -1, 1) 
                 veri = Replace(veri, "drop", "drop", 1, -1, 1) 
                 veri = Replace(veri, "create", "create", 1, -1, 1) 
                 veri = Replace(veri, "modify", "modify", 1, -1, 1) 
                 veri = Replace(veri, "rename", "rename", 1, -1, 1) 
                 veri = Replace(veri, "alter", "alter", 1, -1, 1) 
                 veri = Replace(veri, "cast", "cast", 1, -1, 1) 
                 KT = veri 
End Function

Function MailKontrol(email)  ' Mail adres doğrulama
                    Dim i,j, first, last, char 
                    i = InStr(1, email, "@" , vbtextcompare) 
                    If i > 0 and i < Len(email) Then 
                          first = Left(email, i - 1) 
                          last = Mid(email, i+1, Len(email)) 
                    Else 
                          MailKontrol = false 
                          exit Function 
                    End If 
                    i = 0 
                    Do Until i = Len(first) 
                          i = i + 1 
                          char = Mid(first, i, 1) 
                          ' If char is not in [.z-aA-Z0-9] 
                          If Asc(char) <> 46 and Asc(char) <> 95  and (Asc(46) < 48 or Asc(char) > 57) and _ 
                          (Asc(char) < 65 or Asc(char) > 90) and (Asc(char) < 97 or Asc(char) > 122) Then 
                              MailKontrol = false 
                              exit Function 
                          End If 
                    Loop 
                    i = 0 
                    nokta = false 
                    Do Until i = Len(last) 
                          i = i + 1 
                          char = Mid(last, i, 1) 
                          ' If char is not in [.z-aA-Z0-9] 
                          If Asc(char) <> 46 and (Asc(46) < 48 or Asc(char) > 57) and _ 
                          (Asc(char) < 65 or Asc(char) > 90) and (Asc(char) < 97 or Asc(char) > 122) Then 
                              MailKontrol = false 
                              exit Function 
                          End If 
                    Loop 
                    nokta = false 
                    If InStr(1, last, "." , 1) > 0 Then  
                          nokta = true 
                    End If 
                    MailKontrol = nokta 
End Function      

Function TR_cevir2(veri) ' Sadece ünlü harfleri çevirme. Dosya adı tanımlarken ünlü harfleri noktasızlarıyla değiştirir.
                If veri = "" Then Exit Function 
                             veri = replace(veri, "ü", "u")
                             veri = replace(veri, "Ü", "U")
                             veri = replace(veri, "ğ", "g")
                             veri = replace(veri, "Ğ", "G")
                             veri = replace(veri, "İ", "I")
                             veri = replace(veri, "ı", "i")
                             veri = replace(veri, "ş", "s")
                             veri = replace(veri, "Ş", "S")
                             veri = replace(veri, "ç", "c")
                             veri = replace(veri, "Ç", "C")
                             veri = replace(veri, "ö", "o")
                             veri = replace(veri, "Ö", "O")
                   TR_cevir2 = veri 
End Function 
                                    
Function TR_cevir(veri) ' Genel amaçlı Türkçe karakter çevirme
                If veri = "" Then Exit Function
                    veri = Replace (veri ,"""","",1,-1,1) 
                    veri = Replace (veri ," ","",1,-1,1) 
                    veri = Replace (veri ,"é","",1,-1,1) 
                    veri = Replace (veri ,"!","",1,-1,1) 
                    veri = Replace (veri ,"'","",1,-1,1) 
                    veri = Replace (veri ,"^","",1,-1,1) 
                    veri = Replace (veri ,"+","",1,-1,1) 
                    veri = Replace (veri ,"%","",1,-1,1) 
                    veri = Replace (veri ,"&","",1,-1,1) 
                    veri = Replace (veri ,"/","",1,-1,1) 
                    veri = Replace (veri ,"(","",1,-1,1) 
                    veri = Replace (veri ,")","",1,-1,1) 
                    veri = Replace (veri ,"=","",1,-1,1) 
                    veri = Replace (veri ,"?","",1,-1,1) 
                    veri = Replace (veri ,";","",1,-1,1) 
                    veri = Replace (veri ,":","",1,-1,1) 
                    veri = Replace (veri ,",","",1,-1,1) 
                    veri = Replace (veri ,">","",1,-1,1) 
                    veri = Replace (veri ,"<","",1,-1,1) 
                    veri = Replace (veri ,"*","",1,-1,1) 
                    veri = Replace (veri ,"-","",1,-1,1)
                    veri = Replace (veri ,"£","",1,-1,1) 
                    veri = Replace (veri ,"$","",1,-1,1) 
                    veri = Replace (veri ,"½","",1,-1,1) 
                    veri = Replace (veri ,"{","",1,-1,1) 
                    veri = Replace (veri ,"}","",1,-1,1) 
                    veri = Replace (veri ,"(","",1,-1,1) 
                    veri = Replace (veri ,")","",1,-1,1)                                        
                    veri = Replace (veri ,"]","",1,-1,1) 
                    veri = Replace (veri ,"[","",1,-1,1) 
                    veri = Replace (veri ,"\","",1,-1,1) 
                    veri = Replace (veri ,"|","",1,-1,1) 
                    veri = Replace (veri ,"`","",1,-1,1) 
                    veri = Replace (veri ,"´","",1,-1,1) 
                    veri = Replace (veri ,"~","",1,-1,1) 
                    veri = Replace (veri ,"@","",1,-1,1) 
                    veri = Replace (veri ,"æ","",1,-1,1) 
                    veri = Replace (veri ,"İ","i",1,-1,1) 
                    veri = Replace (veri ,"ü","u",1,-1,1) 
                    veri = Replace (veri ,"ğ","g",1,-1,1) 
                    veri = Replace (veri ,"ç","c",1,-1,1) 
                    veri = Replace (veri ,"ş","s",1,-1,1) 
                    veri = Replace (veri ,"ö","o",1,-1,1) 
                    veri = Replace (veri ,"ı","i",1,-1,1)
                    veri = Replace (veri ,"#39","",1,-1,1) 
                    veri = Replace (veri ,"#96","-",1,-1,1) 
                    veri = Replace (veri ,"#8242","",1,-1,1)
                    veri = Replace (veri ,"&nbsp;","",1,-1,1)
                    veri = Replace (veri ,",","",1,-1,1)
                    veri = Replace (veri ,".","",1,-1,1)
                    TR_cevir=veri 
End Function 

 'YUKARI YUVARLAMA
Function yukariyuvarla(s) ' Yukarı yuvarlama
                 if s-cint(s) > 0 then
                    yukariyuvarla = cint(s) + 1
                else
                    yukariyuvarla = cint(s)
                end if
End function
            
 'AŞAĞI YUVARLAMA
Function asagiyuvarla(s1) ' aşağı yuvarlama
                If s1-cint(s1) < 0 then
                    asagiyuvarla = cint(s1) - 1
                else
                    asagiyuvarla = cint(s1)
                end if
End function
            
Function SAAT_Cevir(veri)  ' Saat çevirisi Örnek 12:24:36 çıktısını 12-24-36 yapar. 
              If veri = "" Then Exit Function 
                veri = Replace(veri ,":","-")
                SAAT_Cevir = veri 
End Function 

Function TARIH_Cevir(veri)  ' Tarih çeviri. Örnek : 15/05/2014 veya 15.04.2014 tarihini 15-04-2015 yapar
              If veri = "" Then Exit Function 
                veri = Replace(veri ,".","-")
                veri = Replace(veri ,"/","-")
                TARIH_Cevir = veri 
End Function 
                                    
Function TR_Kontrol(ByVal veri) ' Türkçe karakter girilip girilmediğini denetler.
            
                 '// Örnek Kullanım
                 '// If TR_Kontrol(Request.Form("sifre")) = False Then Response.Write "Türkçe Karakter Kullandınız."
            
                 '// Değişkenler Tanımlanıyor
                 Dim Karakterler     '// TR Karakter dizisi tutulacak
                 Dim Karakter     '// Dizideki her bir elemanı teker teker alacak
                 blnValid = True     '// Varsayılan değer True olarak atanıyor
            
                 '// Kontrol Başlıyor
                 Karakterler = Array("ğ","ü","ı","ş","ç","ö","Ğ","Ü","İ","Ş","Ç","Ö"," ")
            
                 For Each Karakter In Karakterler     
                      If InStr(veri,Karakter) <> 0 Then blnValid = False '// Değer False olarak değiştiriliyor
                 Next
            
                 TR_Kontrol = blnValid
            
End Function
             
Function Buyut(strBaslik) ' Tüm harfleri büyük harfe çevirir
                 strBaslik = Replace(strBaslik, "a", "A")
                 strBaslik = Replace(strBaslik, "b", "B")
                 strBaslik = Replace(strBaslik, "c", "C")
                 strBaslik = Replace(strBaslik, "ç", "Ç")
                 strBaslik = Replace(strBaslik, "d", "D")
                 strBaslik = Replace(strBaslik, "e", "E")
                 strBaslik = Replace(strBaslik, "f", "F")
                 strBaslik = Replace(strBaslik, "g", "G")
                 strBaslik = Replace(strBaslik, "ğ", "Ğ")
                 strBaslik = Replace(strBaslik, "h", "H")
                 strBaslik = Replace(strBaslik, "ı", "I")
                 strBaslik = Replace(strBaslik, "i", "İ")
                 strBaslik = Replace(strBaslik, "j", "J")
                 strBaslik = Replace(strBaslik, "k", "K")
                 strBaslik = Replace(strBaslik, "l", "L")
                 strBaslik = Replace(strBaslik, "m", "M")
                 strBaslik = Replace(strBaslik, "n", "N")
                 strBaslik = Replace(strBaslik, "o", "O")
                 strBaslik = Replace(strBaslik, "ö", "Ö")
                 strBaslik = Replace(strBaslik, "p", "P")
                 strBaslik = Replace(strBaslik, "q", "Q")
                 strBaslik = Replace(strBaslik, "r", "R")
                 strBaslik = Replace(strBaslik, "s", "S")
                 strBaslik = Replace(strBaslik, "ş", "Ş")
                 strBaslik = Replace(strBaslik, "t", "T")
                 strBaslik = Replace(strBaslik, "u", "U")
                 strBaslik = Replace(strBaslik, "ü", "Ü")
                 strBaslik = Replace(strBaslik, "v", "V")
                 strBaslik = Replace(strBaslik, "w", "W")
                 strBaslik = Replace(strBaslik, "x", "X")
                 strBaslik = Replace(strBaslik, "y", "Y")
                 strBaslik = Replace(strBaslik, "z", "Z")
                 Buyut = strBaslik
End Function
            
Function BuyutTR(strBaslik) ' Türkçeye özel harf büyütme
                 strBaslik = Replace(strBaslik, "a", "A")
                 strBaslik = Replace(strBaslik, "b", "B")
                 strBaslik = Replace(strBaslik, "c", "C")
                 strBaslik = Replace(strBaslik, "ç", "Ç")
                 strBaslik = Replace(strBaslik, "d", "D")
                 strBaslik = Replace(strBaslik, "e", "E")
                 strBaslik = Replace(strBaslik, "f", "F")
                 strBaslik = Replace(strBaslik, "g", "G")
                 strBaslik = Replace(strBaslik, "ğ", "Ğ")
                 strBaslik = Replace(strBaslik, "h", "H")
                 strBaslik = Replace(strBaslik, "ı", "I")
                 strBaslik = Replace(strBaslik, "i", "İ")
                 strBaslik = Replace(strBaslik, "j", "J")
                 strBaslik = Replace(strBaslik, "k", "K")
                 strBaslik = Replace(strBaslik, "l", "L")
                 strBaslik = Replace(strBaslik, "m", "M")
                 strBaslik = Replace(strBaslik, "n", "N")
                 strBaslik = Replace(strBaslik, "o", "O")
                 strBaslik = Replace(strBaslik, "ö", "Ö")
                 strBaslik = Replace(strBaslik, "p", "P")
                 strBaslik = Replace(strBaslik, "q", "Q")
                 strBaslik = Replace(strBaslik, "r", "R")
                 strBaslik = Replace(strBaslik, "s", "S")
                 strBaslik = Replace(strBaslik, "ş", "Ş")
                 strBaslik = Replace(strBaslik, "t", "T")
                 strBaslik = Replace(strBaslik, "u", "U")
                 strBaslik = Replace(strBaslik, "ü", "Ü")
                 strBaslik = Replace(strBaslik, "v", "V")
                 strBaslik = Replace(strBaslik, "w", "W")
                 strBaslik = Replace(strBaslik, "x", "X")
                 strBaslik = Replace(strBaslik, "y", "Y")
                 strBaslik = Replace(strBaslik, "z", "Z")
                 BuyutTR = strBaslik
End Function

Function BuyutENG(strBaslik) ' İngilizçeye özel harf büyütme
                 strBaslik = Replace(strBaslik, "a", "A")
                 strBaslik = Replace(strBaslik, "b", "B")
                 strBaslik = Replace(strBaslik, "c", "C")
                 strBaslik = Replace(strBaslik, "d", "D")
                 strBaslik = Replace(strBaslik, "e", "E")
                 strBaslik = Replace(strBaslik, "f", "F")
                 strBaslik = Replace(strBaslik, "g", "G")
                 strBaslik = Replace(strBaslik, "ğ", "Ğ")
                 strBaslik = Replace(strBaslik, "h", "H")
                 strBaslik = Replace(strBaslik, "i", "I")
                 strBaslik = Replace(strBaslik, "j", "J")
                 strBaslik = Replace(strBaslik, "k", "K")
                 strBaslik = Replace(strBaslik, "l", "L")
                 strBaslik = Replace(strBaslik, "m", "M")
                 strBaslik = Replace(strBaslik, "n", "N")
                 strBaslik = Replace(strBaslik, "o", "O")
                 strBaslik = Replace(strBaslik, "p", "P")
                 strBaslik = Replace(strBaslik, "q", "Q")
                 strBaslik = Replace(strBaslik, "r", "R")
                 strBaslik = Replace(strBaslik, "s", "S")
                 strBaslik = Replace(strBaslik, "t", "T")
                 strBaslik = Replace(strBaslik, "u", "U")
                 strBaslik = Replace(strBaslik, "v", "V")
                 strBaslik = Replace(strBaslik, "w", "W")
                 strBaslik = Replace(strBaslik, "x", "X")
                 strBaslik = Replace(strBaslik, "y", "Y")
                 strBaslik = Replace(strBaslik, "z", "Z")
                 BuyutENG = strBaslik
End Function            
            
Function Kucult(strBaslik) ' Tüm harfleri küçük harfe çevirir
                 strBaslik = Replace(strBaslik, "A", "a")
                 strBaslik = Replace(strBaslik, "B", "b")
                 strBaslik = Replace(strBaslik, "C", "c")
                 strBaslik = Replace(strBaslik, "Ç", "ç")
                 strBaslik = Replace(strBaslik, "D", "d")
                 strBaslik = Replace(strBaslik, "E", "e")
                 strBaslik = Replace(strBaslik, "F", "f")
                 strBaslik = Replace(strBaslik, "G", "g")
                 strBaslik = Replace(strBaslik, "Ğ", "ğ")
                 strBaslik = Replace(strBaslik, "H", "h")
                 strBaslik = Replace(strBaslik, "I", "ı")
                 strBaslik = Replace(strBaslik, "İ", "i")
                 strBaslik = Replace(strBaslik, "J", "j")
                 strBaslik = Replace(strBaslik, "K", "k")
                 strBaslik = Replace(strBaslik, "L", "l")
                 strBaslik = Replace(strBaslik, "M", "m")
                 strBaslik = Replace(strBaslik, "N", "n")
                 strBaslik = Replace(strBaslik, "O", "o")
                 strBaslik = Replace(strBaslik, "Ö", "ö")
                 strBaslik = Replace(strBaslik, "P", "p")
                 strBaslik = Replace(strBaslik, "Q", "q")
                 strBaslik = Replace(strBaslik, "R", "r")
                 strBaslik = Replace(strBaslik, "S", "s")
                 strBaslik = Replace(strBaslik, "Ş", "ş")
                 strBaslik = Replace(strBaslik, "T", "t")
                 strBaslik = Replace(strBaslik, "U", "u")
                 strBaslik = Replace(strBaslik, "Ü", "ü")
                 strBaslik = Replace(strBaslik, "V", "v")
                 strBaslik = Replace(strBaslik, "W", "w")
                 strBaslik = Replace(strBaslik, "X", "x")
                 strBaslik = Replace(strBaslik, "Y", "y")
                 strBaslik = Replace(strBaslik, "Z", "z")
                 Kucult = strBaslik
End Function
            
'RASTGELE PAROLA URETICI
            Dim Password
            Dim RandomPassword
            Dim nCharacters
            
            Dim array_cod(35)
                array_cod(0) = "0"
                array_cod(1) = "1"
                array_cod(2) = "2"
                array_cod(3) = "3"
                array_cod(4) = "4"
                array_cod(5) = "5"
                array_cod(6) = "6"
                array_cod(7) = "7"
                array_cod(8) = "8"
                array_cod(9) = "9"
                array_cod(10) = "A"
                array_cod(11) = "B"
                array_cod(12) = "C"
                array_cod(13) = "D"
                array_cod(14) = "E"
                array_cod(15) = "F"
                array_cod(16) = "G"
                array_cod(17) = "H"
                array_cod(18) = "I"
                array_cod(19) = "J"
                array_cod(20) = "K"
                array_cod(21) = "L"
                array_cod(22) = "M"
                array_cod(23) = "N"
                array_cod(24) = "O"
                array_cod(25) = "P"
                array_cod(26) = "Q"
                array_cod(27) = "R"
                array_cod(28) = "S"
                array_cod(29) = "T"
                array_cod(30) = "U"
                array_cod(31) = "V"
                array_cod(32) = "W"
                array_cod(33) = "X"
                array_cod(34) = "Y"
                array_cod(35) = "Z"
            
            for cod = 0 to 5 
                MaxCod = 35 
                MinCod = 0 
                Randomize 
                RandomPassword = CStr(RandomPassword & array_cod(Int(Rnd * MaxCod) - MinCod))
            next
'//RANDOM PAROLA URETICI

' HTML KODLARI TEMİZLEME - Bu süzgeç ile gelen html verileri düz text olur
Function HTMLSil(GelenVeri) 
            Set objReg = New RegExp 
            objReg.Global = True 
            objReg.IgnoreCase = True 
            objReg.Pattern = "<[^>]*>" 
            GelenVeri = objReg.Replace(GelenVeri,"" )  
            HTMLSil = GelenVeri 
End Function
%>