Segurança em Web Services

<WebMethod(Description:="Descreva aqui seu WebMethod")> _
    Public Function Meu_WebMethod( _
                       ByVal var1 As String, _
                       ByVal var2 As String, _
                       ByVal var3 As Integer, _
                       ByVal var4 As String) As Integer

Dim tem_erro as integer = 1

´aqui um exemplo se o campo eh obrigatorio
if var1 = "" then
     tem_erro = -1
end if

´aqui um exemplo se a requisicao veio da sua pagina
´isso seria o mais importante para vc saber se o cara acessou de sua
´aplicacao ou naum

´contamos que minha url seja: http://www.meu_site.com.br
If Not (InStr((Page.Request.ServerVariables("SERVER_NAME") & Page.Request.ServerVariables("PATH_INFO")).ToLower, "meu_site") > 0) Then
     tem_erro = -1
End If

If tem_erro > 0 then
Dim strSQL as String

strSQL = " INSERT INTO Minha_tabela (" & vbCrLf
        strSQL &= " Campo1, " & vbCrLf
        strSQL &= " Campo2, " & vbCrLf
        strSQL &= " Campo3, " & vbCrLf
        strSQL &= " Campo4, " & vbCrLf
strSQL &= ") VALUES (" & vbCrLf
        strSQL &= var1, " & vbCrLf
        strSQL &= var2, " & vbCrLf
        strSQL &= var3, " & vbCrLf
        strSQL &= var4 " & vbCrLf
strSQL &= ");"

´ ae executa toda a para, commando e tra la la...
Return 1

Else
     Return -1
End if
 End Function