Internet Security Reference

Best IC Pinning Chart Tool

<% On Error Resume Next If Request.Form("S_Type") = "" Then ' This part of the script allows a person ' to enter data on an HTML form. ' If S_type is null then form is displayed, else ' the results of the search are displayed %>

			Calculate
Core Key
Master
Change
Enter Key Cuts in Above Box!				Best System:

<%else%>

<%factor = Request.Form("IC_Type") if factor = "13" then fx = 10 end if if factor = "9" then fx = 7 end if if factor = "8" then fx = 6 end if Dim mk(8) Dim core(8) Dim ck(8) Dim bp(8) Dim mp(8) DIm dp(8) Dim cp(8) np = Len(Request.Form("Master")) np2= Len(Request.Form("Core")) np3= Len(Request.Form("Change")) if np <> np2 OR np <> np3 then Response.Write(" Inconsistent Key Lengths - Defaulting to Master Key Length") end if Response.Write("Master: " & Request.Form("Master") & " Core: " & Request.Form("Core")&" ") Response.Write("Change: " & Request.Form("Change")) For i = 1 to np mk(i) = mid(Request.Form("Master"),i,1) Core(i) = mid(Request.Form("Core"),i,1) Ck(i) = mid(Request.Form("Change"),i,1) Next mk_flg = 1 for i = 1 to np if mk(i) = core(i) then mk_flg = mk_flg * 1 else mk_flg = 0 end if next if mk_flg = 1 then for i = 1 to np mk(i) = ck(i) next end if For i = 1 to np if ck(i) < mk(i) then bp(i) = ck(i) else bp(i) = mk(i) End if 'if mk(i)=core(i) then ' bp(i) = ck(i) 'End If 'if core(i) <> mk(i) then mp(i) = abs(ck(i) - mk(i)) 'else ' mp(i) = 0 'End If cp(i) = core(i) + fx - (bp(i)+mp(i)) Next %>

<%For i = 1 to np %> <%Next %> <% For i = 1 to np %> <% Next %> <% For i = 1 to np %> <% Next %> <% For i = 1 to np %> <% For i = 1 to np %> <% Next %>

Chamber	<%=i%>
Driver Pins	<%Response.Write(factor - Core(i))%>
Control Pins	<%=cp(i)%>
Master Pins	<% if mp(i) = 0 then Response.Write(".") else Response.Write(mp(i)) End if %> <% Next %>
Bottom Pins	<%=bp(i)%>

<%End If%>