Mencari CVV2

Bagi kamu yang suka,demen ato cinta ama Carding , mungkin sering jengkel,mangkel,emosi n dongkol kalo punya data - data dari Credit Card tapi enggak ada CVV2 nya,,,
"Bang kuplux apaan sih cvv2 itu???", Nah oke, cvv2 itu merupakan 3 digit pengaman kartu kredit tersebut,,,
"buat apa bang???", Y buat ngamanin si kartu >_<.
Sebenarnya ada beberapa rumus, tapi enggak menjamin kevalidannya apa enggak, berikut rumusnya :
8 digit + 12 digit + (3+1) digit atau
7 digit + 13 digit + (3+1) digit

Contoh : 5454605876165925
digit ke-8 = 8 , digit ke-12 = 6 , digit ke-3+1 = 5+1 =6
jadi cvv2 nya = 866

nih source codenya dlm pascal :
uses wincrt;

var
S,a,b,c,d : String;
ul : char;
i,l,m,x,codex: integer;
begin
Writeln('Program cari cvv2 by kuplux(Beta)');
repeat
begin
write('Masukkan no cc: ');readln(s);
d:=copy(s,1,1);
val(d,i,l);
a:=copy(s,8,1);
b:=copy(s,12,1);
c:=copy(s,3,1);
val(c,m,l);
m:= m + 1;
if length(s) >= 12 then
begin
if length(s) <=16 then

writeln('Ini No cvv2-nya: ',a,b,m) ;


if length(s) > 16 then
writeln('Jangan masukkan no BH ') else
if length(s) < 12 then
writeln('Jangan masukkan no BH');
writeln('Cari lagi(Y/T)????'); readln(ul);
end;
if upcase(ul) = 'T' then
writeln('Tutup program ini atau tekan alt+f4');
end;
until upcase(ul) = 'T';

end.
(tinggal dicompile >_<)

Yang perlu dicatat,digaris-bawahi ato dipetiki(halah!) ialah 90% hasilnya adalah benar..bukan berarti 100% benar dan sama sekali tidak benar....
Tapi itu enggak menjamin ke valid-an dari CVV2 nya....


Nb: Buat catatan aja,dgn rumus ini gw bisa beli email berbayar di yahoo tp ampe skrg tuh email gk pernah gw pake.......