Sanal pos kodlarını yazarmısınız

Merhaba arkadaşlar bana sanal pos kodları lazım elinde olan varsa yazabilirmi

arkadaşım bankanın yaptığı web servise para metre gönderiyosun pekte zor bişe değil
sen hangi banka olduğunu söle ben sana yardımcı olurum...

garanti olursa iyi olur

bende isteyebilir miyim, ben de Garanti ??

Özür Dilerim Bayadır Yoktum Yerimde
Ben Vakıf Bankini Kullanıyorum...Onuda Şöle Tarif Edebilirim Size
UyeNo="123456" // Üye İşyeri Numarası
PosNo="123456" // Üye İşyeri POS Numarası
KartNo=trim(Request.Form("kkno"))
SonKul=trim(Request.Form("kkyil"))&trim(Request.Fo rm("kkay"))
Para=trim(Request.Form("miktar"))
cvc=trim(Request.Form("cvc2"))
if not isNumeric(KartNo) or Len(KartNo)<15 then
Response.Write "Kredi Kart No Hatalı"
else
For i=Len(KartNo)+1 to 22
KartNo=KartNo+ " "
Next
End if
if isNumeric(Para) or Int(Para)>1 then
For i=Len(Para)+1 to 10
Para="0" & Para
Next
End if
Mesaj=UyeNo& PosNo& KartNo& SonKul& cvc & Para
session("mesajim")=mesaj
Set ASPObj = Server.CreateObject("vbpos724.pos724.1")
Prv=ASPObj.vbprov(session("mesajim"))
Response.Write "Gelen Mesaj: "&Prv&" "
İşinize Yaradıysa Ne Mutlu